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Jeeenoeneoeee 


peavevereoees 
Jeeeeaenocees 
Jeeeceenvenes 





BL oBALs! ASSY, PARAMS, 5 
DESCRIPTIONS LOW CORES seveseevecen 


GENERAL TABLES, eeseveneons 
CONSTANTS, STORAGE eboveeeenote 
erevesecoese 


JRSESSOOSHFOSESEEEHOSHSOHEEESOGEHSEGHHEHE HEED ORES HD 


GLoBALS 
eoFPMPeit 


1GLQ8L 
+GLOBL 
164084 
1GL08L 
GLOBE 
1GLOBL 
+GL08L 


U 
} esBASIC2 
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1GLoBL 
1GLOBL 
1G. 08L 
GLOBL 
+GL08L 
GOB. 
GLOBL, 
+6084, 
GLOBL, 
+GLOBL 
1GhOBL 
+GLOBL 
»GLOBL 
1GLOBL, 
1GLOB8L 
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SIR 

SMLR 

sOvR 

SAOR, SSBR 

SIN, COS,SURT,ALOG, ATAN, EXP 
SERVES 


TPB, TKS 

START 

USRAREA 

FILLCO 

LIMIT, POL, ARRAYS, POSIZE 
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' 
1 ASSEMBLY PARAMS, 
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SS?KS2 
’ 
SPRORG 
' 
SPPBS2 
J 
SPRBS2 
U 
SLPBS2 


VUPNOF 
8200 
,ENOC 


vlFNOF 
2408 
ENOC 


TPNOF 
3a 
+ENDE 


vTFNOF 
a30 
sENOC 


 JFNOF 
848 
sENOC 


SNopTp © No 
PAPER TAPE 


SNoLPT © No 
SLONGER © LONG ERROR MESSAGES: PEFINE TO GET LONG, 


SSYKS¢ §StzE oF STACK 


sayTes 


SPRORG JPROG, ORIGIN AFTER VECTOR SPACE 


SPPGS¢ IPP AUFF, SIZE 


SPRBS¢ JPAPERe TAPE PEADER BUFF, SIZE 


SLPBSE ILINE@PRINTED RUFF, SIZE 


PAPER TAPE] OEFINF To ELIMINATE CODE FoR WIGH SpEEO 


LINE pRINTERS DEFINE To ELIMINATE LINE pRINvER Code 


EXPLANATORY ERROR MESSAGES, 


SNOSTR ® No STRINGS! DEFINE Ta ELIMINATE STRING VARIAPLE CQ0E 
SNoPOW # No POWER FAILI DEFINE 79 ASSEMBLE wITHaYT 


POWER FAIL/RESTART ROUTINE, 
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124 } WOT POOPI! 

425 1 

126 + weUSER AREA MAp 

427 , 

426 } WIGH ADORESSES#enececccesececes 

129 1 1 GOSYS POINTERS! <eeLIMIY(R9) NEEDED 
130 ’ 1 26 FN POINTERS! 

asa ’ 1 REAQ POINTER | Ca=PALCRD) NEEDED 
132 1 beeecccce 

133 ' t pus : 

134 ' {DOWN ! PASIZE(RS) NEEDED = 
135 ' $ Gist { (POL CRS) @ARRAYS(R5)I/29STACK (INTERRUPT) 
436 1 becewseceqacwsces 

i37 ' H tf €eeaRRAYS(R5) NEEDED 
138 ' ! aRKAYS oo! ! 

139 ' ' tay 

148 ' t \o} 

144 1 ' vo! 

442 f bawwcecccqsccgces 

14s ' } STRINGS ' 

144 1 bewecccocesoreses 

145 ' Hy A ¢ 

146 ’ ' anit 

aa7 ' H rot 

248 i) to syMdoLs  ! : 

149 ! berocosracquoovens 

430 1 1 aot 

453 ’ ! ; ayo 

152 f { INverp, $$ 

455 ' 1 COOE tf €eeCODE (RS) NEEDED 
as4 | be qowecccqcecavce 

455 i 1 user : 

456 ' 1 LINE ! 

157 ' 1  BYFFER t <meLINE(RS) NEEDED 
158 i beccoqencqconsces 

a59 f t us€x 3/9 BuFF,! 

468 ' { ANO BUFF’, HOR,! 

164 ' 1 SPACE ¢(T¥Y) =! 

162 r] be cweewcencnceces 

163 ’ 1 YSER AREA $ 

164 ’ 1 STONAGE CELLS ! 

165 ERS POINTSe=> | : 

166 1 be rccnoucescceces 

16? 1 

168 
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169 } 

178 Jee 

a7. f] 

172 ’ cgde AREA CONTAINS STRING oF CnOE 8YTES WHICH CoMpalse 

173 } THE COMPILED CODE 10 BE INTERPETED, THE SYNTAX SCAN OF THESE 
474 1 CODE BYTES {S FACI,ITATED BY THF JUDICIOUS PLACEMENT 

175 ) OF CERTAIN OF THESE CODE AYTES TO BE CALLED 'TOKENS?, 

176 1 IF YHE WIGH BIT OF A TOKEN IS ON 

377 } IT IS A SYSTEM SYMBOL (S,SYM), (SFE TABLE, BELOW,) 

178 } HIGH O[T OFF SIGNALS TOKEN AS THE HIGH ORDER BYTE OF A WORD 
479 ) (LOW ORDER BYTE FOLLOWS TOKEN) USFO AS AN ADDRESS OFFSET INTO 
180 } THE USER SYMBOL, TABLE (USPTR), 

184 ' 

ise 1 e*SYMBol TABLE ENTRIES 

18 5 

184 $ ARE MADE FoR LINE NUMBERS, SCALARS, NUMERIC ARRAYS, ANT 

185 } STRINGS, AS SHOWN (IN ORDERDI 

186 J 

187 ’ LINENQ 477779 177776 477777 

188 f ADORESS VALUE ADDRESS ADDKESS 

189 ' VALUE MAXSS2 “AXSSY 

190 ’ a MAXSS2 MAXSS2 

194 ' VARNAME VARNAME STRI'IGNAME 

192 ’ 

195 } weGENERAL REGISTER YSAGE 

1 ' 

195 bat tg BASIC EXECUTION PC 

196 J R4 1S THE EXECUTION STACK DEPTH 

197 } R53 1S THE POINTER TY THE USER AREA 


198 
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2514 


BASICL 


252 
253 
254 
255 
256 
257 
258 
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390804 
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800834 
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808042 
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980068 


380864 


368078 
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099200 


MACX44 


800248 
300244 


vee. 
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980167 
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200012 
OOR14 
800816 
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407742 


390924 


887330 


TTR) 
890B32 
800034 
880036 


280040 

801 
990026 
308008 
200008 


280068 
006479 
BOSB64 
686642 
490876 


687104 


BBG074 
Berane 


060258 
997256 


VoeL 


280249 
980242 
290244 
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881830 
200008 
800808 
3eaRee 
28600R 


101 
099080 
ogone8 


080280 
390200 


9ee20e 


22eNARe7S 


3898086 B80000 


280400 
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JMP 
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' #18 
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' a14 
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‘ s2a 
* 

; "24 
eJFNOF 
e 
1ENOC 
PFO 
. 
,£Noc 

' 930 
* 

F a34 
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#42 
ERNUME ,BYTE 
° 


<2 eee 


960 
e 
: 564 
7 
, 870 
. DFNOF 
.2 
‘ u74 
J 
,ENDC 
LiFOF 


e 

sENOC 
' 3228 

a TFNOF 
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+ENOC 
a} FOrF 
+ 
ENOC 
’ #240 
. 
‘ 8244 
+ 
' SSPRORG 


START 
42,8 
142, 
142,08 


B0MB,o8 


SNOPOW 
POWDWN,@ 


SNoPOW 


INrERYyPy VECyORS AND LOWESy CODE 


sREstARyY Ar LOC, #3 
HTIME QUT, Buss ERROR 
PRESERVED INSTRUCTION 
sOEUNG, TRAP VvEC, 


s107 TRAP VEC, 


JPOWER FALL/RESTART 


192,28 HALT ON POWFR FALL 


102,28 
1#2,8 


wl SYSTEM! AREA 


oo4,tA 
B18, y 0,048, 


eeINrErupT VECTORS 


KBINTS PRS 
TPINT@ PRE 


SNOPTP 
PTRINT,PR4 


PPINT PRS 
SNOPTP 
848,048 


SNOLPY 
LPINT PRE 


SNOLPT 
aoe 


12,0 


ERRFPY So 


VEMT TRAP 


bepRAP! TRAP 


SVERSTON NUMBER 


HKEYBOARD 
HTELFPRINTER * 


sHSP, PT, REAOER 


HHSP, PT, PUNCH 


yPIR9 
FLOATING POINT TRAP 


HSTAPT QF CODE (MAY HAVE To CHANGE, 
} DEPENDING UPON ATTACHED DFVS,) 


BASICL 


264 
265 
269 
267 
268 
269 
270 
274 
272 
273 
274 
275 
276 
277 
278 
279 
280 
283 
282 
283 
286 
285 
286 
287 
288 
289 
2998 
294 
292 
293 
294 
295 
296 
297 
298 
299 
308 
304 
302 
303 
304 
305 
396 
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307 
308 
309 
318 
31a 
312 
313 
314 
315 
316 
347 
3148 
319 
328 
32a 
322 
328 
324 
325 
326 
327 
328 
329 
330 
334 
332 
333 
334 
335 
336 
337 
338 
339 
340 
344 
342 
343 
344 
345 
346 
347 
348 
349 
358 
354 
352 
353 
354 
355 
356 
357 
358 
359 
360 
364 
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ves 


80e0e8 
080003 
880802 
800085 
380804 
820005 
BBG826 
880007 


177560 
177562 
177564 
177566 
177558 
177532 
177534 
177556 
177534 
177546 


MBOR1s 
800R12 
900024 
2800025 
200040 
177776 
380148 
900280 
800340 
177775 
177776 
477777 


voes 


980008 
200082 
2eggR4 
980886 
200040 
900012 
380014 
300016 
200020 
egag22 
200024 
880026 
200930 
280032 
800034 
288036 
828840 
o9ags2 
500044 
380046 
200050 
380052 
290054 
280056 
300860 
280062 
BB8R64 
808066 
000078 
880972 
280074 


289076 
380077 
300120 
200182 
980104 
200186 
880197 
200118 
880112 
980112 
980123 


580820 
300802 
290084 
290026 
780818 
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j 
} GENERAL ASSIGNMENTS, VARIABLES, SynBdls, ETC, 
| 


} w*REGISTER ASSIGNMENTS 


8x0 
8Xt 
8x2 
x3 
"x4 
xs 
9x6 
8x7 


' 
} weDEVICE REGISTER CONSTANTS 


’ 

TKS 
TK 
TPS 
7Pa 
PRS 
PRE 
PPS 
Ppa 
LPs 
4Pe 


8177568 
8177562 
3477564 
8177566 
8477550 
8177552 
8177554 
0477556 
B177514 
8177546 


' 
} esGENERAL CONSTANTS 


' 

TAB 
LFs 
FF 
CRe 
BLs 
PS 
PRI 
PR4 
PRI 

s SCALAR 
iNVAR 
1 SVAR 


LPe 

ay2 

ey4 

045 

048 
8177776 
2140 
3220 
234g 
8477775 
©177776 
8477777 
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IPRIORITY LEVEL 3 


HYSER SYM, TABLE FLAG FOR SCALAR 
IFLAG FOR NUMERIC ARRAY VARIABLE 
JFLAG FOR STPING VAR, 


! 
J weUSER AREA STORAGE CELL OFFSETS 


' 
SYMBOLS 
LIMIT 
POL 
POSIz€ 
ARRAYS 
MIPREE 
LOPREE 
cOoE 
LINE 
VARSAV 
SS1SAVE 
SS2SAVE 
LINENO 
GSBCTR 
COLUMN 
CLMNTTY 
Fae. 
Face 
ROSAVE 
RASAVE 
R2SAvE 
RSSAVE 
R4SAVE 
Ta 

T2 

T3 

RNOL 
RNOZ 
RNOCT 
LOSTR 
WISTR 


enmnweunnensnavenunnuenenaneeannue 


) ICANTAINS ADOR OF THE FIRST SYMBOL 
SYMBOLS+2 HCONTAINS ADOR OF HIGHEST WO OF USER AREA 
LIMITe2 SCONTAINS ADOR OF EMPTY STACK 

POLe2 CONTAINS LOW LIMIT OF STACK 

POS} ZEs2 CONTAINS ADOR OF HIGHEST WORD OF ARRAYS 
ARRAYS#2 CONTAINS ADOR OF HIGHEST FREE WORD 
HIFREES2 ICONTAINS ADOR OF LOWEST FREE WORD 
LOFREEe2 HCONTAINS ADOR OF INTERPRETIVE CODE 
CODEs2 HCONTAINS ADOR OF USER LINE PUFFER 
LINE #2 HVAR SAVE FOR ASSIGNMENT 

VARSAVe2 ySS2 SAVE FOK ASSIGNMENT 

SS{SAVE+2 18S2 SAVE FOR ASSIGNMENT 

SS2SAVE#2 FCONTAINS THE LINE NUMBEQ 

LINENOS2 ICONTAINS SS*#DEPTH OF ACT] VE GOSUBS 
GSBCTKe2 JHAS AMOR OF COL CT FOR PURRENT DEV 
COLUMNeg sLAST TTY COLUMN TYPED 

CLUNTTY #2 HIGH OROER FLOATING VALUE 

FaCte2 HLOW ORDER FLOATING VALUE 

FAC2e2 sPLACE FOR RM WHILE IN FPMP19 
RUSAVES2 yOITTO RI 

RUSAVES2 WOITTO RZ 

R2SAVES2 SOITTO RS 

R3SAVES2 HO1TTO RS 

R4SAVES2 sSHO8T TERM TEMPORARY 

TLe2 1OLTTO 

T2e2 yOLTTO 

T3e2 HHISTORY OF &ND 

RNOLO?S sOLTTO 

RNOZS? pRANMOMIZER 

RNOCT#2 LOW LIMIT OF STRING STOQAGE 
LOSTRe2 sHIGH LIM[T OF STRING STORAGE 


} #9THESE NEXT TWO MUST 


' OF SAME WORD 


ooeV 
TOEV 
TPHO 
KBWO 
ECHOSP 
CNCFLG 
CNOFLG 
FILLCO 
FILLNO 
FILLCH 
SPARE 


I 
§ wel/o 


1 
BSTRT 
BENO 
BGETL 
BGET2 
BPuT 


HISTRe2 
OOEVey 
ODEYs2 
TPHOe? 
KBHOO? 
ECHOSP42 
CNCFLGeL 
CNOFLGes 
FILL CO#s 
FILUNGeS 
FILLCHes 


BE LO BYTE AND HI BYTE, RESPECTIVELY, 


OUTPUT OEY CODE (TTYs@,PTs2,LP=4) 
HINPUT DEV CODE (TTYa@,PRE2) 
pHOLDS START OF TELEPRT RUFF HOR 
sHOLOS START OF KBO AUFF HARK 

yADDR OF NEXT ECHO CHAR (IF “ON@A) 
pf0C! FLAG, NON®® IF PENDING 

$4000 FLAG, OTTO 

sFILLeCOUNT 

INO OF FILL CHARS , 

ICHAP BEFORE FILL 

y CSPARE BYTE] 


BUFFER HEADER oF FSETS 


5g 
a2 
"4 
86 
a18 


JGRL) 

IBEND CRE 
VOGETLER 
HOGETZER 
HBPYUTIRE 


START oF BUFF, 


) FNOD OF BUFFER 
1) FIRST GET POINTER 
1) SECOND GET PTR, 

b) PUT era, 


BASIC, 


362 
363 
364 
365 
366 
367 
368 
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369 
378 
374 
372 
373 
374 
375 
376 
377 
378 
379 
38o 
384 
382 
383 
384 
385 
386 
387 
388 
389 
398 
392 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
426 
407 
408 
409 
419 
411 
412 
415 
414 
415 
416 
417 
418 
ag 
420 
421 
422 
423 
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080400 
000402 
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Va2s 
882822 


880800 
909800 


ve2s 


886204 
380202 
380203 
080204 
300205 
890206 
080207 
290218 
80241 
290212 
889213 
200224 
280215 
900216 
300217 
900222 
80224 
900222 
888223 
200224 
300225 
80226 
908227 
880250 
300232 
208252 
200253 
4982354 
2802355 
688256 
200287 
0B0240 
008244 
200242 
9808243 
200244 
300245 
300246 
000247 
280250 
380251 
298252 
290253 
380254 
280255 
880256 
300257 
200260 
380261 
800262 
3263 
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ersPec %12 ierSPECtRS) SPectak “ORD © USE PaRTIc. T" DEV 
| 

J} s*SYSTEM VARIABLES 

' 

CLMNPPH »WORD = 8 SPAPER TAPE PUNCH COLUMN POSITION 

CLMNLP} ,WORD LINE PRINTE® COLUMN POSITION 
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) 

} ee SYSTEM TOKEN DEFINITIONS 

’ 

' 

sEoLs 284 JGEGINNING OF SEAYFNCE USED AY *KEYWOS! AND ‘TABLEL 
,ENOS =, E0Le1 

:FORS =, ENDedL 

,GOSUBs ,FOReL 

,GOTOs ,GOSUB+L 

iiFs ,GOTOes 

INPUTS (IF ot 

LETS, INPUT#L 

iNEXT®  LET#S 

:PRINTS ,NEXT#L 

)RETURNS, PRINT#L 

:StOPs  ,RETURNGS 

,O0{Me =, STOP ay 

+RANOOMS,OIMeL 

RESTOR, RANDOM+4 

;REMs = , RESTOR+4 

,OEF®  REMOL 

:READs ,DEFes 

sOATAs ,READOS 

sCALLs «=, DATAeL 

,£0Fs ,CALLe% yENO OF SEQUENCE USEN AY /TARLEL! 
rAMPERS2, EOF et 

;UPARROs, AMPERS*L BEGINNING OF SEQUENCE JSEO AY /TABLE2t ANU OPR PREC, 
:STARs ,UPARRO+S 

SLASHs ,STARSL 

sPLUSs =, SLASH#2 

VNARYS ,PLUS#L 

rMENUS® ,UNARY@L 

rTERMs ,MINUS#1}ENO OF SEQUENCE USE” RY !TARLEQ! 
rSEMI= «, TERM#S 

rRPARS = ,SEM{o4 

Toe  RPARSL 

,STEPs § , TOod 

sTWENS =, STEP OL 

iCOMMAR ,THENSSL 

hes ,COMMACL 


us hEOt 
1GEs sEQed 
66s GEo4 
NES ,EGoL 
,EN® sNEOL 
bts rENOS 
1Gts rh Tod 
,£Q3 (Tot TEND OF SEQUENCE USEN RY OPERATOR PRECEDENCE 
tLPARs § ,£Q64 


,OQUOTs ,PAReL 

1SQUOTs ,OQUOTe1 

1GOLON 8, SQUOT+s 

+POUND= ,COLONSL 

1FN® 1POUNDOL 

yRNOL® ,FN@{ BEGINNING OF SEXUENCE USED HY 1TABLESE 


BASIC. 


424 
425 
426 
427 
426 
429 
430 
433 
432 
433 
434 
435 
436 
437 
438 
439 
44o 
aay 
442 
443 
444 
445 
446 
447 
448 
ag 
458 
454 
452 
453 
454 
455 
456 
457 
458 
459 
468 


BASIC. 


46% 
462 
463 
464 
465 
466 
467 
468 
409 
4728 
4714 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
499 
494 
492 
493 
494 
495 
496 
497 
498 
499 
589 
5a1 
522 
583 
504 
305 
506 
507 
508 
509 
518 
54 
512 
543 
514 
515 


MACKXA4 
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090404 
000405 
880406 
090407 
900418 
000411 
800412 
800413 
800414 
000415 
009416 
000417 
900428 
800421 
889422 
808423 
900424 
800425 
082426 
829427 
800438 
308431 
880452 
900434 
880435 
0004357 
900449 
200442 
208443 
800445 
900446 
880459 
900451 
680453 
000454 
900455 
900456 
000457 
900460 
200461 
208462 
900463 
800464 
600465 
BBS466 
380467 
90047@ 
200474 
300472 


Voes 


380264 
089265 
883266 
900267 
080278 
380274 
300272 
088273 
380274 
280275 
300276 


08277 


880300 
880321 
808302 
000303 
800304 
200374 
880375 
280376 
ABOS77 


vo2d 


253 
232 
955 
234 
852 
230 
057 
232 
136 
227 
058 
255 
052 
237 
134 
204 
046 
226 
873 
236 
054 
243 
336474 
244 
O75 
244 
836476 
246 
875 
246 
837074 
259 
276 
258 
a74 
252 
276 
253 
075 
234 
a42 
256 
o47 
257 
o72 
2608 
043 
264 
133 


22eMARe73 


22eMARS7S 


074 


976 


a74 


16405 PAGE i404 
iRNDe sRNOL eS 
Stns =, RNDeL 
1COSs rSINey 
:SQRs =, COSet 
sAPNe | SQReY 
sEXPs | |ATNOY 
:b0Ge =, EXP 
1ABSe 1h0Ges 
ints ABSey 
1SGNe eUNTey 
TAGs SGNeL 

aT PNOF 
sLENs =, TABOL 
ASC aLENod 
rCHRSs = ,ASCoL 
2POSs sCHRSoy 
,SEGe »POSe1 
Vale = ,SEGeL 
:STRe | VALed 
sLISTs ,STRey 
,ENOC 
alFOr 
sQISTs ,TABed 
sENOC 
sRUN® — LEST#L 
+SAVER RUNS 
,OUOs sSAVEos 
sSCRe_ OLD es, 
sCLEAR@ ,SCRey 
rPLITs 374 
ebbifie 375 
sTLIT22 376 
s TEXT 3377 
16485 PAGE 42 


1 
' 
H 
' 
' 
y 
KEYWOS! 


SNOSTR 


HEND OF SEQUENCE YSED Sy /TABLES! 
IBEGINNING OF SEQUENCE USED HY ‘TABLES? 


SNOSTH 


JEND OF SEQUENCE USED SY ¢ TABLES’ AND fKEYWUSS 


e°KEYWORD TABLE 


ENTRIES ARE QROEREO BY THEIR FREQUENCY oF 
OCCURRENCE, ALPHA KEYWORDS START AT ‘KEYAr, 
sASCII foe 
BYTE aPLUSs 
sASCII fed 
sBYTE =, MENUS 
sASCIY fae 
BYTE «=, STAR 
sASCIIT 46 
1BYTE =, SLASH 
sASCIY fF 08 
1BYTE =, WPARKO 
rASCIT C8 
:BYTE =, LPAR 
sASCII fF )F 
:BYTE =, RPAR 
sASCIL YF 
:BYTE =, EOL, 
sASCIL fad 
BYTE AMPERS 
vASCIY oye 
«BYTE =, SEM! 
sASCIT yt 
:BYTE =, COMMA 
sASCIT Cae 
BYTE = LE 
sASCIT tage 
BYTE |= LE 
sASCIT ' Dae 
BYTE G2 
rASCIY tape 
sBYTE = GE 
sASCIET 1 Cpe 
BYTE = NE 
sASCTI fF DGE 
BYTE =, NB 
sASCIT CE 
sBYTE Gh? 
sASCIT «4 
BYTE =, GT 
sASCIT fat 
BYTE 60 
sASCIY mE 
BYTE sQGUOT 
sASCTT tee 
sBYTE =, SQUOT 
sASCIL ye 

i BYTE eGQLON 
sASCIT mt 
:BYTE =, POVNO 
cASCIT CF 


BASICL 


516 
517 
518 
5419 
528 
522 
322 
323 
524 


325 
326 
527 
326 
329 
338 
333 
332 
333 
334 


535 
336 
537 
538 


539 
540 
544 
342 


543 
544 
545 
546 
547 
548 
549 
550 
554 
552 
553 
554 
555 
556 
557 
558 
559 
560 
doa 
562 
563 
504 
565 
566 


BASICL 


567 
568 
569 
578 
574 
572 
573 
574 
575 
576 
577 
578 
579 
589 
381 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
638 


604 
602 


603 
6a4 
635 
626 
607 
608 
629 
610 
614 
612 
613 
614 
645 
646 
647 
618 
619 


MACKX4A4 


080473 
080474 
008475 
088476 


990502 
888503 
998506 
390507 
300514 
990515 
999516 
080522 
308523 
080527 
890538 
008535 
308536 
080544 
890545 
800552 
900553 
080554 
000562 
890563 
900578 
860571 
880572 
090608 
969601 
880606 
990607 
090618 
600613 
BOR614 
000620 
890621 
0890626 
828627 
980634 
320635 
280642 
880643 
800645 
898646 
890652 
980653 
0890656 
200657 
800663 
890664 
200678 
800671 
890675 
908676 


MACX41 


908702 
009783 
200707 
000718 
200714 
890715 
000721 
980722 
980726 
980727 
208733 
300734 
988749 


300744 
000745 
002746 
880754 
800757 
392760 
802766 
960767 
990772 
300774 
800775 
201008 
301004 
881005 
881906 
881011 
201012 
281016 
881017 
301022 
80Y025 
881026 
881027 
901032 


Ve22 


255 
135 
237 
042534 


219 
aut 
286 
107 
046 
205 
047526 
203 
048 
240 
942516 
211 
352940 
242 
049 
a40 
241 
047507 
204 
122 
116 
213 
947143 
207 
128 
249 
222 
042522 
220 
042526 
224 
122 
222 
194 
223 
103 
224 
106 
262 
847122 
263 
122 
204 
123 
265 
847503 
266 
123 
267 
952401 


Vo22 


278 
425 
274 
347514 
272 
101 
273 
A47242 
274 
123 
275 
340524 
276 


194 
215 
240522 
055432 
216 
342522 
105 
217 
252123 
214 
125 
222 
114 
277 
352522 
340 
340523 
301 
147 
362 
123 
383 
103 
304 


22eMARa7S 


o2e.e4¢ 


020106 
920117 


020122 
047524 
852258 
042510 
52223 


852523 
952105 


052520 
944522 


115 
820106 
040505 
052102 
046102 

114 
o24104 
042116 
o47ii4 
824423 
054122 
024316 


22eMARe7S 


950130 
024307 
051502 
024124 
047107 
024102 


946511 


042116 
125 


052425 


050117 
942216 
a51521 

116 
042526 
0424344 
051105 


042514 


847524 


049 
940 
820116 
050195 


820102 
051125 


020124 
52116 


920104 
920101 
G20114 


850 


250 


58 


258 


Pry) 
246547 


O51147 


124 


16185 


16195 


KEYAI 
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sBYTE 
sASCIT 
BYTE 
ASCII 


BYTE 
eASCIT 
sBYTE 
rASCI 


BYTE 
sASCIL 
BYTE 
rASCTT 
BYTE 
ASCII 
BYTE 
ASCII 
BYTE 
ASCII 


BYTE 
sASCIE 
BYTE 
sA8SCII 


BYTE 
sASCIL 
BYTE 
ASCII 


sBYTE 
ASCII 
sBYTE 
ASCII 
+BYTE 
sASCII 
iBYTE 
sASCII 
BYTE 
ASCII 
18YTE 
sASCTI 
,BYTE 
sASCII 
iBYTE 
ASCII 
BYTE 
ASCII 
:BYTE 
sASCIY 
BYTE 
sASCIY 
sBYTE 
eASCIT 
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sOYTE 
sASCII 
1BYTE 
sASCII 
sBYTE 
sASCIL 
BYTE 
sASCIT 
sBYTE 
ASCII 
BYTE 
sASCIT 
\BYTE 


vTFNOF 
sASCII 
:BYTE 
sASCII 
(BYTE 
sASCII 
BYTE 
ASCII 
‘BYTE 
sASCII 
BYTE 
sASCII 
‘BYTE 
ASCII 
BYTE 
,ENOC 


ASCII 
BYTE 
ASCII 


»BYTE 
sASCT 


BYTE 
sASCII 
sBYTE 
sASCIT 
iBYTE 
»ASCII 
sBYTE 
sASCY] 
‘BYTE 
ASCII 
1BYTE 
ASCII 
BYTE 
sASCTI 
»BYTE 
ASCII 
sBYTE 


PAR 
hha 


,RPAR 
"WET! sSTAPT OF ALPHA KEYWORDS 


the 
[pe 


iF 
"GO TO ¢ 


18070 
'FOR ¢ 
FOR 
‘yore 
Pet) 
TNEXT ¢ 
NEXT 

( THEN ¢ 
e THEN 

‘ STEP ¢ 


aZrer 
'Gosus ¢ 
,G0SUB 
tRETURNG 


/RETUKN 
hInput « 
a UNPUT 

PRINT ¢ 


sPRINT 
*REME 
yREM 
‘OErF ¢ 
,OEF 
*READ ¢ 
READ 
tOaTa ¢ 
DATA 
*CALL ¢ 
GALL 
(PNG 
FN 
FRNOGE 
»RNOL 
*RNOS! 


yATN 
f Exper 


focee 
+406 
*ABS(E 


HANOOMIZEt 
a HANDOM 
RESTORE? 


RESTORE 
‘STOPS 
vSTOP 
‘ENDS 
1 ENO 
'LysTe 
thts? 
*RUNE 
a RUN 
SAVE? 
1 SAVE 
OLD! 
1940 
‘SCRE 
SCR 
‘Clee 
GLEAN 


BASIC, MACX24 VO2a 22eMARe73S 46105 PAGE 1203 


620 

624 8010353 oog BYTE a F 

tee EVEN sEnO OF TABLE FLAG 
623 COT 

024 


BASICL MACXLL Ve21 22eMARe73 36485 PAGE 15 


625 U : SOURCE FILE #2 
626 OTST ICI ee 
627 POPSHHSSSEOEHHHSEHESOSHHEEEHHHCEHE 










628 OP CCCeoeees 
629 MAIN FLOW ROUTINES ebeneveooere 
630 eteneees . 
634 POOR OROOOOEOHEEOCOHOEEDODORECOHEHOHESHEOEDESEOH ODED 
632 14OOO00HFOROOD HERO ODEHREROSEDEDESODOD HOOF EDEEOOOECE 
633 
634 
635 
636 
637 1 
tse J START = PROGRAM STAKTING POINT 
i 
648 881934 316705 ageg00G STARTI MOV USRAREA, RS 
64. 881040 916506 800004 MOV POL(RD),SP 
642 381044 285965 200104 CLR ECHOSP(RS) 
643 901059 094767 207096 ° JSR PC, BUFCLR sCLEAR OUT ALL 170 RING QVFFERS 
644 801054 916526 o80004 SCRATCHIMOV POL(R3),SP 
645 G81060 004767 042700 vgr PO, INITSCR 
646 881064 3284767 827554 CLEART JSR PC, CLAVARS 
oe 801878 880402 8R READY 
64 


BASIC. 


049 
658 
653 
652 
653 
654 
655 
656 
657 
658 
659 
668 
664 
662 
663 
664 
665 
666 
667 
668 
669 
678 
671 


BASICL 


672 
673 
674 
675 
676 
677 
678 
679 
688 
684 
682 
683 
084 
685 
686 
687 
688 
689 
690 
694 
692 
693 
694 
695 
696 
697 
698 
699 
738 
701 
702 
703 
704 
705 
706 
707 
708 
7209 
710 
714 
712 
713 
714 
715 
716 
717 
718 
719 
720 
72u 
722 
723 
724 
725 
726 


MACKIL 


901072 
801076 
901182 
881126 
881112 
003128 
004124 
804130 
8041152 
004137 


301140 
901144 
684158 
001153 


391154 


MACX24 


881168 
1164 
004166 
884174 
304176 
881202 
01206 
081210 
801212 
301216 
901228 
884222 
001224 
801226 
0812356 
381232 
801236 
221240 
201244 
901259 
881252 
881254 
881268 
884262 
B8L266 
801270 
901274 
801509 
881302 
281396 
064318 
801312 
801314 
884316 
804520 
981322 
81524 
381330 
881552 
891354 
881336 
201340 
34544 
301350 
901352 
881354 
831556 


vear 


084767 
446506 
085865 
285965 
812765 
060565 
884167 

e415 
242522 

oeB 


916526 
204167 
O15 
ove 


895865 


Veet 


004767 
193026 
127527 
801336 
200167 
004767 
905204 
010146 
916501 
160116 
112100 
100417 
029300 
152100 
064528 
021927 
123011 
916504 
024627 
281033 
085016 
005260 
000407 
105765 
304334 
000167 
984767 
a19104 
124127 
224452 
111193 
190778 
905221 
080303 
152193 
761503 
821327 
193361 
221013 
104357 
281036 
304767 
121127 
eo1427 
114433 
108772 
205221 


22eMARG73 


207034 
30004 
9a0126 
oeeo76 
290036 
890034 
044346 

oi2 
042103 


880004 
914524 
0212 


890B76 


22eMARe73 


813168 
OeBe16 
315642 
216146 


890020 


177775 
990016 
280083 
290002 
908077 


989454 
015660 


609225 


177775 


015614 
ea90225 


880834 


431 


b12 


890225 


16165 = =PAGE 14 


De ccccercngeccccnneecccen ances ccwsees cece eececeseccceces 


' 
} READY » PRINT 


' 
REaOYe? JSR 
READY! MOV 
CUR 
CLR 
MOV 
400 
JSR 
1BYTE 
sASCII 
sBYTE 2 
EVEN 
READY2) MOV 
JSR 
iBYTE 


TOINTTY CLR 


16105 PAGE 45 


"READY! 


pC, BYFCLR ICLEAR ALL 3/0 RING SUFFERS 
POL(RS),SP 

CNCFLGIRS) - s1eCr AND #908 FLAGS 

ODEV (KS) 

#GLMNTTY, COLUMN( RS) ISET TO COUNT TTY COLUMNS 
RD,COLUMN(RS) 3 NAW 

RL MSG 

CRLF 

"READY? 


POL(R3),SP 
RY MSG 
CRyLF abr 


ODEV(R5) JCLR ODEV ANO IDEV BYTES JN 'ISER AREA 


rete eet a a 


’ 
| eolr e 


¥  GEY LINE, TRANSLATE INTQ TOKENS, AND Move LINE INTO 
§ USER CODE SPACE, WITH ALL ENTRIES MADE INTO USER 

1 SYMBOL TABLE, ARRAY SPACE, AND STRING SPACE, 
H 
E 


Olt JSR PC, LINGET 
ece eCOvTL HNORMAL INPUT LINE 
CmMPB @CODE(R5S),#,£0F ;CHECK EMPTY PROGRAM 
BNE READYO §NO, RETURN TO TTY INPUT 
ume DEVERK HYES, DEVICE NOT READY 
EDITL: SR PC, TRAN 
tne RL 
MOV REye(SP) 
MOV LUNE (KS) Re 
SUB Ri, (SP) 
MOVE CRG) op RO 
BM} EOIMMED 
Swap RO 
CRY) CREO RO 
aod (R35), RO 
CMP (RO), #, SCALAR 
BHIS ED{MMED 
MOV CODE(HS) RY 
CMP (SP), 93 yIF THERE ARE ONLY 3 BYTES THEN THE LINE 
BNE EQISRGH ICONATINS LINENO,CR 4NO MEANS DELETE, 
CLR (SP) 
CLR 2¢RQ) 
BR EQUSRGH 
EDIMMEDITSTB TOEV(KS) 
BNE EOIT HIGNORE IMM STMTS FROM NANSITTY 
UMP IMMED 
EDISKIPIUSR PC,SKIPEOL 
EDISRCWEMOV Ri, RS 1Ra POINTS TO |INENO OF THE “EW LINE, 
CMPB (RL), # EOF tOES®) CONTAINS LENGTH OF THE NEw LINE, 
cra") EQIPUT 
MOVE CRE) RS 
BMI EOTSKIP 
INC RL 
SWAB RS 
81SB CRO) OARS 
aod (R35), RS 
che CR3) 1 #, SCALAR 
BHIS EDISKIP 
CMP (ROD, (RS) 
BHI EQISKIP 
BNE EOUPUT 
EDIPASSIt VSR PC, SKIPEO., 
cMPB (RL), #, EOF 
Cae) EOSOVER 
MOVE CRY RS 
BMy EVIPASS 
INC RL 


BASICL 


727 
728 
729 
730 
734 
732 
733 
734 
735 
736 
737 
738 
739 
740 
74. 
742 
743 
746 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
768 
764 
762 
763 
764 
765 
766 
767 
768 
769 
770 
774 
772 
773 
774 
775 
776 
777 
778 
779 
789 
784 


BASICL 


782 
783 
784 
785 
786 
787 
788 
789 
790 
794 
792 
793 
794 
795 
796 
797 
798 
799 
800 
8a. 
aoe 
ee3 
8a4 
805 
806 
827 
898 
809 
812 
81a 
812 
813 
a14 
815 
616 
817 
818 
819 
822 
824 
622 
823 
824 
825 
826 
627 
628 
829 
830 
832 
832 
833 
834 
835 
836 


MACXLL 


983562 
881362 
04304 
901566 
984372 
804374 
801400 
301424 
824412 
221412 
O81414 
204416 
304429 
004422 
081424 
881426 
304438 
001432 
BB1434 
081436 
oos44g 
aaiese 
001459 
001452 
31454 
803456 
801468 
ai4e2 
BBL 4646 
002466 
081478 
904472 
901474 
281476 
oBi508 
381502 
801504 
801506 
994510 
881512 
Bai5i4 
Oa1516 
804522 
01524 
321526 
0815350 
004532 
804536 
001548 
381544 
301546 
301558 
981552 
901554 
801556 


MACXL4 


801560 
901562 
901564 
801566 
801572 
301572 
901574 
001600 
881682 
201606 
901612 
301614 


201620 
884624 
281638 
361632 
301634 
881656 
901648 
201642 
381644 
801646 
801658 
384652 
301654 
221656 
301668 
3B1664 
301666 
201678 
881672 
BO1674 
301676 
381720 
BO1704 
981706 
901719 
384712 
3B1714 
901716 
301728 
301722 
391726 
301738 


ve2i 


200323 
152423 
264503 
821327 
103362 
162704 
916508 
916502 
321004 
104423 
324021 
191024 
295039 
285728 
905322 
883370 
160404 
200401 
305901 
164602 
016580 
916502 
821004 
183403 
160110 
895729 
803302 
003372 
099704 
100433 
884473 
010422 
061622 
910223 
360123 
112322 
320315 
123775 
199742 
204424 
885202 
030227 
804424 
108922 
010215 
42322 
320365 
183774 
010265 
900404 
905922 
B202u5 
183775 
9090444 
011508 


YO2a 


1095749 
301402 
205208 
160120 
010083 
028203 
242783 
164503 
966503 
220365 
104482 
290167 


216502 
949365 
360404 
OL4243 
28215 
104375 
340315 
105043 
3yaeve 
060108 
7BB404 
114042 
920024 
101375 
216508 
810404 
342682 
380404 
122024 
205382 
202375 
1241127 
OO1447 
121122 
180412 
OB5201 
288302 
152102 
061502 
222227 
193003 
¢19412 


22eMARe73 


177775 


aooee2 
290004 
290032 


890204 
880852 


200081 


080014 
888024 


22eMARe73 


289004 


600014 
gaogi2 


816524 


OBO014 
290024 


opee2o 


890225 


477775 


16105 


16485 
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Swag 
aise 
ado 
cme 
BHIS 
sus 
MOV 
MOV 

EDICNG) CMP 
80S 
CMP 
BHI 
CLR 
TST 
oec 
86T 

EDLOVER!SUB 
BR 


EDIPUT! CLR 
sys 
MOV 
MOV 
EOIMOOF ICMP 
80 
Sus 
rst 
oEC 
BGT 
TS? 
BMI 
BEG 
EDICONTEMOV 
aod 
MOV 
aoo 
EDIMOVE IMOVE 
CMP 
840 
rsTe 
BEQ 
TNC 
ay? 
EQ 
CLRB 
MOV 
MOV 
CMP 
ayo 
MOV 
BR 
CLR 
GMP 
go 
BR 
EDIGROWSMOV 
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TS78 
89 
INC 
3u8 
MOV 
INC 
BIC 
sua 
a0 
CMP 
BLOS 
ERROVA} JMP 


e UPNOF 
MOV 
TST 
CMP 
G0 
JSR 
CMP 
BHIS 

+ ENOC 


EDTROOMIMOV 
MOV 
BR 

EOLMVUPTMOV 
CMP 
BHI 
MOV 
CURB 
MOV 
400 
aR 
MOVB 
cmp 
BHI 

EO{SAME MOV 
MOV 


MOV 
BR 
MQVB 
ore 
GE 
EDIRLCAICMPB 
BEO 
MOVB 
BMS 
INC 
SWAB 
8188 
ado 
CMP 
BHIS 
MOV 


RS 

(RL) O,RS 

(9) RS 
(R3),#, SCALAR 
EDIPASS 

#2,RL 
POL(RD),RO 
GSBCTH(RS),R2 
CHB), RE 

1°ho 

(RB) RL 

104 

(RB) 

(RO)o 

R2 

EDICKG 

R4, RY 

see 


ay 

COP) RE 
POL(RS) RO 
GSBCTH(RS),R2 
CRO), RA 
44 

RA, CRO) 
(ROO 

R2 

EDIMOQF 

R 


EO {GROW 

EQUSAME 

R4,R2 

COP) RZ 

RQ,R3 

RU,RS 

CRI) Og (R206 

RJ, (RO) 

EQIMOVE 

wo (R2) 

14 

RZ 

R2, 84 

1t4 

(R2)@ 

R2,(R9) 

(RS) Oy (R206 

R3,LOFREE(RS) 
6 


? 

RQ, LOFREE(RS) 
#4 

(R2)6 

RO,RS 

a4 

EQISAME 

(R5), RO 


(RO) 

104 

RO 

RYARO 

AB,RS 

RS 

#4,RS 

(R5),KS 
LOFREE CRS) ,R3 
AS ;HIFREE(RS) 
1%6 

ERROVE 


SNOSTK 
R3,R2 

CR2)¢ 

RZ, LOSTRIRS) 
ED}ROOM 

PC, UPPACK 
R2,LOSTRERS) 
ERROVY 


LOFREE(RS),R2 
R3,LOFREE (RS) 
a4 

(RZD) eCRS) 
R2, (RD) 
EDIMVUP 

RS, (RO? 

#(R3) 


 RO,RZ 


RL, RO 

104 

(ROP OCRZ) 
RB, RA 

04 
LINE ( RS), RO 
R4,RL 
{SP)eyR2 
104 

(ROO, C4)S 
R2 


194 
CRO) 8, EOF 
EQT UMP 
CRE) KZ 
EDIRLOC 

Ry 


Re 

(RY) Oy R2 

(RO) RZ 
(82), 8, SCALAR 
EQTRLOC 

RS, (R2) 


VF A LINE TS CHANGES WHICH IS 
JREFERENCED HY THE READ POINTER,AN F™ 
POINTER OR & GOSUR POINTER THEN THAT 
PPAINTER MUST BE CLEARED 


HR4 “QW @ HCHARS TO CONTRACT, 

SALL REFERENCES BY THE REAN POINTER 
SWHICH REPER TO LINES WHICH ARE MOVEN 
JBECAUSE OF EDITING MUST BE RELOCATED 


pR4 “QW = ADORESS AT WHICH TA INSERT, 


IMOVE DOWN THE CODE, 


RQ “QW POINTS TO BYTE AFTER THE ,EOF, 


sR2 NOW HAS THE NEW START OF THE SYMTAB, 
JMOVE DOWN THE SYMAOLS; 


CLEAR VACATED STRING STARAGF TO ZERNES, 


yRA NOW POINTS PASY THE NEW HIGHEST SYTE 
yOF COME, 


HRS NOW HAS THE NEW START OF SYMTAB, 


yR3 NOW WAS THE NEW VALUE OF LOFREE, 
CHECK TO SEE THAT THERE [S ENOUGH 


CHECK TO SEE THAT THE SPACE THAT WILL 
BE VSED TS NOT OCCUPIED BY STRINGS 


5NO, MOVE THEM UP 
yTRY AGAIN 


iMCVE UP THE SYMTAS, 


CLEAR THE POSSIBLY USED FILLER 
tRO NOW POINTS PAST OLD HIGHEST AYTE 


1OF SYMTABy 
}MOVE UP THE CODE, 


IMOVE THE NEW LINE INTO THE “ODE, 


BASICL MACX12 V@2i 22eMARe73 16105 PAGE 1593 


837 901732 162712 seeee? sys #2, (R2) 

838 304736 904767 015216 EDIAL OCI VSR PG, SKLPEOL, 

839 381742 308756 BR EDIRLGS z 
849 3814744 200167 177210 EOLJMP} MP €or 

844 


BASJCL MACX11 VO2s 22emMARe73 16185 PAGE 16 


042 J ecwnencccqcccgecpecc scons cwwnc nen cenwseceeccesecsccenseceese 


843 

44 1 IMMED © IMMEQLATE MQDE CoMMANDS 

a45 1 ‘ 

846 } 09 IMMEDIATE ONLY GoMMANDS (RUN, LIST» SCRATCH: CLEAR, 
847 ) SAVE, AND OLD) ANQ SET UP OTHEPS (UN@NUMBEPED) FOR 
8468 ! EXECUTE, 

49 ' 

858 801758 712600 TMMED} = MoV (Sp) o—RO IRA "QW WAS # BYTES AN [’PUT LINE, 
851 001752 285965 990076 CUR OQDEVC(RS) yTAKE ONLY THIS IMMED, COMM, FROM NONOTTY 
852 801756 216524 390906 “OV POSJZE(RS5),R4 

853 981762 3165014 298020 MOV LINECRS) RL 

854 901766 205902 CLR R2 

855 981778 154182 ajse CRY PRZ 

856 091772 162702 090277 sue Wy LIST, R2 

857 801776 206382 AS|, R2 

858 982008 220227 o68B12 CMP R2, WTBEL4ENN@ TABLES 

659 g82904 101012 BHI. IMMSTMT 

860 202826 362792 aeou22 aoo #2,R2 

864 802912 260702 aod PC,R2 

862 302814 361207 A00 (RZ) PC 

863 882016 380162 TABLES) ,WORD = UIST# TABLES 

864 a92028 200226 WORD = RUN@ TABLES 

865 o92022 290124 WORD = SAVE @ TABLES 

866 382924 290862 WORD OL De TABLES 

867 902026 177036 eWORD «= SGRATCHeTASLES «(TN fC START! CODE, ABOVE) 
868 382030 177246 TBL4ENDt, WORD CLEARSTABLES SCIN ¢STARTS CODE, ABOVE) 
869 802032 260128 IMMSTMTIA00 RY, RO 

878 082834 829065 oese16 CMP RO, CODE (AS) sSEE JF AN fEOF! CAN BE FIT ON THE LINE, 
871 302040 103402 : 8,0 1% 

872 3882942 390167 015770 IMP ERRIRN. 

873 802046 112738 099225 MOVB #, EOF, (RA) 

874 G82052 942765 177775 000030 MOV # SCALAR, LINENQ (RS) 

875 202068 205965 200036 CLR CRMNTTYCRO) pRE@SET ALL COLMN COUNTS 
876 392064 293067 176519 CLR ChMNPP 

877 302078 185067 176506 CLR CLMNLP 

878 302074 200267 200534 UMP EXECUTE sSTART RUNNING, 


a79 


BASIC, 


88g 
881 
882 
883 
eae 
885 
886 
887 
888 
889 
890 
894 
892 
avs 
age 
895 
896 
897 
898 
899 
9o8 
903, 
902 
9O5 
904 
985 
986 
927 
988 
909 
940 


BASICL 


914 
942 
913 
914 
915 
916 
917 
916 
919 
920 
924 
922 
923 
924 
925 
926 
927 
928 
929 
930 
934 
932 
933 
934 
935 
936 
937 
938 
939 
94g 
944 
942 
943 
944 
945 
946 
947 
948 
949 
950 
954 
952 
953 
954 
955 
956 
957 
958 
959 
960 
964 
902 
963 
964 
965 


MACX41 


302108 
002494 
882119 
op2134 
082129 
392124 
302438 
382432 
802156 


082142 
982446 
802152 
882156 
992160 
882164 


202170 
302474 


902290 
982202 
882206 
082218 
982212 
oe22s4 
802220 


MACX44 


882224 
802230 
BB2254 
982236 
802240 
302242 
802246 
802246 
882252 
892254 
082268 
202262 
082266 
082278 
882274 
882276 
302302 
O82304 
882386 
882312 
802314 
902316 
302328 
802322 
282324 
882326 
882332 
802334 
902336 
882342 
982344 
892359 
982352 
382354 
282356 
282369 
882362 
BB23564 
802370 
302374 
882376 
282402 
882494 
222406 
502419 
ooedi4 
382416 
982422 
a82424 
002426 
802430 
082432 
302434 
882436 


veas 


216506 
204767 
084767 
204767 
284767 
122127 
981402 
200167 
280167 


284767 
984767 
120227 
383404 
294267 

ai4 
382479 
804767 
900167 


985204 
084767 
183770 
321203 
801766 
084767 
080167 


Voa. 


984767 
816504 
112102 
100406 
909302 
152402 
764502 
11265 
112132 
120227 
281415 
120227 
281530 
120227 
801504 
128227 
204537 
905304 
304767 
300759 
112122 
100526 
200322 
152132 
961582 
122127 
201100 
285283 
121127 
704406 
122127 
804974 
121123 
180467 
2809323 
305204 
152428 
012706 
122127 
204423 
124127 
301054 
205204 
ae5a6 
121127 
204426 
122127 
281044 
1i1124 
1020442 
200304 
395224 
152124 
122127 


22emAR®73 «= 16185 = PAGE 4.7 
1 TOLD! COMMAND 
OLo MOV 

WSR 
ySR 
JSR 
vSR 
cMPa 
BO 
uMP 
OLneai) UMP 


} FSAVE! Command 
SAVE! JSR 

JSR 

céPe 

BLE 

vSk 

:BYTE 

vEVEN 
LIsTsSv) JSR 

JMP 


seegus 
314654 
096312 
o1see4 
996200 
000223 


807912 
177626 


814756 
036160 
agee2 


843556 
14 ae 

812606 

176676 


) ALIS?! ComMAND 
LIST! INC 

JSR 

acs 

MOV 

BE 

vsr 

UMP 


B1ite46 


012966 
176652 


22eMAR73 46405 
1 FRUN? COMMAND 
RUNE JSR 

MOV 
OIMLOOPIMOVB 

amy 
SWAB 
81S6 

ado 

MOV 
MOVB 
OLMNONOTCMPB 

8EQ 

CMPB 

Bea 

CMPB 

BEQ 

CMPS 

Bea 

gece 

JSR 

BR 

MOVB 

amt 

SWAB 

R{SB 

ado 

cMPs 

BNE 

CLR 

CMP 

gEa 

CmMPB 

SNE 

MOVE 

aM! 

Swas 

TNC 

aysB 

MOV 

CMPS 

geo 

CMPB 

§NE 

TNC 

CLR 

CMPB 

8E0 

CMPB 

BNE 

MOVE 

BMy 

SWAG 

TNC 

8,SB 

CMPB. 


PAGE 48 


096174 
O80R16 


390050 
908215 
6eo22, 
299216 
980225 


344646 OEFOUNI 


OMMGOT! 


088255 


900375 
098376 


ALLOCLt 


177777 
020237 


208245 


988375 
888376 


ALLOC2} 
290237 


POLCRD), SP 
PCy INI TSCR 
AG CLAVARS 
PG, SCANPNO 
PG, CHKISET 
(RQ) o,8, EOL 
OL0804 
ERRSXD 

EOIT 


PG, SCANPNOD 
PC, CHKOSET 
R2,82 
LESTSV 

Ra, MSGOOEV 
FF FF )o 


PC, LSTPROG 
READY 


oFUINE 
STSV 

2) yk 
STSV 

sb STLOOP 


RY 
PG 
ut 
cR 
At 
PC 
READY 


PC, CLAVARS 
CODE(NS) RY 
(HY) oy R2 
DUMNONO 

Re 

(RL) Oy RZ 

(R5) pR2 

CR2) ph INENO(RS) 
CRE) HyRZ 
R2,8,01M 
OyMGcor 
R2,0,0EF 
DEFGOT 
R2,#,RANOOM 
RNOGOT 
R2,8,60F 
OUMDONE 

RY 

PG, SKIPEOL 
OMLOOP 
(RL) oe RZ 
ERROIM 

R2 

CR4) ep R2 
(R5),K2 
CRE) 6, # UPAR 
ERROIM 

RS 

CRU) MILE TS 
ALLOCL 
CRE) Oye ILIT2 
ERROIM 

(RY), RS 
ERROIM 

R3 

Ry 

CRYO ARS 
wat, R4 

(RL) o;#,RPAR 
OOALLOC 
(R199 8, COMMA 
ERROIM 

RY 

R4q 

CRED MILI TS 
ALLOC2 
CAL) eo, #,TLIT2 
ERROIM 


(RL), R4 
ERRO[M 

R4 

Ry 

(RL) 4) R4 
(RY) oO, 8, RPAR 


sFLUSH OUT SYSTEM 
ISCRATCH 


ISCAN OFF tat 
sCHECK AND SET INPUT 
sMUST END LINE RIGHT 


HTHIS DOES THE REST 


ISCAN OFF fat 

CHECK AND SET@UP OUTPUT 

HLINE PRINTER? 

INO LIST TAKES OVER 

HFOR LPT, START W/ 2 FORM@FEFOS 


jGET ADOK OF CODE LINE 
HUF UNDEF, NORMAL LIST 
sLIST PARTIAL PROGR 


BASICL 


966 
967 
968 
969 
979 
972 
972 
973 
974 
975 
976 
977 
978 
979 
veo 
yey 
982 
983 
984 
985 
986 
987 
988 
989 
999 
994 
992 
993 
994 
995 
996 
997 
998 
999 

12008 
1901 
1082 
1203 
1204 
1205 
1906 
1207 
1228 
1009 
1919 
1024 
41212 
2013 
4014 
1015 
1016 
4017 
1618 
1019 
1028 


BASIC. 


e214 
1p22 
4223 
1224 
1923 
1026 
1027 
1928 
1029 
1238 


MACKX14, 


982442 
002444 
282459 
802452 
002454 
002469 
882462 
892466 
202472 
082474 
992509 
882502 
202504 


802506 
392514 
082522 
392526 
982530 
802534 


8925356 


092544 
902542 
382544 


002547 


302559 
002554 
082556 
882569 
002564 
982566 
9025798 
002574 
802576 
802608 
082602 
982606 
902612 
082616 
902622 
302626 
892632 
902654 


MACX44 


302648 


382643 
802644 


Vo2t 


801034 
821227 
904434 
882403 
295762 
190025 
204767 
122127 
3047198 
124127 
901015 
205201 
282653 


946565 
132765 
122127 
04642 
080267 
988004 


042441 


908 
apeon4 
o42aas 


122127 
801372 
112102 
266502 
085722 
804365 
122127 
081562 
940122 
980642 
025965 
985067 
305967 
846504 
816504 
121127 
801018 
004167 


Voas 


850116 


808 
600167 


22eMARe73 16405 PAGE 1804 
BNE ERROIM 
177776 OOALL OCI Cup (K2),8,NVAR 
BEO ERROIM 
aur DIMSCLR 
900004 TS? 4¢R2) 
oPL ERROIM 
005070 DIMSCLRIUSR PG, ALLOC IVAR(R2),SS2¢R3),S8264) 
909243 curs (RE) o,#, COMMA 
8E0 OIMGoT 
gg0203 cMPB e(R4)) 8, E01, 
BNE ERROIM 
INC ay 
8R O;MLOGP 
SRANOOMIZE STATEMENT 
200870 889064 RNOGOT) MOV RNOCT(RS),RNOLERS) 
OgB004 200064 BISB BL RNOL CRD) 
oge203 cMPB CRE) 658, EOL 
6E9 OMLOOP 
8O7214 UMP ERRSYN 
ERROIM) 107 
sIFNOF SLONGER 
425 ASCII ¢fOme 
+ENOC 
sIFOF  SLONGER 
sASCILT *ULLEGAL OEMs 
vENOG 
:BYTE @ 
s EVEN 
ERROEF} for 
1TPNOF = SLONGER 
306 sASCIE NULOFN 
sENOC 
+IP0F = SLONGER 
sASCIL ILLEGAL Ders 
sENOC 
BYTE 8 
EVEN 
ago26e2 OEFGOT) CMPO (RY), 8, FN 
BNE ERROEF 
Move (RE), R2 
ogonns 400 POLCRD) RZ 
TST (RQ) 
BNE ERROEE 
890895 cure (R4)e,8,LPAR 
BNE ERROEF 
MOV RL, (RZ) 

. aR OGFOUN 
2900356 OIMDONEICLR CUMNTTY(RS) SRE@SET ALL, COLUMN COUNTS 
175566 CLR CLMNPR 
175564 CLR ClMNLP 
900886 MOV POS}ZE(R5),R4 
088816 MOV CODECKS) Re 
000225 cups (R4), 8, £0F 

BNE EXECUTE ISTART RUNNING, 
012626 ERRRUNI VSR RZ, MSGERR 
22eMARe7S «= 16105 = PAGE 1802 
tTPNDF = SQONGER 
122 sASCTT NPR 
sENOC 
sJFOF =SLONGER 
sASCIT §NQ PROGRAM! 
ENO 
sBYTE 2 
1 EVEN 
176270 ump READY? 


BASTCL 


2033 
1032 
4933 
1034 
1035 
2856 
1037 
1038 
4239 
1048 
1044 
1242 
1243 
1044 
1043 
4346 
1047 
1048 
1049 
40508 
4054 
1252 
1053 
4054 
4053 
1056 
14057 
1258 
1959 
1060 
4063 
4062 
4063 
1064 
1265 
4266 
4267 
1068 
1269 
142708 
107% 
1072 
1273 
1074 
12975 
1876 
4077 


BASICL 


1278 
1979 
1080 
1982 
1082 
1283 
1984 
1085 
1286 
1987 
1288 
4089 
1090 
109% 
1992 
1293 
41094 
1295 
1996 
1097 
1098 
1099 
1100 
1aet 
1102 
1103 
juga 
4105 
1106 
1107 
1208 
1109 
1110 
42111 
1212 
1113 
4ai4 
2415 
1216 
4247 
1218 
4119 
1420 
1221 
4122 
1123 
1124 
112 
41126 
4127 
4128 
1129 
1130 
1131 
1132 


MACXA1 


802650 
882654 
892668 
082662 
982666 
882672 
082674 
802676 
892702 
802704 
882710 
982712 
082714 
892716 
822720 
002722 
802724 
982726 
902758 
882732 
8027354 
882736 
892749 
082742 
002744 
802746 
802759 
092752 
802754 
802756 
892766 
882762 
082764 
892766 
392778 
8B2772 
902774 
982776 
883802 
303004 
083810 


MACKXLL 


883012 
805014 
303020 
223822 
883026 
983038 
A03854 
303856 
883049 
683042 
BO3044 
883046 
003059 
083852 
803254 
BBSO56 


203060 
905864 
893866 


003878 
BO3B72 


383074 
983276 
803190 
383102 
203104 
BO3106 


083110 
803112 
903116 
083420 
203122 
803124 
803126 


yor 


004767 
105765 
991404 
195965 
800167 
142182 
202835 
442782 
896382 
020227 
184127 
900702 
264207 
177736 
880356 
081216 
881036 
881036 
080400 
2027352 
888272 
881726 
82240 
0od142 
BBOS60 
177732 
177732 
01926 
177732 
179732 
803338 
177732 
800074 
200336 
990328 
152102 
06(502 
824227 
103427 
011265 
800724 


ve2a 


112102 
128227 
AOLEAS 
120227 
304068 
122127 
404055 
940128 
205823 
@B5203 
19572) 
381375 
122122 
201046 
393303 
991442 


013782 
004437 
040246 


1057142 
081434 


940046 
310346 
122922 
081034 
285303 
381374 


101683 
862723 
ap2422 
304404 
105722 
ao1823 
395323 


22aMARe73 


344504 
BOB106 


800426 
176204 


477600 
290052 


477775 
890830 


22eMARe7S 


080257 
888256 
830577 


000046 


208804 


16105 PAGE 49 
J waweccncegennencqgoceccesgengcennseresenensenscoecsersocsese 
} EXECUTE © EXECUTE COMMAND LINE 
TGNoRE! JSR eG, SKiPeol 


EXECUTENTSTB © CNEFLG(RS) peocr WIT? 
BEO NOCNC 
CLRe = CNCFLGERS) 
Pi ld REAOY 
NOENC} OVE (RL) o,R2 
BGE NOTSYM SETS A POINTER, 
BIC #u208,RZ 
ASL, R2 
cup RZ, #TUL LENDS TABLE LOZ 
BH! ERRSX}, INOT A STATEMENT WORD, 
400 PG,R2 
ado (R2),PC }BRANCH THRU TABLES, 


TABLESS , WORD EXECUTE@TABLES 
WORD ENDe TABLES 
,WORD = FOR@ TABLES 
WORD GOSUBeTABLEL 
;WORD GOTOTABLEY 
»WORQ = [Fe TAULED 
WORD INPUTS TABLEL 
;WORD) = LETeTABLES 
WORD NEXTe TABLES 
sWORD = PRINT@TABLED 
»WORD = RETURN®TAGLES 
:WORD = STOPeTABLES 
WORD «= TGNORE@TABLEL ss 
WORD SGNORESTABLEL 
WORD RESTORE®TABLES 
sWORD = JGNORESTAGLEL 
WORD JGNORE STABLES 
sWORD READ@ TABLES 
:WORD IJGNORESTABLES 
;WORD = CALLeTAGLEL 

TBLLENDI WORD EOF eTABLEL 

NOTSYM! SWAB R2 
apse (RE OPRZ 


abo (R5) RZ 

GHP (2) ,8, SCALAR 

BHIS ASSIGN JNOT A LINENO, 
MOV (R2) pl INENO(RS) $SAVE THE LINENO, 
BR EXECUTE 


16105 PAGE 28 
y POALL! STATEMENT 


) CALL "PROG" (140) 
CALLE 
vTFNOF = SNOSTR 
ySR PO EVAL JEVALUATE FUNCTION NAME 
Bcc ERRSXL 
MOV (SP) 6) RO 
CMP RO, WL77777 ICHECK NULL STRING 
BE0 ERRFNG HYES, ERROR 
MQVe (RO)O,RS yR3 1S STRING LENGTH 
Move (ROH LRODY yR@ 1S ADOR OF CHARS 
,ENOC 
1I7OF  SNOSTK 
MOVE (RL) RZ yR2 1S QUOTE CHAR 
cura RZ, 8, SQU0T 
sea CALLE 
cMPB R2, 8, QQU0T 
BNE ERRSX} 
CALLAE «= GMPB (RL) Ogm, TEXT 
ONE ERRSX} i 
MOV RLARA yR@ TS ADOR OF CHARS 
CLA RS 
CALLPT INE RS HCOUNT CHARS IN RS 
TSTB (AL) 
BNE CALL? 
cmPa (RL) 6 ,RZ ICHECK CLOSING Quote 
BNE ERRSX} 
oEe RY 
gea ERRFNG 
,ENOC 
' INTT TABLE SEARCH 
MOV 0846, R2 
Lp] GRRENY 1NO FUNCTIONS DEFINED 
MOV R2,0(SP) HSAVE ON STACK 
i) CHECK ENO TABLE 
CALLCKI TSTB (R2) 
BEG ERRFNY 
' CHECK THAT (RJ) CHARS MATCH 
MOV RO, 0(9P) 
MOV RS, 05?) 
CALLM1] CMPB (ROO (RZ) e 
BNE CALLNM 
oec RS 
BNE CALLMS 
i GHECK THAT 40(R3) CHARS ARE 7 IN TABLE 
SUB (SP) RS 
a00 M4,RS 
BLT ERRFNY 
BEO CALL 
CALLM24 TSTB (H2)e 
BNE CALLNM 
oee RS 


BASIC, 


1133 
1134 
1135 
1136 
1137 
4138 
1439 
1140 
4243 
4442 
4243 
1a44 
1445 
1146 
1147 
4248 
1449 
1158 
1253 
1152 
4453 
1454 
4455 
1156 
1457 
4156 
1159 
4268 
4263 
1462 
1163 
2264 
1165 
1266 
1167 
1168 
4269 
1178 
1474 
4472 
4273 
1274 
4175 
1176 
1177 
1478 
1279 
1189 
2283 
4282 
116s 
1184 
1285 
1186 
1187 


BASICL 


12168 
1189 
4190 
1294 
1192 
1293 
1194 
1295 
1196 
4297 
1298 
1199 
1290 


MACXi1 
083138 


883452 
8931356 
803148 
903142 
603144 
903146 


003258 


983152 
883154 
903156 
8@3160 
883464 
983279 


O93174 
803176 
883206 
893204 
883286 


883219 
883212 
883214 
983216 
883220 
893222 
983226 
983252 
803234 


803249 
893244 
883246 
293252 


283254 
803268 


MACX14 


883262 
883266 
093278 


083272 
883276 
003302 
803304 
883310 


983312 


voas 
a1376 


262786 
241202 
304442 
010246 
810446 
010546 


884732 


232605 
222604 
842604 
200167 
200167 
280167 


322683 
932600 
262746 
8316682 
890738 


112122 
180766 
399302 
192102 
964502 
004767 
122127 
891356 
084767 


122327 
004351 
084767 
990608 


920165 
183014 


Va2t 


004167 
015 
008 

803272 

000167 


004167 
a15 
952123 
908 
383312 
000167 


22eMARe73 


980806 


177464 
097626 
006454 


940356 
999254 


895354 


098203 
013772 


890816 


22eMARe73 


12206 
012 


* 


175662 


812172 
a12 
050137 


175566 
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BNE CALL? 


’ RETURN Anguen 
CALLX} =A00 06,5? 
4ov (R2) ,K2 


ec ERRFNG 

MOV RE,e(SP) 
MOV R4,0(9P) 
MOV RS, 0¢9P) 


JSR PG, (R2) 


mov (9P) 4, RS 
MOV CSP) RO 
MOV CSP)O RS 
me TGNORE 


ERRFNL| UMP ERRUPN 
ERRSX14 JMP ERRSYN 


iPOP STACK 


ADVANCE TQ NEXT TABLE ENTRY 


i) 

CALLNME MOV ($P)OARS 
MOV (3) 0) RO 
aod 09,697) 
MOV CSP) KR? 
wR CALLCK 

1 TILEY? STATEMENT ROUTINE 

LETS Move (RY) oy R2 
omy ERRSX} 
SWAB Re 
8138 CREO RZ 
aoa (RS) RZ 

ASSIGN] JSR PG, GETVAR 
CMPB (RL)O,8,£9 
NE ERRSXY 
JSR PGEVAL 
vIFNOF = SNOSTH 
acs ASSSTR 
sENOC 
Cups (RO) 099, EOL 
ONE ERRSX} 
ws" PG, STOVAR 
BR EXECUTE 


,FNOF = SNOSTR 
ASSSTRY CMPB (Ro) 0,8 EOL 


BNE ERRSXS, 

JSR PC, STOSVAR 
BR EXECUTE 
1ENOC 


§ TEQFE on TEND STATEMENT 

ENO! 

€0Fs CMP RL, CODERS) 
8HyS JMPROY 
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usr RAMS 


‘BYTE = CHaLl 
;BYTE 2 
+EVEN 
amp EIT 
} STOP! STATEMENT 
SToP: Sh RL, MSG 


sBYTE = CRLF 
sASCIE *$7OPr 
‘BYTE 8 
EVEN 

UMPROYE UMP READY 


INOT A POINTER, 


JNOT EQSIGN, 


BASICL 


4312 
1312 
13135 
1314 
1315 
1316 
1317 
1316 
1319 
1520 
1321 


BASICL 


4322 
1323 
4524 
4325 
4326 
1327 
1328 
1529 
13536 
1334 
1332 
1533 
13534 
1335 
13536 
1337 
1538 
1339 
13548 
1342 
1342 
1343 
1544 
1545 
1346 
1347 
1348 
1349 
13508 
1352 
1352 
1353 
1554 
1555 
1556 
1357 
1358 
1359 
1566 


MACX11 


883712 
883714 
883729 
883722 
083726 
893730 
883734 
083736 
883742 
883759 


MACX11 


083754 
803768 
083762 
083766 
083770 
083772 
003774 
904002 
804004 
004819 
004912 
084016 
084922 
084024 
894926 
884932 
084034 
084246 


984042 


984045 
904046 
984858 


904053 
084954 


ve2. 


681960 
120027 
081415 
126027 
604422 
120027 
884407 
000167 
012775 
960167 


ve2. 


064767 
103435 
422127 
001852 
985712 
084425 
126127 
981913 
916503 
386303 
066523 
820365 
104006 
10133 
905265 
911203 
600167 
300004 


847187 


000 
9o0R84 
346225 


oe9 
000167 


22eMARe7S 


398246 
890253 
090259 
176706 


177777 
176798 


22eMARe73 


807274 
900203, 


177774 
8908S2 
290004 
088002 


098052 
176044 


104 


116 


295578 


O89006 


290204 
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SNE 
Cups 
eceQ 
cmuPe 
BEo 
cMPe 
B60 
MP 
RESTORE IMOV 
vMP 
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ERRSKO 

AG), GE 
cote’ 
RO,#,GT 
GoTo 

RO, #,NE 
60r0 

IGNORE 

#91, 0P0LERS) 
EXECUTE 


1 1GOSUB’ AND (GOTO! STATEMENTS 


Gosuet 

ootor vsr 
ecs 
cMPS 
BNE 
vst 
LI) 
cura 
BNE 
MOV 
asi 
aoo 
CMP 
BHt 
MOV 
INC 

GONOSAVIMOV 
MP 

ERROEEP SOT 
a LFNOF 
ASCII 
,ENOC 
LTFOF 
rASCII 
sENDC 
:BYTE @ 
,EVEN 

ERRGOS JOT 
a TFNOF 
sASCIL 
sENOC 
ctFOF 
ASCII 
,ENOC 
:BYTE 2 
vEVEN 

ERRSX6) UMP 


PG FLINE 
ERRSXO 

(RL) $8, EOL, 
ERRSXS 

{R2) 

ERRGO 
#4(RL2,#,G0SUB 
GONOSAV 
GSBCTRCRS) RS 
RS 

POL (RS) RS 
RS,LIMITCRS) 
ERROEEP 

Rag (RS) 
GSBCTR(RS) 
(R27, Ko 
EXECUTE 


SLONGER 
NGNON 


SLONGER 
*GOSUUS NESTED TNO OFEPLY! 


SLONGER 
\WLNS 


SLONGER 
'YNOERINEO LINE NUMBERS 


ERRSXS 


BASICL 


aeea 
3202 
1283 
1204 
12285 
3206 
1207 
1208 
1299 
1218 
1222 
1212 
1213 
4214 
4215 
4226 
1247 
4238 
1219 
1228 
1223 
4222 
1225 
1224 
1225 
1226 
1227 
4228 
4229 
4230 
4232 
4232 
1233 
1234 
4235 
1236 
1237 
1238 
4239 
1248 
1244 
1242 
1243 
1244 
4245 
1246 
4247 
1248 
1249 
1238 
1251 
1252 
1253 
1254 
4255 


BASICL 


1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
4268 
1269 
1278 
1273 
1272 
4273 
1274 
1275 
1276 
1277 
1278 
1279 
1288 
1281 
1282 
1283 
1284 
1285 
1286 
4287 
1286 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
13298 
3302 
1302 
1323 
1304 
1305 
1526 
1327 
1326 
3529 
1310 


MACXLL 


GO3316 
393322 
083324 
8033350 
383352 
883336 
083349 
983342 
803344 
883346 


983352 
883354 
883356 
983360 
093362 
883364 
883370 
893372 
803374 
883376 
883402 
983404 
083406 
003412 
803416 
883429 
893422 
003424 
803426 
803430 
803452 
803434 
093449 
983442 
083444 
083446 
083459 
003452 
693454 
203466 
083462 
083464 
083466 
083470 
883472 
003474 
283500 
303502 
983506 


MACX42 


903510 
303514 
803516 
893522 
203524 
203530 
883532 
983536 
803542 
863544 
883546 
023550 
893552 
283556 
803560 
803564 
083566 
383570 
003572 
803576 
003622 
803604 


003612 
883612 
303616 
003629 
003622 
883624 
093639 
393632 
2036356 
823640 
BB3644 
203646 
823652 
303654 
003669 
083662 
803666 


803672 
803074 
883676 
893708 
883704 
883786 


Va2L 


894767 
193115 
121227 
183747 
124227 
101314 
s20004 
103552 
122146 
984767 


212683 
022608 
12682 
910846 
805946 
020227 
001403 
154226 
885008 
620327 
081402 
151320 
962782 
862703 
290402 
122322 
001047 
605300 
002418 
205326 
302372 
122327 
981040 
295320 
002373 
200407 
085716 
303425 
122722 
9912350 
295326 
803373 
985726 
812608 
112122 
122227 
984403 
120227 
881943 


voes 


120027 
001517 
120927 
881514 
120827 
201531 
389167 
200167 
282453 
C85726 
312608 
200424 
121127 
183767 
124127 
101364 
220604 
103436 
046546 
316546 
122146 
304767 


#12622 
204767 
284725 
202426 
112102 
120227 
301423 
120227 
381126 
122927 
301443 
120827 
081440 
123027 
061435 
200167 
880167 


995726 
812608 
122102 
120227 
801403 
120227 


2zeMARe73 


0e5274 
800244 
960254 


eo5244 


477777 


477777 


898805 
280003 


908040 


890040 


ogo2s2 
886205 


22aMARG73 
2eae44 
300246 
000254 


177112 
086106 


BOR244 
990254 


280042 
008046 


025906 


813474 


Be0242 
980285 
200244 
o98252 
980250 


176762 
805226 


890242 
888205 
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1 Pre STATEMENT ROUTINE 


tre gr 
ce 
CMPB 
BLO 
CMPB 
BHI 
cmP 
8,0 
Move 
usr 


vLFNOF 
ace 
,ENOC 


MoV 
MOV 
MOV 
Mov 


CLR 
che 
BEO 
8188 
CLR 
cmp 
GEO 
ese 
400 
aoo 
BR 
TFLOOP) CMPS 
BNE 
oec 
8,7 
oec 
8GE 
CMPB 
BNE 
oec 
BGE 
SR 
JFLENOH TST 
BLE 
CMPB 
@NE 
oEec 
GT 
IFseau TST 
Mov 
IFLEQRG Ove 
cMPB 
BEQ 
CMPB 
BNE 


36105 PAGE 2101 


cMPB 
BEO 
CMPB 
BEO 
cMPa 
BEQ 
ume 
ERRSX7) UMP 
IFCOMP) SLT 
Ts? 
MoV 


BR 
TFNUMERICMPS 
BLO 
CMPB 
aH} 
cMP 
BLO 
MOV 
MOV 
MOVE 
JSR 


e VENOF 
acs 
,ENOC 


“QV 
JSR 
bEO 
@LT 
TFLLTR MOVE 
cMPS 
BES 
CMPS 
BNE 
CMPB 
Bea 
CMPB 
BEG 
CMPB 
sco 
wMP 
ERRPOSI UMP 


v]PNOF 
ERRMX4) JMP 
,ENOC 


iFscry st 
MOV 
IFLGTRI MOVE 
CMP 
geo 
CMPs 


eC, EVA 
TFiuwel 
6R4) 8 LE 
ERRSXE 
(RL), 8,60 
ERRSXL 
SP, Re 
ERRPDS 

CRY) Spe CSP) 
PC EVAL 


SNOSTH 
ERRNx4 


CSP) 4,RS 
(SP) 6)RO 
CSP) O,R2 
RO, 0(SP) 
*(SP) 

RZ, 804 
+4 
6R2),0SP) 
RO 


RS, #0} 
144 

(RS) KO 
#3,R2 
95,83 

106 
(RIP, (RAD 6 
TECOMP 

Ro 

TELENO 
(SP) 
TFLOOP 
CRS) Oo, e8L 
TF COMP 

RO 

1740 
FSea 
(SP) 
IFSEQ 

WL CHZ)% 
TF COMP 
CSP) 

1040 
(SP)e 
(SP) o,Ro 
CRY) oy R2 
R2,8, THEN 
178 
R2,#,G0TC 
ERRSX7 


IFLLTR 
(RL) yA LE 
ERRSX7 
(RL), 8, £9 
ERRSX7 

SP,R4 

ERRPOS 
FAC2CRS), 9¢SP) 
FACL(K5),0(SP) 
CHL) op eC SP) 
PG,EVAL 


SNOSTK 
ERRMX4 


(SP) %,Rd 
pC, suBsTX 
IFLEOK 
IFLGTR 
(RL) op RZ 
R2,0, THEN 
aot) 
R2,8, GOTO 
ERRSX6 
RO, #,LE 
Goro 
ROBT 
Goro 
RO,#,NE 
Goro 
IGNORE 
ERRPOL, 


SNOSTK 
ERRMIX 


(SP) 
COP) ey RO 
CRY) OP RE 
R2,8, THEN 
1700 
R2,8,G0T0 


BASICL 


1363 
1362 
4363 
1364 
1365 
1366 
1367 
43568 
1369 
4378 
4371 
4372 
4373 
1374 
4375 
1376 
4377 
4378 
4379 
1388 
4381 
4582 
4383 
1384 
4585 
1386 
1387 
1366 
4589 
1390 
1391 
1592 
1593 
1394 
4395 
1396 
1397 
1598 
1399 
1400 
1403 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
4409 
1428 
3412 
4412 
1413 
4414 
1415 


BASICL 


1416 
4427 
1428 
1419 
1420 
14213 
1422 
4423 
1424 
1425 
1426 
1427 
1426 
1429 
1439 
1432 
4432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1448 
1444 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
4454 
1452 
1453 
1454 
1455 
1456 
1457 
1456 
1459 
1468 
4464 
1462 
1463 
1404 
1465 
1466 
1467 
14668 
1469 
1476 


MACX12 


094969 
054964 
884066 
894972 
384076 
304190 
964102 
304106 
804119 
304114 
384116 
904120 
884422 


904126 
904130 


294153 


204134 
304136 
004149 
004142 
004144 
004146 
004158 
084152 
804156 
304160 
004164 
804186 
084172 


894176 
084204 
604210 
004214 
984216 


MACKL1 


384222 
304230 
934236 
004242 
884259 
004254 
884256 
984262 
304264 


804270 
004274 
884276 
004328 
804304 
904306 
084312 
004514 
BOA316 
204320 
0843522 
084324 
284326 
804332 
304334 
884336 
004342 
084344 
884359 
004352 
894356 
204369 
804362 
604364 
004366 
804372 
904372 
304374 
384376 
804482 
004404 


824426 


904411 


vo2t 


122127 
084373 
016883 
820327 
081445 
085383 
610365 
306303 
306583 
285713 
004403 
944304 
260167 


220904 
344122 


819146 
003316 
122198 
100744 
680302 
152102 
861582 
224227 
084736 
122127 
904333 
318265 
084707 


812765 
364767 
122127 
@84327 
084767 


V@2k 


916565 
916565 
45065 
812765 
121127 
061429 
122127 
04274 
004767 


121127 
804267 
005201 
816503 
280402 
04767 
111122 
100418 
805201 
980382 
152182 
264502 
221227 
193001 
211203 
121127 
204428 
121127 
081429 
121127 
091353 
085203 
111122 
109756 
095204 
808302 
152132 
064502 
220265 
OB1342 
380024 


953526 


22amMARe73 


296201 


080832 
099833 


880032 
800004 


176526 


107 


177777 
200254 


geoe22 
004420 


177777 
6130354 
090240 


004376 


22eMARe73 


200048 
600842 
980040 
850881, 
9o0204 
Og02e1 


004526 


9e02b1 


808050 
812646 


477775 


800225 
990211 
Oob205 


agev22 


116 


oge824 
908026 


000842 
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) JRETURNG STATEMENT 


RETURNI CMPB 
ANE 
MOV 
CMP 
BEO 
oec 
MOV 
ASL 
aoo 
Ts? 
80 
MOV 
ume 


vt PNOF 
ERRMX5} JMP 
ENO 


ERRRETS Sof 
vTFNOF 
ASCII 
+ENOC 
FOF 
sASCII 
sENOC 
BYTE 4 
EVEN 


(RE) oe, 8, £0, 
ERRSX6 
GSACTRERS) RI 
RS, #8335 

ERRRET 

aS 

RS, GSBCTRIRS) 
RS 


POLCROD ARS 
¢R3) 
ERRRET 
CR3) ARYL 
EXECUTE 


SNOSTK 
ERRMIX 


SLONGER 
\KOGN 


SLONGER 
RETURN BEFORE GOSUB! 


» TFoR! STATEMENT 


FOR} MOV 
oEc 
MOVE 
aM} 
SWAB 
aise 
aoo 
CMP 
8EQ 
CMPB 
BNE 
MOV 
vsr 


1 JFNOF 
acs 
»ENOC 


Mov 
wSR 
cups 
BNE 
usr 


vTFNOF 
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acs 
,ENOC 


QV 
MOV 
CLR 
MOV 
CMPB 
Bea 
OmMPB 
BNE 
JSR 


a LPNOF 
6cs 
yENOC 


Cups 
BNE 
FORONE} INC 
Mov 
8R 
FORSKIPIYSR 
FORLOOKIMOVB 
BMI 
INC 
SWAB 
BISB 
apo 
CMP 
BHIS 
MOV 
FORNOL} CMPB 
8E0 
cmPs 
BEG 
CMPB 
BNE 
INC 
Move 
amy 
INC 
SWAB 
aise 
400 
CMP 
BNE 
ERR4WOH LOT 
LT FNOF 
sASCIY 
1 ENOC 
s FOF 
sASCII 
+ ENDC 
iBYTE a 


Ru, 0(SP) 

(SP) (LOC OF THE f FORE) 
(RO) o,R2 

ERRSXO 

R2 

(RL) O RZ 

(R5),R2 

(R2), 8, SVAR 

ERRSXO 

(RA), #, EQ 

ERRSX6 

R2,VARKSAV(®5S) «4 (VAR OF THE FOR) 
PC LEVAL 


SNOSTR 
ERRMXD 


Hes SSUSAVERS) JFoORCE To SCALAR, 
PG, STOVAR 

(RL) oe#, 70 

ERRSXQ 

PO,EVAL 


SNOSTR 


ERRMX9 


FACL(H3) »SSLSAV(R5) 

FAG2( RS) SS2SAV(AS)S(LIMIT OF THE FOR) 
FACA(RS) 

#1, FAG2(R9) FASSUMED STEP IS 1,0 
CHA), 8, EOL 

FORONE 

(RL) oe #, STEP 

ERRSX6 

PC, EVAL s(FAC HAS THE STEP) 


SNOSTK 
ERRMXS 


CRO) #, EOL 

ERRSX6 

RL 

LINENO(RS),R3 

FORLOOK 

PC, SKJPEOL 

CRE), R2 

FORNOL 

RL 

R2 

(RLY HyRZ 

(R5),R2 

(R2),#, SCALAR 

FORNOL 

CR2),K3 H(THF LINENO WHILE LOOKING) 

(RG) 8, E0F 

ERRAWO 

(RL) 8 NEXT THE CODE 1S NOW BEING SEARCHED 

FORNEXT JFOREWARD FROM THE “FOR? FOR A NEXT WITH 
CRY), 8, FOR HTHE SAME VAR, IF ‘EOF! OR ANOTHER / FOR! 
FORSK IP WITH THE SAME VAR [S FOUND FIRSTJERROP, 
RL 

(RL) RZ 

FORSKIP 

RL 

R2 

(RL) Hp RZ 

(R5),R2 

RZ, VARSAV(RS) 

FORSK{P 


SLONGER 
‘PWN 


SWONGER 
1FOR WITHOUT NEXT! 


BASICL 


4471 
1472 
1473 
1474 
4475 
1476 
1477 
1478 
1479 
1488 
4483 
1482 
1483 
1484 
4485 
1486 
4487 
1488 
1489 
1498 
1492 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1306 
15e. 
1502 
1503 
1504 
1505 
4506 
1507 
15068 
1509 
1510 
1523 
1512 
1513 
1514 
4515 
1516 
4917 
1518 
1919 
1528 
4922 
1522 


BASICL 


4523 
1524 
1525 
1526 
4527 
4528 
1529 
1538 
15314 
1932 
1533 
1934 
1535 
1536 
1537 
1538 
1539 
4540 
1541 
1342 
4543 
1944 
1545 
1546 
1947 
1548 
4949 
1958 
1552 
1552 
1553 
4554 
1555 
1556 
1957 
1558 
1559 
1568 
1561 
1562 
1563 
1504 
1565 
1566 
1567 
1568 
1569 
1578 
1971 
4972 
1973 
1974 
1975 
1576 
4377 


MACX11 


004412 
004416 
ae4azg 
294422 
904424 
084426 
294439 
304432 
294436 
04449 
004444 
304446 
894452 
034456 
004469 
ga4ae4 
994479 
304474 
094509 
894504 
094510 
a04514 
004520 
aa4s22 
094526 
094539 
004534 
804548 
994544 
094550 
004554 
094556 
304560 
904562 
094564 
004566 
984572 
094574 
094576 
094602 
094606 
804612 
804614 
004620 
204022 
o94o24 
004638 
084636 
094649 


MACX11 


084644 
084646 
804659 
804652 
004654 
084668 
084662 
904666 
204678 
084074 
084676 
284708 
804702 
204704 
AQ4706 
304718 
084712 
084714 
084716 
304728 
094724 
004726 
884732 
804736 
0047498 
304744 
384746 
384758 
384754 
304768 
804762 
084764 
094778 
084772 
084776 
805802 
805304 
885012 
205016 
805822 
385026 
305038 
305034 
805036 
805042 
3052046 
395859 
305952 
205856 
395066 
295062 
385066 
0059798 


Vax 


062782 
211122 
190732 
205204 
880302 
152102 
864502 
820265 
301323 
124127 
081250 
162702 
116622 
111623 
126523 
116522 
116523 
116521 
116521 
126521 
116522 
126522 
810326 
916546 
801002 
016516 
016546 
916546 
264767 
304767 
081424 
180405 
805726 
1806417 
900404 
800167 
005726 
188812 
012665 
185061 
195061 
895201 
080167 
085726 
205726 
116146 
116266 
012601 
000167 


Ve2i 


903002 
152102 
000302 
152192 
820265 
403131 
122227 
901126 
062701 
112123 
180525 
888323 
154183 
061503 
605321 
122122 
O81114 
124122 
ee4412 
124227 
904197 
819365 
A2a3e7 
984595 
222327 
304482 
341383 
312365 
311365 
795321 
124146 
124166 
124146 
2124166 
911665 
204083 
316665 
304767 
916546 
216546 
114146 
114166 
114146 
114166 
004767 
004437 
188404 
205765 
100413 
880403 
905765 
180007 
105843 


22eMAR@-73 16185 PAGE 2302 
sEVEN . 
90013 FORNEXY# 400 #43, RE 
MOVE CRE) RZ 
BMy FORSK IP 
INC RY 
Swab Re 
ayse CRYO yRZ 
aoo (RS) KZ 
seooz2 CMP RZ, VARSAV(RS) 
BNE FORSK{P 
208201 cues CRY), 8, COL 
BNE ERSX10 
800024 sus #14, R) 
90081 Move LGSP), (Ride PPUT AMOR OF THE (FOR! AFTER THE NEXT’, 
“OVE (SP), (R1L)% HCTHATS WHAT THE 24444 BYTES ARE FOR) 
890025 MOVE SSLSAVOLCRS), CRAVSIPUT THE LIMIT AFTER THAT, 
og0024 move SSUSAV(RS), (RIO 
088027 MOVE SS2SAVOLCRS), (Ride 
8eaK26 Move SSZ2SAV(RS), (RIV> 
000042, move FACLELERS), (RAD4 }PUT TWE STEP AFTER THAT, 
898040 MOvB FACACRS), (RID® 
6e8e43 “OVE FAC2*1(R5), (R194 
880042 “QvB FAC2(K5),(RIVe 
MoV RS, (SP) sPUT THE SEAWCH LINENO 0” THE STACK, 
090848 MOV FACL(RS),e¢SP) PUT SCN(STEP) ON THE STACK, 
BNE ”“ 
opone2 MOV FACZ( HS) 4 ¢SP) 
890926 MOV SS2SAV(R5),°¢SP) SPUT THE LIMIT O” THE STACK, 
900024 MOV SSASAV(RS),@(SP) 
004046 JSR PG, EVAL JGET THE CURRENT VALUE OF THE INDEX, 
812536 JSR PG, SUBSTK SUBTRACT THE LIMIT, 
BEG FORGOGO 
amy FORLTUM 
FORGTLMITST (SP) 
amt FORGO 
BR FORZERO 
805056 ERSX4gt UMP ERRSXS 
FORLYLMITST (SP) 
BPL FORGO 
800030 FORZEROTMOV CSP) +, LINENOCRS) 
177764 CURB o44(R4) 
177765 CLRB eAS(R2) 
INC RL 
176034 wMP EXECUTE 
FORGOGOITST (SP)e 
FoRGoY YsT (QP)e 
177765 “Ove *USCRLIVeCSP) 
177764 «og0004 Move L4(R2),20SP) 
MOV (SP) O,R4 
176004 umP IGNORE 
sE0T 
22eMARe7S 16105 PAGE 24 
, SOURCE FILE #3 
V_INEXT! STATEMENT 
NEXT CLR Re 
ayse (RL) O,R2 
Swas R2 
8ySB (REO ,RZ 
890014 cme R2,LOFREE(RS)  sJUST TO PREVENT AN NXM TRAP, 
BHIS ERRNEXT 
oge2e3 CMPB (RZ) 6,4, F OR 
BNE ERRNEXT 
oeee18 ado #40,RY 
Move (RE) O,RS 
BM ERRSX2 
SwaB RS 
a{se RL) RS 
aoo CRS) RS 
OEC RL 
CMPB CRAPS IRA) e 
BNE ERRNEXT 
CMPB CRL),(R20% 
BNE ERRNEXT 
299254 CMPB (R2),8,60 
BNE ERRNEXT 
agao22 MoV R3_VARSAV(RS)  jSAVF VARTABLE ADDRESS, 
177777 CMP CRI), 9, SVAR 
geo ERRSX2 
177775 cMP (R3) 4,8, SCALAR 
gEa 104 
mov (RB), RS 
890040 Mov (R3)o,FACLERS) PUT THE FOR VAR VALUE INTO FAC, 
oane4s2 MOV (R3) FAC2(RS) 
cee RL 
MOVB @(R4)43(SP) IPUT STEP ON THE STACK, 
egooes “ove (RL G A 0SP) 
MOVvB (RA) pe CSP) 
839001 MOVB (RAD ACSPY 
90026 MoV (SP), SS2SAV(R5) JSAVE SGN(STEP), 
BNE eid 
098002 2oB026 MoV 2¢SP),SS2SAV(R5) 
892552 usr PC, ADUSTK 
B8GR42 MOV FAC2(K5),0(¢SP) 
ageusD MOV FACA(RS), #¢SP) 
MOVB eCRL)pe(SP) 
898001 Move w(Rad sd CSP) 
MOVE (RI), e(SP) 
830001 MOVE e(R1D AS (SP) 
012244 JSR PG, SUBSTK 
8Eq NEXGO 
BMy NEXLTEM 
890026 NEXGTLMITST SS2SAV(R5) 
amt NEXGO 
@R NEXENQ 
98026 NEXLTLMITST SS2SAV(R5) 
NEXGO 


BPL 
NEXENDI CLRB 


#(R1) 


BASICL 


1578 
1579 
4560 
1583 
1582 
1583 
1584 
1585 
4586 
1587 
1588 
1389 
1590 
1594 
1592 
1593 
4994 
1595 
1396 
1597 
1598 
1599 
1608 


BASICL 


1604 
1602 
14603 
1604 
1605 
1606 
1607 
2628 
1609 
1612 
1644 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
4620 
1021 
1622 
1623 
1624 
1625 
1026 
1627 
1628 
4629 
1638 
1631 
1632 
1633 
1634 
1035 
1636 
16037 
16038 
1639 
1049 
1041 
1642 
1043 
46044 
1645 
1646 
1647 
1048 
1049 
1650 
1651 
1652 
1653 
1654 
1655 


MACKX4A2 


305072 
285074 
005100 
885102 
005186 
305110 
385114 
385116 
805122 
005126 
205134 
305149 
805144 


985146 


9851454 
905152 


MACX11 


985156 
905162 
905164 
305166 
885172 
305174 
305176 
805294 
985210 
805212 
305216 
605229 
805224 
905226 
805232 
805234 
833249 


325242 
965246 
305258 
385254 
805256 
905262 


805264 


205278 
905276 
305300 
3e5304 
395318 
895312 
305316 
005317 


905328 


395322 
385324 


voes 


105044 
562704 
222626 
900167 
114146 
124166 
812603 
222665 
012665 
042765 
084767 
800167 
980804 


044116 


oo8 
200167 


yeaa 


124127 
001016 
AB5201 
084767 
498782 
304493 
916265 
121127 
992483 
122427 
204355 
121127 
301449 
121127 
301440 
121127 
704435 


121127 
204513 
24127 
301510 
121127 
081532 


304767 


327527 
101402 
084767 
204767 
416676 
664167 

040 

209 


360405 
195329 


808420 
980402 


22eMARe73 16185 PAGE 2401 
cLRe etRi) 
882015 ado #45,R3 
GMP (OP), (SP)e I THROW AWAY [NCREMENTED [NDEy, 
475546 MP EXECUTE 
NEXGO! MOVE oERi),eCSPy 
290081 “OVB @CRL,40SP) 
MOV (SP)o,R2 
900040 MOV CSP) ,FACLCRS) STORE THE INCREMENTED INOEX, 
830042 MOV (SP)o,PAC2¢R5) 
177777) p@ee24 MOV wet, SSUSAVRS) 
912104 wSR PC, STOVAR 
175504 UMP IGNORE 
ERRNEXTHLOT 
+TFNOF SLONGER 
106 ASCII \NBFN 
1ENOC 
s1FOF = SLONGER 
vASCIL «NEXT BEFORE FOR? 
,£NOC 
:BYTE 2 
sEVEN 
204472 ERRSX21 UMP ERRSXS 
22eMARS73 16105 PAGE 25 
) ITPRINT! STATEMENT 
890263 PRINT! CmMPB (R41) 9%, POUND HIS TT (PRINT WNT Yat? 
BNE PRNTOL 
INC RL 
ee3140 JSR PC, CHKOSET SCHECK CHANNEL AND SETUP 1/9 
Ts? R2 sOEVICE CODE 
BEO COLONCH 
325320 900834 MoV TABLS (RZ), COLUMN(RS) SNON®TTY COLUMN fOUNT 
288201 COLONCHICMPB (Ri), 8,60, HDON'T NEED COLON IF NOTHING 
BEO PRNTO) § FOLLOWS NUMBER 
o9e260 cMPa (RL) 9) #, COLON 
BNE ERRSX2 
000243 PRNTOLE CMPB (R4))8, COMMA 
BEO PRICM 
980236 cMPB CR4),8,SEMY 
8a PRIBOTH 
200204, CMPB CRY), EOL 
8EO PRIBOTH 
:IFOF = SNOSTR 
290257 CMPB (R4),8,SQU0T CHECK PRINT STRING 
BEO PRISTH 
090256 CMPB (R4))8,OQUOT 
BEO PRISTR 
290276 CMPB (RL), 8, TAB sOR TAB FUNCTION 
BEG PRITB 
+ENOC 
893326 VSR PO, EVAL 
TFNOF = SNOSTR 
acs PRISTK 
,ENDC 
988034 980874 CMP OCOLUMN( RS), #74 
80S 6 
890526 JSR PC, PRINCR 
218458 JSR PC, NUMSGN 
WORD = PUTCHAR 
a10204 JSR RY, MSGOOEV 
sASCIT ff 
1BYTE 2 
,EVEN 
BR PRIBOTH 
YABLS a,02 
. CLMNPP 
+ ChMNLP 
vlFNOF = SNOSTR 
PR{STR} MOV (SP) #,R2 
INC R2 
BE PRIBOTH 


BASICL 


1656 
1057 
1658 
1059 
10628 
16062 
1662 
1663 
1064 
1665 
1666 
1067 
1668 
1669 
1679 
1671 
1072 
1973 
16074 
1675 
1676 
1077 
1078 
1079 
1680 
1683 
1682 
1683 
1084 
1085 
1686 
1087 
1688 
4689 
1698 
1093 
4092 
1695 
1694 
1695 
1696 
1097 
1098 
1099 
1799 
1702 
4702 
1703 
1704 
1705 
1706 
4707 
1708 
1709 
1718 


BASICL 


4714 
1712 
1713 
1714 
4715 
1716 
1717 
1718 
1719 
1728 
1723 
1722 
1723 
4724 
1725 
1726 
4727 
1728 
4729 
1730 
1734 
4732 
1733 
1734 
1735 
1736 
3737 
4738 
1739 
1740 
1741 
4742 
1743 
1744 
1745 
1746 
4747 
1748 


MACX41 


085326 
8053352 
885334 
305348 
995342 
825346 
985358 
385354 
303356 
995362 
385364 
005376 
005372 
805374 
3054e98 
085482 
085406 
6e5419 
085414 
905416 
885422 
095424 
885430 
205431 


295432 
395434 
005449 
305442 
695444 
29545g 
095452 
005454 
885462 
295466 
095472 


983476 
005508 
085504 
985506 


MACX11 


095518 
095512 
005514 
885516 
085522 
805524 
885532 
985534 
205540 
805542 
885546 


085558 
895552 
905556 
905562 
095566 
995579 
095574 
985609 
085604 
005606 
085612 
095614 
005616 
095628 
985624 
325630 


805632 
085636 
095649 


985642 
905646 


voe. 


084167 

240 
121127 
681903 
884767 
008441 
122127 
901227 
317598 
081439 
920027 
801425 
183403 
984767 
088421 
320927 
084426 
20027 
84415 
820927 
084419 
604167 

248 

908 


300751 
1241227 
081267 
885204 
124127 
801263 
805221 
912765 
960565 
105065 
200167 


112103 
122227 
984222 
112192 


Voas 


801776 
120203 
081727 
128227 
O81613 
227527 
193402 
004787 
10200 
884767 
780757 


105721 
004767 
204767 
122127 
981346 
116502 
167522 
220227 
103403 
162702 
880772 
885302 
190646 
942708 
204767 
880771 


384167 
ei5 
200 

005642 

985975 

980227 


22eMARe73 


010178 

goo 
opeeey 
ogez64 
oen2ss 
oo0034 


9909078 


eoazsz 
aap0s2 
290054 
290016 
010072 


ogazse 
099201 


epeese 
ooogs4 
090076 
175436 


880377 


22yMARe73 


898201 
09034 
000072 
011130 


oa3ee9 
agezz2 
099237 


098042 
988034 
400110 


980118 


990040 
811046 


087664 
12 


300054 


880834 


900118 


16189 PAGE 2504 


CLR 
81s6 

400 

PR{LOOP ICMP 

80 

>» JSR 
Move 

JSR 

bec 

BGT 

BR 
,ENOC 


PRICME JSR 
iBYTE 

PRIBOTHICHPB 
BNE 
JSR 


aR 
PRIMOREICHPB 

BNE 
PRICOMMIMOV 

se 

cup 

BEO 

8.0 

JSR 

aR 

CMP 

BEQ 

cM 

BEQ 

cue 

BEO 

Jgr 

sASCIE 

:BYTE 3 

,EVEN 


BR 
PRISEMLICMPB 
BNE 


INC 
PRITESTICNPB 
BNE 
PRIUMP} INC 
MOV 
ado 
CLRE 
ump 


vTPOr 
PRISTR} MOVE 

cMPe 
PRISJ} BNE 
PRIST1i1 MOVB 


16105 PAGE 2502 


geo 
CmPs8 
BEQ 
CMPB 
BEO 
CMP 
alo 
JSR 
MOV 
JSR 
8R 


PRIT8t STB 
JSR 
JSR 
CHPB 
BNE 
MOVB 
sya 

PRITBQ) CMP 
BLO 
sus 
aR 

PRITBLs DEC 
emt 
MOV 
JSR 
6R 
,ENOC 


H 
PRINCRI JSR 
BYTE 
,BYTE 3 
sEVEN 
CLR 
RTS 


RS 

e(RZDIRS 

#3,R2 
@COLUMN( RS), #1199 
+6 


PC,PRINCR 
(R2)%4RO 
PC, PUTCHAR 
RS 


PRILOoP 
PRIBOTH 


RL gMSGOOEV 
64,8 
(RL), 8, EOL 
PRIMORE 
PC,PRINCR 
PRI MP 
(RL) %) 8, COMMA 
PRISEM] 
@COLUMN( RD), RO 
PRITEST 
RO,#70 
PRITEST 
eho 

PG, PRINCR 
PRITEST 
RO, a52 
PRITEST 
RO, 434 
PRITEST 
RO, #18 
PRITEST 
fay MSGOOEY 


PRICOMM 
9(RL),8,SEMT 

PRNTOL 

Ri 

(RL), 8, £9L 

PRNTOY 

R} 

SCLMNTTY,COLUMN(RS5) JREWSET TO TTY N 
RS, COLUMNCRS) COLUMN COUNT 
ODEV(K5) 

EXECUTE 


SNOSTK 
CRYO RS HSAVF OPEN QUOTE CHAR 
(RL)O,e, TEXT HTEST FOR TEXT BYTE 
ERRSX2 

(RL) % RZ IGET NEXT CHAR 


poloae 

R2,R3 ICHECK CLOSE E 
priporn K CLO Quor 
R2,8,€0L CHECK END LINE 
ERRSX2 

@COLUMN(RD), #119 

1%6 

PC,PRINCR 

R2,RO 

PO, PUTCHAR 

PRISTI 


CR4)+ 

PO,EVAL 

PC, INT 

RL) ope, RPAR 

PRISJ 

FAC2(R5),R2 IGET FN VALUE 
PCOLUMN(RS),R2 sSCOMPUTE # SPACES 
R2,a72, 

PRITBL 

872, ,2 

PRITBO 

R2 

PRIBOTH 

#BL, Re 

PC, PUTCHAR 

PRITBL 


RL MSGODEY 
CRyLF 


@COLUMN(RS) 
PG 


BASICL 


1659 
1860 
1862 
1862 
1663 
1864 
1865 
1866 
1867 
1868 
1869 
1878 
1872 
1672 
1873 
1874 
1875 
1876 
1877 
1678 
1679 
4688 
4881 
4882 
eas 
1684 
4685 
1686 
1687 


: BASICL 


41686 
1889 
1898 
1691 
1892 
1893 
1694 
1695 
1696 
1697 
1696 
1899 
1900 
1903 
1992 
4903 
1904 
4995 
1986 
1987 
1908 
1909 
1910 
1912 
1912 
19435 
1914 
1915 
1916 
1917 
1918 
1949 
1920 
1922 
4922 
4923 
1924 
1925 
1926 
1927 
1926 
1929 
1930 
2932 
4932 
1935 
1934 
1935 
1936 
1937 
1938 
1939 
1948 
1941 
1942 


MACXA2 
0262354 


906240 


Voer 
390167 


000281 


22nMARe7S 


093410 


086242 280167 011578 


MACKi4 


286246 
806258 
006252 
286254 
806256 
306260 
906264 
086278 
906272 
806276 
996308 
096304 
096306 
006312 
906314 


006316 
286322 
086324 
306326 
086332 
0863354 
006349 
806342 
896346 
986350 
206354 
896368 
306362 
886370 
886372 
886376 
996402 


986404 


906407 


306418 
986414 


806416 


yeaa 


122102 
190772 
oeg3e2 
152102 
264502 
904767 
317503 
ao1444 
220327 
20145 
121327 
304458 
122327 
201036 
111302 


304767 
390432 
010346 
984767 
912683 
121327 
084405 
121327 
901020 
910375 
122127 
681732 
126127 
004321 
800167 
805875 
909004 


847537 


885075 
anaea4 


442102 


22eMARe7S 


065320 
O88004 


477777 
000201 
008243 


296142 


018712 
800201 
900243 


999084 
090243 


177777 
174256 
B8BR04 


304 


880804 


122 


980201 


16105 PAGE 2602 


ERRSXB UMP 


vlFNOF 
INPSTRE MOV 
MOV 
CMPB 
BNE 
MOV 
sys 
MOV 
sus 
oEec 
BEG 
MoV 
A00 
usr 
INPNNUL 3 JSR 
rst 


CMPB 
BNE 
Tst 
JMP 
TNPNULL MOV 
BR 


vENOC 


yeeeeae 1 WORD 
ERRTROY IMP 


16185 =PAGE 27 


ERRSXS 


SNOSTR 
LINECRS) RS 
RS,R2 
(R3)%,8CR 
104 
R2,0(SP) 
#3, (SP) 
RS,0(SP) 
R2, (SP) 
(SP) 
TNPNULL 
SP,R2 
#2,R2 

PC MAKESTR 
PC, STUSVAR 
(SP)> 

(RY) %e8, COMMA 
INPEND 
(SP)e 
INPYOR 
wet, (SP) 
TNPNAYL 


teSban 


y PREAD! STATEMENT 


REAO! MOVB 
amy 
SWAB 
B1SB 
aoo 
JSR 
MOV 
Bea 
CMP 
Bea 
CMPB 
8EQ 
CMPB 
BNE 

READGOTISMOVE 


y UFNOF 
CMPB 
BEQ 
CMPB 
BEO 
,ENOC 


dsr 
BR 
MOV 
JSR 
READOUNSMOV 
CMPB 
bEO 
CMPB 
BNE 
MOV 
cMPB 
8EO 
CMPB 
BNE 
JMP 
READOUTICLR 
ERROATAIIO‘ 
\ LFNOF 
sASCT 
sENOC 
VIFOF 
sASCII 
+ENOC 
18YTE 2 
EVEN 
READBADICLR 
lor 
vTFNOF 
sASCII 
1 ENOC 
vIFOF 


(AL) 9 R2 
ERRSX8 

R2 

(RL O RZ 
(R5) RZ 

PO, GETVAR 
POL (KS), RS 
ERROATA 

RS, Hed 
REASRCH 
(RS), #, £0. 
REAF IND 
(R3)6_#, COMMA 
READBAD 
(R3) RZ 


SNOSTK 
R2,#,QQUOTE 
READOT 
R2,#,SQUOTE 
READOT 


PG LITEVAL 
REAOBAO 
RS, 0( SP) 

PG, STOVAR 
(SP)e,RS 
(RS), #8, EOL 
148 
(R3) 8, COMMA 
REAOBAD 

RS, POL (Rd) 
(RY) oH, COMMA 
READ 
eL(R1) 8, EOL 
ERRSX8 
EXECUTE 

@POL CRS) 


SLONGER 
\O00\ 


SQONGER 
‘OUT OF DATA! 


@POLCRS) 


SLONGER 
\BDRN 


SLONGER 


BASICL 


q749 
1758 
4752 
4752 
4753 
1754 
1755 
1756 
4757 
1758 
1799 
1768 
1763 
4762 
1763 
1764 
1765 
1766 
4767 
1768 
1769 
1770 
4771 
1772 
1773 
4774 
1775 
4776 
1777 
4778 
1779 
4789 
4781 
1782 
1783 
1784 
4785 
1786 
4787 
3788 
1789 
1798 
4791 
1792 
1793 
1794 
4795 
1796 
1797 
1798 
1799 
1802 
1803 
1802 
1823 


BASICL 


1804 
1605 
1806 
1807 
1808 
48209 
1619 
1611 
1612 
1615 
1814 
1615 
2816 
1817 
1618 
1819 
1822 
4821 
1822 
1625 
1824 
1625 
1826 
4827 
41828 
1629 
1838 
1831 
1632 
4835 
1834 
1835 
1836 
4837 
14838 
1839 
1640 
1844 
1842 
1843 
1644 
1645 
1846 
1647 
1848 
1849 
1650 
1651 
1652 
16535 
1854 
1655 
1856 
1657 
1658 


MACXAL 


805650 
935654 
805656 


885662 


895665 


805666 
085672 
805676 
095782 
005786 
095718 
005714 
905716 
985722 
985726 
005738 
885732 
085736 
005748 
095742 
085744 
085746 
905759 
885754 
895756 
085762 
085764 
803779 
083772 
005776 
808777 


296808 
086002 
986086 
086018 
886014 
286016 


086022 
ag6g24 
966026 
206032 


MACKXA1 


986836 
086040 
306042 
086044 
806050 
096852 
896054 
086060 
896062 
886066 
886072 
306074 
806076 
986122 
806194 


006118 
086112 
006116 
086122 
206126 
826158 
886154 
8061356 
306140 
886144 
886146 
906152 
896154 
806160 
806162 
086156 
806178 
386176 
086208 
306202 
086206 
886219 
386214 
306220 


306224 


386227 
206251 


386252 


ve2a 


820165 
181096 
864167 


046442 


200167 
105065 
103065 
124127 
901030 
123265 
205201 
984767 
122127 
294142 
310746 
262716 
112122 
100535 
200302 
152102 
861502 
804767 
011603 
121327 
001958 
105765 
081803 
084167 

077 

830 


010246 
204767 
183002 
880167 
912681 
816502 


818446 
012446 
016501 
122127 


ved 


0841375 
010104 
805224 
820465 
101074 
124144 
220165 
101374 
142744 
004767 
212624 
812681 
316526 
088724 
816502 


285203 
303065 
395065 
121327 
984403 
004767 
080434 
010316 
884767 
611683 
121327 
901403 
124327 
201047 
122427 
201663 
126127 
204016 
205726 
105765 
084022 
205065 
200167 
084167 


251102 


O45 
070 


380654 


22mMARs73 


O000%6 
007604 
116 


173246 
agoeee 
000077 
098263 
agone2 
002402 
990260 


888506 


005630 
oee202 
ogee 
007476 


886356 
880366 
eoge22 


800020 
900815 


22eMARe7S 


980816 


300029 
898054 
B1L262 
090820 
oga022 


808040 
B80042 
008245 


886550 


811128 
908243 
800281 
ao024s 
177777 


000077 
900036 
174434 
307242 


124 


12 


OB0201 


16}85 PAGE 26 


y FINPUT! STATEMENT 


INPUTI CHP 
BH! 
uSR 
,TFNOF 
ASCII 
VENDC 
\IFOF 
ASCII 
1ENOC 
,OYTE 2 
EVEN 
MP 

INPYES# CURB 
CLRS 
cCuPS 
BNE 
INCB 
INC 
JSR 
CMPB 
BNE 

INPYBLy MOV 

INPPC} AOD 

INPLOOPIMOVB 
aM! 
SWAB 
aise 
Abo 
VSR 

INPRTRYSMOV 
CMP 
BNE 

INPNEW} TSTB 
BNE 
JSR 
ASCII 
sBYTE 3 
EVEN 

NOQMI MOV 
JSR 
Bcc 
JMP 

NOQMi1 MOV 
MoV 


vbPNOF 
CMP 
BEO 
,ENOC 


MOV 
MOV 
MOV 
CMPB 


16105 PAGE 26=1 


BNE 
MoV 
Inc 
CMP 
BHI 
MOVE 
CMP 
BHY 
Move 
JSR 
MOV 
MOV 
MOV 
BR 
INPOK? MOV 


1 TFNOF 
CMP 
Bea 

1 ENOC 


Inc 
CLR 
CLR 
CMPB 
BEQ 
JSR 
8R 
INPSTOS MOV 
JSR 
MOV 
CMPB 
Bea 
CMPB 
BNE 
INPGOODICMPB 
BEO 
INPEND} CMPB 
BNE 
Ts? 
TSTB 
BNE 
CLR 
GOEXEC) UMP 
TNPNGUOS JSR 
LFNOF 
ASCII 
ENOC 
vlFOF 
ASCII 
,ENDC 
BYTE 
,BYTE 8 
EVEN 
8R 


RL, CODERS) 
tnpy€s 

HL ,MSGERR 
SLONGER 
NTQNS 


SLONGER 
‘TLLEGAL Nowe 


READY? 

T3(R5) 

TDEV(RS) pRESET INPUT TO TTY 
CRL) 48 POUND stS IT INPUT BNE 48? 
INPYQY 

T3¢RS) 


RL 

PC, CHKISET }CHECK CHANNEL AND SETsUP INPUT 
CRY) O28, COLON 
ERRSX8 

PG, e(SP) 
#INPEQL*INPPC, (SP) 
(RY) oy RZ 

ERRSXS 

R2 

(RL) ,R2 

(RS) RZ 

PC,GETVAR 

CSP) ,RS 

(R3),#, E04 

INPOK 


T3(R5) 
NOQM 
RL, MSG 
uy 


R1,*(SP) 
PGeLINGET 
NOQMY 

ERROATA 
(SP)e,RY 
VARSAV(RS) ,R2 


SNOSTR 
(RZ), #,SVAR 
INPSTK 


RL,0(SP) 
R4,9¢SP) 
TNE CRS) RL 
R14), aCR 


a4 
RLeR4 


R4 
R4,CODE(RS) 
ERRTRS 

eGR29 4964) 

RA LINEGRS) 
106 

Bay (RO) 

PC, TRAN 

(SP) o)R4 
CSP) oy RY 
LINE(R5), (SP) 
INPRTRY 
VARSAV(R5),R2 


SNOSTR : 
(RZ), 8, SVAR 
TNPNEW 


Rs 

FACA(RS) 
FAC2CKS) 
(RS), 8, COMMA 
TNPSTO 

PO LITEVAL 
INPNGYO 

RS, (SP) 

PC, STOVAR 
(SP),KS 
(RS), #, COMMA 
INPGOOD 
CRS), 8, EOL 
TNPNGYD 
(RL) 4 — # COMMA 
INPLOOP 
LCRA #, COL 
ERRSKS 

(SP)¢ 
TDEV(R5) ytF TYY INPUT, CLR COLUMN COLINT 
GOEXES 
CLMNTTYCRS) y FOR SAME 
EXECUTE 

RL MSLERR 
SLONGER 

\8RTN 


SONGER 
(BAD DATASRETYPE FROM ERKOR,¢ 


CRLF 


INPNEW 


BASICL 


1943 
1944 
1945 
1946 
1947 
1948 
1949 
1958 
1954 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1968 
1963 
1962 
1963 
1964 
1905 
1966 
1967 
1968 
1969 
1972 
1973 
4972 
3973 
4974 
1975 
1976 
4977 
1978 
1979 
1988 
1983 
1982 
1983 
1984 
1985 
1986 
41987 
1986 
4989 
19908 
1992 
1992 
1993 
1994 


BASICL 


1995 
1996 
1997 
1998 
1999 
2008 
2004 
2082 
2003 
2004 
2005 
2006 
2087 
2008 
2009 
2012 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2039 
2020 
2021 
2022 
2023 
2p24 
2025 
2026 
2027 
20268 
2929 
2038 
2031 
2232 
2833 
2034 
2035 
2236 
2037 
2038 
2039 
2n4e 
2041 
2042 
2043 
2044 


MACX11 


206421 


986422 
986426 
986458 
086432 
986436 
806442 
806444 
906458 
006452 
886454 
086456 
806462 
206464 
986466 


MACXi2 


086479 
006474 
086508 
986504 
086518 
896514 
296528 
986522 
896526 
886530 


OB6534. 


9806549 
086542 
026546 
886558 
896554 
806556 
996562 
906566 
286578 
006574 
806576 
906682 
206604 
986606 
396610 
286614 
386622 
206624 
386626 
386634 
306648 


vo2. 


016503 
1805713 
190402 
362703 
122327 
081724 
124327 
284752 
910146 
810302 
084767 
910103 
942601 
380757 


Vo2s 


004567 
816705 
O4650% 
812704 
415728 
842708 
402442 
120027 
201905 
105265 
204767 
000418 
120027 
901025 
185165 
3B1402 
904767 
804767 
103027 
105764 
901023 
110061 
200207 
195714 
180376 
842714 
112737 
105714 
180376 
912737 
012714 
980207 


22eMARe73 16185 PAGE 274 


sASC3I 
s Ende 
sByTE 3 
EVEN 
990016 REASRCHIMOV 
REAFINDITSTS 
BMy 
S9B0B2 A00 
888223 CmPB 
Bea 
890225 CMPB 
BEG 
MOV 
MOV 
810476 vSR 
MOV 
MOV 
BR 


1 1FNOF 
READGTH INC 
CMPB 
BNE 
MOV 
TSYB 
BNE 
CMPB 
BNE 
MOV 
MOV 
sus 
MOV 
MOV 
sus 
sus 
BEQ 
JSR 
MOV 
MOV 
MOV 
aoo 
MOVE 
SWAB 
MQVB 
BR 
REANULL IDES 
MOV 


L} 
REAOSTRIYSR 


BR 
sENOC 


22aMARe73 16105 PAGE 28 


"Bao vaTa READ! 


CODEC RS), RI 
(R3) 

1%6 

42, R3 
(R3)o)#,DATA 
READGOT 

eo (R3),8,£0F 
REAOOUT 
Ri,e(SP) 

RO RL 

PG, SKIPEOL 
REARS 

(SP) e,R2 
REAFINO 


SNOSTK 

RS 

(R3) oye, TEXT 
READBAD 
RS, RO 
(R3)% 

102 
CRS) op RZ 
READBAD 
RS, e(SP) 
RO, e(SP) 
#3, (SP) 
SP,R2 
R3,0(SP) 
RO, CSP) 
#2, (SP) 
REANULL, 
PC,MAKESTR 
CSP) ORS 
RS, (SP) 
SP,RO 
#3,R3 

RO, @(H3) 
RO 

RB, e(R3) 
REAQSTR 
(SP) 
(SP)4,0SP) 
PG, STOSVAR 
READOYN 


FOOFESEHHOOHOEECERHHOSHOODEESOEEHOHOOOEEHOHCOTSOHOE 
PRX TIS) 


J eeoseeereeee 
poeseepeneeoe 
peqneaedaeeas 


sbasesenoene 
oPeeneenenes 
CCR PHEDE DOOD 


INYERUPT HANOLERS 


POOREOEPSEOPOHESEH HOHE DOD ESHEDHOHOHEO HOSE RHOHENODE 
POOSOSHEDEREEHETOEROFOSEEEHEDEEHEOOHRHOOHEDEROHEDOED 


Ree eee 


010556 BINT! JSR 
@80800G MOV 
090402 MOV 
177564 MOV 
177562 MOVE 
177608 BIC 
EQ 
o8ge0s CMPB 
BNE 
098106 INCB 
804372 JSR 

8R 
000817 KBCO! = CMPB 
BNE 
208187 COMB 
REQ 

094424 JSR 
018916 DOPUTE JSR 
Bcc 
690812 TSTB8 
BNE 
BBB012 MOVE 
RTS 
$,@1013 TSTB 

OP 

290108 arc 
OO8987 177566 MOVB 
S,a1021 TSTB 

BP 

080101 177568 KBIOUN} MOV 
200100 MOV 
RTS 


KBINY © KEYBoARD INTERUPT SERVICE 


PASS ANY CHAR, To BUFF, EXCEpr 829 (IGNORE) 
AND O83 (/eC'| SET FLAG FOR LATER ACTION,) 
IF BUFF, FULL, IGNORE CHAR BIT ECHO BELL, 


RO,SAVRGI CAUSE RTI ON REG, RESTORE 
USRAREA,RS 

KBHO(RD) RE sKR AUFF, HOR, 

#TPS,R4 

ONTKB,RO JGET THAT CHAR 
#477600,R0 

KBYOUN JIGNORE 090 

RO, #003 yfocl? 

Keco 

CNCFLGCRS) MARK fOCh HIT 

PC, BUFCLR CLEAR ALL BUFFERS 

OOPUT 

RO, #47 SCHECK (OF 

OOPYT 

CNOFLG(RS) 

poPpyr HIP PRINT RESTORED, BYPASS 
PC, BUFTP CLEAR TELEPRINTER BUFFER 
PC,PUTBYT 

KBIOUN GOT IN 

BFSPEC(RG) 

8, 0183 

RO, BFSPEC(R1) 

PC 

(R4) sNO ROOM! DO BELL 

$,0102 

#402, (R4) sTEMP, CLR, INTER, 

9007, 08TPS pINSERT BELL 

(R4) WATT UNTIL DONE 

$,9192 

BYOL, O#TKS JRE@INIT, READER 

#400, (R4) JENARLE TPTR, FOR ECHO 

PC HWILL RESTORE REGS, AND @TY 


ee 


BASICL 


2045 
2046 
2047 
2048 
2049 
2058 
2051 
2852 
2053 
2054 
2055 
2256 
2057 
2058 
2059 
2068 
2uo% 
2962 
2063 
2006 
2065 
2366 
2067 
2008 
2069 
2078 
2072 
2072 
2073 
2374 
2075 
2076 
2877 
2076 
2079 
2000 
2082 
2082 
2083 
20a4 
2085 
2086 
2087 
2088 
2089 
2099 
2093 
2992 
2093 
2894 
2095 
2896 
2097 
2098 
2099 


BASICL 


2208 
2101 
2102 
2203 
2104 
2105 
2126 
2107 
2108 
21209 
2118 
2421 
3112 
2113 


2114 
2215 
2116 
2217 
2118 
2119 
2128 


MACX11 


306642 
096646 
696052 
096656 
006669 
386664 
086666 
0860798 
826674 
086676 
096700 
886702 
096704 
096786 
8896719 
906714 
986716 
806724 
806738 
8867352 
806734 


006749 
906744 
906746 
806752 
886756 
8867698 
886766 


906778 
906774 
086776 
987909 
887002 
807804 
807886 
087012 
067014 
987920 
807022 
887826 


MACKAY 


897838 
887934 


897856 
387842 


807044 
207058 


387852 
907056 


987060 
897866 
897876 
987973 
397075 
987876 
307108 


Veen 


304567 
816705 
1093705 
o044e4 
185365 
905020 
000446 
012704 
866504 
05714 
901415 
113406 
001432 
995244 
120965 
801983 
126565 
110037 
800207 
905944 
946502 


984767 
183041 
816501 
004767 
183354 
842737 
888207 


084367 
980428 
000422 
000424 
000401 
880743 
120027 
881905 
022734 
990738 
120027 
384342 


Vo24 


812714 
888722 


812714 
@00737 


12746 
eoo744 


112700 
90794 


242049 
342195 
045 
156 
ee 
847536 
945 
087134 


22eMARF7S 


019204 
oeogeea 
200118 


080118 


800104 


098112 
080411 
177566 
990182 
0g4424 


680200 
994412 


980308 


694250 


088083 
097875 
900017 


22eMARe73 


007876 
297080 
007070 
090137 
046405 

gt2 


103 


o12 


0001128 


177564 


852195 
808 


46185 = PAGE 29 


‘ 
d epINy © TELEPRINTER INTERUeT HANOLER 
, 
J USED To PRINT QUT TEXT ANO ECHO TYPESIN, 
3 YO WANOLE CASE OF PENDING REQUESTS 70 00 TEXT OUTPUT 
5 ANB ECHO, OOES THE ORDERLY THING BY FOLLOWING THIS 
' PRIORITY? 
f) IF ECHOSP(RS) SHOWS NEED TO NO 2ND HALF OF PATRER 
1 CHARS, FOR ECHO (9U, <CR><LF>}, DO FIRST, 
4 IF TEXT MESS, IN PROGRESS, FINISH IT (TO <LFD), 
H ELSE, ECHO, 
‘ ELSE, TURN OFF INTERUPTS, 
} 
TPINT! VSR RD SAVRGI SCAUSE RTI ON REG, RESTORE 
MOV USRAREA, RS 
TsTe FILLCOCRS) 
860 TPNXT 
veces = FELLCorRs) 
CLR Ro 
BR TYPES 
TPNXT} MOV #ECHOSP,R4 
aod RS, R4 sSAVFD HERE THRUSOUT ROUTINE 
TST (Ra) HSPECIAL ECHO IN PROGRESS? 
8£0 TRYECHO NO 
SPECMES!MOVB O(R4) ORO INEXT SP, ECHO CHAR, 
Seo CLRECHO 
INC #(R4) yPT, TO NEXT CHAR, 
TYPE! CMPa RO FILLCH(RS) 
BNE TYPEL 


MOVB = FELLNOC RS), FILLCOCRS) 
TYPES} MOVE RB, e#TPB 


RTS PC HRESTORE REGS, AND RETURN 
CLRECHOICLR (RQ) 
TRYECHOIMOV KBHOCKS), Re sNO MESS, @ ECHO? 
JSR pC, GET28YT 
Bcc GOTECHO 
MSGSUP1 MOV TPHD(RS) RY HTRY MESSAGE 
JSR PC, GET2BY7 
gcc TYPE sGOT ONE! GO 00 {tT 
OFFTYPEI8IC #208,eRTPS HCLEAR INTERUPT 
RTS PC 
1 
GOTECHOSUSR RS, CHKCHR CHECK THAT ECHO CHAR, 
BR PRNTOEL SLINE OELETE 
@R SETLFE iSCKD>E <LF> AS ECHOSP 
8R EGHOBA pRUG OUT! 00 ten 
BR TRCN 
BR TYPE 
TPCNI MPS RO,#3 HCHEG fect 
BNE TPCO 
MoV WOCMES, (R4) 
BR SPECHES 
TPCOS cmPe RO, #i7 CHECK / OF 
BNE TRYECHO 


16185 PAGE 2904 


MOV GOMES, (R4} 
5R SPECHES 

' 

PRNTOEL toy #OELMSG, (Ra) 187, ADDR, INTO ECHOSPtRS) 
aR SPECMES 

i 

SETLFE! Mov SCRLFMES, (a4) 
BR SPECMES 


J 
ECHQBA! Move Ble Rd 
BR TYPE 


‘ 
OELMSG} 
eASCIT ¢ OELETEDE 


CRLFMES!,BYTE  @15,012,000 

COMES} ,ASUII ‘ocr P 
‘BYTE BO 

COMES} ASCII / oF 
;BYTE 815,012,900 
1EVEN 


BASICL 


2422 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2331 
2132 
2133 
2134 
2435 
2136 
2337 
2138 
2139 
2140 
2141 
2142 
2143 
2144 
2245 
2146 
2147 
2148 
2149 


BASICL 


2150 
2451 
2152 
2153 
2154 
2155 
2156 
2157 
21568 
2159 
2160 
2262 
2162 
2163 
2164 
21605 
2166 
2167 
2168 
2169 
2178 


MACX11 


697104 
9871128 
897114 
887120 
007122 
087126 
887132 
887134 
007140 
207142 
887146 
207158 
087154 
087156 
807162 
807164 
887172 
807174 
807282 


MACXAL 


207204 
307210 
OB7214 
097228 
807224 
807226 
087232 
907234 
007249 
987242 
307259 
307254 


VOas 


304567 
812781 
2837.37 
180425 
113700 
842700 
204424 
122700 
301442 
122700 
281426 
864767 
183003 
110962 
880207 
812737 
000207 
852762 
200207 


voei 


904567 
246705 
012704 
983737 
100406 
304767 
103426 
110037 
280207 
952764 
305937 
600207 


22eMARe73 16105 PAGE 38 
«TFENDF «SNOPTP 
' 
) PYRINT © pApER@TApE READER INTERUPT HANDLER 
Uy 
§) CLEARS PARITY BIT, FLUSHES OA3, RURROUT, AND <LFD, 
} UF CHAR, WON'T FLT IN BUFF,, SAVE IN SFSPEC (LO BYTE), 
} ON EOT OR OTHER ERKOR, SET HI BIT OF BFSPEC, 
J 
807742 PTRINT) JSR RO, SAVRGI SCAUSE RTI OM REG, RESTORE 
824242 MOV #PRBFHO,RL sFOR PUTBYT 
177599 TST @sPRS VERRORS? 
8M} PREOT VYESt TREAT aS EOT 
177552 MOVB @BPRB,RO CHARACTER 
177608 BIC #177600,R0 
8e0 EXT Tee HIGNORE 088 (CAN¢T HAPPEN] ) 
900177 CMPB BL77, RO RUB OUT? 
80 EXiTee VIGNORE 
080022 CMPB LP, RO 
BEG EX}TBe JIGNORE LFIS 
007430 JSR PC,PUTBYT 
gcc EX{ ra GOT IN 
290012 MOVB RO, BFSPEC(R1) HSAVE THIS CHAR, 
RTS PC HRESTORE REGS, AND RTL 
880181 177589 EXITg2) MoV #104, 08PRS JRE*ENABLE READER 
RTS P 
100000 gee0%2 PREOT! 8ys #400000, 8F SPEC(R{) SHOW EOT 
RTS P' 
+ ENDC 
22mMARe73 16495 PAGE 34 
,JFNOF SNOPTr 
J 
} PPINT © PAPER TAPE PUNCH INTERUPY HANDLER 
H 
1 ON ERROR: MAKE BFSPEC NoNed’, 
4 
287942 PPINTE JSR R5,SAVRGI JCAUSE RTI AFTER REG, RESTORE 
O0000RG MOV USRAREA, RS 
824506 MOV #PPBFHO,R1 
177554 TST @#PPS 
BM} PPERR 
094130 JSR PC,GETiBYT 
Bcs NOCHR2 NOTHING TO GET 
177536 MOVB RO, @ePPB 
RTS PC HRESTORE REGS, AND ARTY 
200001 990012 PPERR} 81S #4,BFSPEC(R1) SINOIC, ERROR 
177554 NOCHR21 CLR enPPS CLEAR INTERUPT ENABLE 
RTS PC 
I 
ENOC 


BASICL 


2u74 
2172 
2173 
2174 
2275 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2284 
2185 
2186 
2287 
2188 
2189 
2190 


BASICL 


2191 
2192 
2193 
2194 
2295 
2196 
2197 
2198 
2199 
2200 
2204 
2202 
2203 
22064 
2205 
2206 
2207 


MACX11 


987256 
087262 
897266 
087272 
887276 
897309 
007304 
987306 
087312 


807314 
8873522 
887326 


MACX12 


887338 
087336 


3873490 
087342 
297346 
807354 
097368 
887362 
987364 


voes 


084567 
316705 
912702 
805737 
100426 
384767 
183406 
120037 
000207 


052764 
085037 
990207 


veer 


912737 
%OOB08 


805e08 
916795 
812737 
916506 
895330 
681367 
080167 


22eMARB73 «= 16105 = PAGE 32 


887578 
0908006 
@24352 
177514 
094056 
177526 


090902, 2888%2 
177544 


sIFNOF = SNOLPT 
' 
} LPINY © LINE PRINTER INTERUP? HANOLER 


' 
LPINT! JSR RS, SAYRGI ICAYSE RTI AFTER REG, RESTORE 
MOV USRAREA,RS 
MOV #LPBFHD, 22 
Ts? osuPs 
emt LPERR 
JSR PC, GET1BYT 
scs LPOFF NOTHING THERE 
MOVE RB, OWLPB sWPITE CHAR 
RTS PC 
} 
LPERRS 8ts #4, 8FSPEC(R1) RECARO ERROR 
LPOFF, CLR oss STURN IT OFF FOR AWHILE 
Rts PC 
vENOC 


22uMAaRe7S 16405) = =PAGE 33 


887340 epee24 


TTT 
807330 g0e924 
ag0ge4 


174502 


sIPNOF = =sNOPOW 
4 
1 POWOWN © POWER FAIL/RESTARY ROUTINE 


' 
POWOWNT Mov #POWUP O#24 
WALT ves 
’ 
PowUPH CLR R6 TINTTIALIZE Lone Count 
POWLP! MOV USRAREA,RS 
mov #POWOWN, 0824 
MOV POL(R9),SP dWASTE TIME CANO INIT STACKS) 
oEC RO sCOUNT TILL DONE : 
BNE POWLP 
JMP REAOYS 
+ ENOC 
+E0T 


BASICL MACX14 veer 22eMARe73 16405 PAGE 34 








220g ! SOURCE FILE #4 

2229 3 FEOOCOEOEROREROREOH SLOSS HEDDEHOCRSOOO HOT EHUEREEEOS 
2218 Jeqveovess POCOPROHOO DOR OOONEDEDESEEDOHEROE OE HEDE 
2211 peevoneevves 

2212 

2213 

2214 

2215 

2216 

2217 

2218 

2219 

2220 

2221 | Rercwccewwnweeweneanneene sane cceseeesccceecescces 
2222 } SUBROUTINE ADOSTK! CALLED BY JSR PC 

2223 H] AODS (SP)+,(SP)* TO FACL(RS),FAC2(R5) WATCHING TYPE 
2224 J R@,Ri UNUSED 

2225 1 R2,R3 DESTROYED 

2226 H] R4 MODIFIFO TO REFLECT STACK USAGE 
2227 f RS MUST POINT TO USER AREA 
2228 i] SP GOES 7? DEEPER AFTER JSR 
2229 987378 912603 AOOSTKE MOV (SP) 4,RS 

2238 387372 984767 093576 JSR PG, FIXUP 

2231 307376 984414 8EQ AODINT 

2232 907408 312767 011666 s080086 MoV mERAOD, SERVEC 

2233 987406 984467 083722 JSR R4,FPPSAV 

2234 987412 314256 WORD PUSH 

2235 007414 oe0g806 WORD SAOR 

2236 387416 214279 yHORD POP 

2237 887420 313306 WORD = FPPRES 

2238 997422 295765 290040 ts? FACA (KS) 

2239 087426 080133 wMP ¢R3) ICON CODESESSGN(RESULT) 
2240 «387438 385726 AOBINT! TST (SP)+ 

2241 897432 012682 MoV (SP) 4) R2 

2242 397434 266502 so0042 ado FAC2(R5),R2 

2243 097449 «192403 evs AOODOVE 

2244 387442 310265 209042 MOV R2,FAC2(R5) 

2245 987446 300133 wMP CR3) ICONM COOESSSGN(RESULT) 
2246 «997459 190425 ADBOVF) 8M} ADOPOS 

2247 087452 381416 BEG AQOZEKO 

2248 287454 295402 NEG R2 

2249 287456 195965 390042 CLRB FAC2(RS) 

2258 087462 110265 ceness “OVE R2,FAC2¢1(R5) 

2251 987466 099302 SWAB R2 

2252 307478 119265 seee4o MOVE R2,FACLCRS) 

2253 987474 105965 280041 CLRB FACL#i(R5) 

2254 897508 262765 143688 90040 aod #143600,FACLC(RS) 

2255 907506 290113 JMP (RS) 1CONT CODESSSGN(RESULT) 
2256 987518 285965 oB90042 ADOZEROSCLR FACQ(R5) 

2257 987514 012765 144208 eaeeee MOV 8144200,FACL(R3) 

2258 987522 090113 JMP (R3) SCAND CODESSSGN(RESULT) 
2259 987524 195965 300942 ADOPOS! CLRE FAC2(R5) 

2260 997538 112265 290043 MOVE R2,FAC291(85) 

2261 207534 389332 Swae R2 

2262 987536 119265 o90040 MOVE R2,FAGLI(RS) 
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2263 987542 195965 990044 CLRB Facies (RS) 
2264 887546 962765 243600 oape049 Aaoo #43600, F ACL (RS) 
2265 297554 090113 wMP (R3) ICON" CODESSSGN(RESYLT) 


2266 


sel 


BASICL 


2207 
2268 
2269 
2278 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2284 
2282 
2283 
2284 
2285 
2286 
2287 
2288 
2209 
2299 
2294 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2308 
2304 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 
2318 
2312 
2312 
2313 
2314 
2315 
2516 
2317 
2318 
2319 
2328 
2321 
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2322 
2323 
2324 
2325 
2326 
2327 
2328 
2329 
2330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 
2338 
2339 
2348 
2341 
2342 
2343 
2344 
2345 
2346 
2347 
2348 
2349 
2350 
2351 
2352 
2353 
2354 
2355 
2356 
2357 
2358 
2359 
2368 
2364 
2362 
2363 
2364 


MACXLL 


897556 
287568 
907562 
007564 
087566 
887578 
087572 
087574 
887688 
887602 
897604 
897686 
087619 
687612 
907614 
087616 
607628 
087622 
087626 


087638 
007652 
007634 
807648 
007642 
007644 
097650 
397652 
087654 
987656 
987660 
027664 
097666 


987678 
087674 


MACX11 


087676 
087708 
897702 
087794 
087706 
387718 


907714 
987729 
007722 
807724 
987726 


087738 


@87733 


veer 


510046 
810146 
985203 
010402 
985201 
261776 
295908 
8142746 
986301 
103802 
260388 
183447 
986380 
103445 
985316 
003370 
885726 
962728 
103437 


086398 
103435 
916501 
100001 
103431 
020165 
183426 
995721 
300401 
305024 
20165 
181774 
160801 


812722 
622222 


ve2s 


#42224 
010442 
995303 
910342 
A1B142 
162712 


160065 
212601 
312600 
308207 
380084 


952101 


22eMARe73S 


O90RR2 


O9ee12 


800074 


900022 


177776 


22eMARe73 


890004 


ogees2 


414 


16105 PACE 35 


, 
U 
5 
' 
4 
' 
Uy 
) 


ALLOC} §=6MOV 
MoV 
INC 
MOV 
TNC 
BEG 
CLR 
MOV 
ALLLOOPHASL 
acc 
apo 
acs 
ALLNOADIASL 
acs 


bec 
aGT 
TST 
apo 
acs 


sl FNOF 
CMP 
BEQ 
ENOC 


ASL 
acs 
MOV 
suB 
BCS 
cMP 
BLO 
TST 
BR 
CUR 
CHP 
BLOS 
sus 


rIFNOF 
CMP 
B60 
sENDC 


MoV 
MOV 
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MOV 
MOV 
oEc 
MOV 
MoV 
sys 


a TFNOF 
@R 
ALLSTRNITST 
MOV 
oEc 
MOV 
MOV 
MOV 
sus 
MOV 
CMP 
alos 
sus 
“OV 
INC 
BEQ 
Swas 
“OVB 
SWAG 
MOVB 
+ ENDC 


ALLEX1T1SU8 
MOV 
“OV 
RTS 
ERRARAYI {OT 
v LFNOF 
sASCTI 
ENO 
y1FOF 
sASCII 
ENOC 
:BYTE 8 
,EVEN 





SUBROUTINE fALLQC! CALLED BY JSR PC 


ALLOCATES ARRAY SPACE FROM FREESPACE 
R@,R1 PRESERVED 
R2 MUST POINT TO VAR GETS DESTROYED 
RS MUST CONTAIN SS1MAX GETS DESTROYED 
R4 MUST CONTAIN SS2MAX GETS MESTROYED 
R5 MUST POINT TO USER AREA 
SP GOES 7? NEEPER AFTER JSR 

RO, oC SP) 

R1iya(SP) 

RS 


RB leave 
#20, > (SP) de 
Ra te 
ALLNOAD te 
RS~RO te 
ERRARAY te 
RO te 
ERRARAY te 
(SP) te 
AGLLOOP te 
CSP)+ teee 
#2,R0 

ERRARAY sRa NOW s 2 TIMES # ELEMENTS NEEDED, 


MULTIPLY (RL) @(R3) 02 
RESULT IN Ra 
WATCH FOR OVEPFLOWS 


esesetseveese 


SNOSTK 
(H2),#,SVAR 
1¢6 


RO 

ERRARAY RO “Ow = # BYTES NEEDED, 
HIFREE(RS) RO 
RO,RL 

ERRARAY 

RY HISTRORS) 
ERRARAY 

CRID* 

104 

CRY)+ 

RL, HIFREE(RS) 
186 i 
RORY 


SNOSTK 
(R2),8,SVAR 
ALLSTAN 


BrNVAR, CRZ)% 
CRAY HrCRIDS 


(RZ), (RL) 0 
R4,¢R2) 

RS 

RS,a(K2) 
Ri,0(K2) 
#4, ¢R2) 


SNOSTH 
ALLEXET 
(R2)¢ 
(R2) 4) (RL) 
RS 

RS, (R2)% 
R4, (RZ) 

RL, e4gR2) 
#2, 0402) 
wei, (K+ 
RY, HIFREEGRS) 
948 

RO RL 

CRY RZ 

R 


2 

ALLEXIT 

Ri 

RL, CR2)+ 

RL 

RL, ¢R2) 
RB,HIFREE (AS) 
(SP)e,RE 
(SP)o,RB 

PG 


SLONGER 
NATL 


SLONGER 
tARRAYS TOO LARGE! 
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2365 vTFNOF = SNOSTH 

2366 ee ee ee ee ‘ 
2367 }  fARGBE SUBROUTINE 

2368 J CALLED BY JSF R7 

2369 H CALLS EVAL TA GET A LeBYTE 
2378 i ARGUMENT, BRANCHES TO ERRARG 
2371 H IF ARG NO GOCO 

2372 ARGBI JSR PC, EVAL 

2373 Bcs ERRARG 

2374 JSR PC, INT 

2375 rst FACL(RS) 

2376 BNE ERRARG 

2377 : Tsva FAC2#4(R5) 

2378 BNE ERRARG 

2379 ATS PC 

2388 1 ENOC 

2384 

2382 ERSQRI 

2383 ERLOGI 

2384 987734 segg04 ERRARG| JOY 

2385 IFOF  SLONGER 

2386 ASCII ARGUMENT ERRORS 

2387 »ENOG 

2388 sTFNOF = SLQNGER 

2389 887736 051101 327 sASCIT ARGS 

2398 1ENOC 

2391 807741 988 BYTE 68 

2392 ,EVEN 

2393 
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2394 1 Semen dec ew ewes cc wc enecerecerereewenece 
2395 J) SyBROYTINE !eoMBr CALLED By tor ‘ 
2396 1 PRINTS ERROR MESSAGE FROM AFTER JOT 
2397 ' -R@ DESTROYER 
2398 f R1 PRESERVED 
2399 f R2,R3.R4 UNUSED 
24008 j R> MUST POINT TO USER AREA 
2404 ; SP RESET TO EMPTY STACK 
2402 1 PC NOES NOT RETURN 
2403 307742 312604 BOMB! = MOV (SP), RL 
2404 007744 216705 ageg0RG MOV USRAREA,RS 
2485 387758 316506 aeage4 MOV POL (R2),SP 
2406 387754 4eSe65 200076 CLR ODEV(RS) sCAUSE MES OUTPUT 70 TTY 
2407 387760 012765 o99836 ope034 MOV #CLMNTTY,COLUMN(R5) ISET*UP TTY FOR COL, COUNT 
2498 987766 260565 C8854 aod R5, COLUMN(RS) 
2409 387772 204167 205476 JSR RigMSG 
2410 387776 a15 o42 1BYTE —CRALF 
2412 vIPNOF SLONGER 
2412 910009 045 sASCIL 1% 
2413 + ENOC 
2414 #319901 gag :BYTE @ 
2415 +EVEN 
2416 310002 112196 BOMBNX) MOVB (RY) Oy RO ‘ 
2417 "240904 294403 CT) BOMBOON 
2418 219906 294767 376664 vSR PC ,PUICHAR 
2419 «310812 489773 aR BOMBNX 
2420 210014 826527 090830 177775 BOMBOONICHP LINENO(RS),#, SCALAR 
2421 310022 193044 BHIS BOMB yMP 
2422 910924 304167 905444 VSR R1,MSG 
2423 810030 340449 o20124 244544 tASCIE ¢ AT RINE 2 
219036 242516 040 
2424 310041 039 :BYTE 2 
2425 1EVEN 
2426 919042 616508 ag0230 MOV LINENO(R5),RO 
2427) 910846 302405 BLT BOMBNEG 
2428 310250 710965 sge042 MOV RB»FAGZ(RD) 
2429 910054 795965 aeeuse CLR FACA(RS5) 
2430 10060 290414 BR BOMBOK 
2431 919062 110965 090043 BOMBNEG! MOVE RU ,FACZ#1( RS) 
2432 0819966 195965 g90042 CLRB FAC2(RS) 
2433 910072 oBo3e8 SWAB Re 
2434 919874 110965 o89040 MOVB RB, FACL(RS) 
2435 010108 195965 200043 GLRB FACL#1(R5) 
2436 910194 262765 43600 so0040 AOD #43600,F ACL (95) 
2437 910112 004767 095030 B0MBOKI JSR PC,NUMOUT 
2438 310116 284167 295352 JSR RL, MSG 
2439 19122 015 a12 020 1BYTE = CRy LF a® 
2440 319126 1EVEN 
2441 910126 200167 170744 BOMB UMP T UMP READY 


2442 


Nee 
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2443 
2444 
2445 
2446 
2447 
2448 
2449 
2459 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2468 
24604 
2462 
2463 
2404 
2465 
2466 
2467 
2468 
2469 
2479 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2484 
2482 
2483 
2484 
2485 


BASICL 


2486 
2487 
2488 
2489 
2490 
2494 
2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2508 
2503 
2502 
2583 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
2513 
2512 
2513 
2514 
2515 
2516 
2917 
2518 
2519 
2520 
2528 
2d22 
2523 


MACX12 


8181352 
010136 
019142 
18142 
010144 
918146 
818158 


010154 
910168 
010164 
810178 


810174 
010200 


810204 


818206 
810212 
19214 
018216 
018220 
318222 


MACX12 


818224 
910238 


919252 


818256 
910248 
319244 
919246 
010252 
018254 
318256 
810262 
310264 
819266 
819272 
810274 
310508 
819302 
010304 
610310 
319312 
918316 
18328 
319322 


vee. 


416502 
212203 
295722 
18322 
10322 
#10322 
904767 


312702 
904767 
942702 
004767 


922702 
204767 


300207 


946502 
212283 
222222 
0218322 
018322 
388227 


veai 


120027 
001434 
120027 
004434 
120927 
201426 
120027 
881423 
385723 
120027 
504447 
895723 
120027 
884413 
120927 
281410 
805723 
120927 
103404 
120027 
191004 
305723 
290203 


22eMARe7S 


090102 


290052 


824506 
083562 
824242 
093552 


023352 
003542 


000188 


22eMARe7S 


090176 
090175 
890033 
agee2s 


980815 


000177 
008157 


000840 
800137 


16485 


16165 
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J 
) BUPCLREMINIT I/o Ofy, SYFFER HEADERS 


' 

1) CALLE JSR 

' 

J YSES RZ AND RS 


pS, BUFCLR 


5 
BUFCLRE MoV KBHO( HS), R2 
MOV 


(R2)+)RS 
TST (R276 
MOV RS, (R2)% 
MOV R3, (RZ) 
MOV R3,(RZ)> 
usr PG, BUrTP 
,JFNOF = SNOPTP 
MOV aPPBFHD,R2 
uSR PC, IN, TBF 
MOV #PROFHU,R2 
JSR PC, IN| TBF 
,ENOC 
vUFNOF = SNOLPT 
MOV #PEFHO,R2 
JSR PG, ING TBF 
+ENDC 
RTS PC 


HKEYPQARO 
sBUFF, START 
SKIP YO BGETL 


sCLEAR TELEPRINTER BUFFER 


PAPER TAPE PUNCH 
PAPER TAPE HEADER 


' 
} BUFTP**INIT TELEPRINTER AUFFER HEADER 


' 

1 CALLE JSR 

' 

} USES R2 AND RS 
' 

BUFTPI MoV 


pC, Buf TP 


TPHO( KS)» R2 
MoV (R274) RS 
CMP (RZ), 6R2)6 
MOV RS, (RZ) 
MoV R3, (RZ 
RTS PC 
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STELEP@INTER 
}OUFF, START 
PT, TO BGET2 


CHKCHR @ CHECK ASCII CHAR, For SPECIAL CASES 


4 
’ 
' 
1 
1 GALLI Mov CGOHAR, J ,RO 
' ySR RS, CHKCHR 
U INSTRUC, 
f INSTRUC, yEXEC, 
' INSTRUC, sEXEC, 
1 INSTRUC, VEXEC, 
’ INSTRUC, JEXEC, 
4 
5 yses Re 
4 
CHKCHRI CMPB RO, 8178 
bEO COEXIST 
cMPB RO, #475 
BE0 COEXIT 
cups RO, HSS 
BEO CCEXIT 
CMPB = s-RB, #29. 
8£0 CGEXIT 
TST (R3)4 
cuPS RO, BCR 
BEO CCEXIT 
TST (R3)o 
CMPB RO, 8277 
BEG CCEXIT 
cMPB RO,aTe 
Bea CCEXIT 
TS? (R3)e 
compa RO, 940 
BL0 COEXIST 
cMPB RO, #157 
BHI COEXIT 
TST (R3)o 
CCEXIT) RTS RS 


JEMECUTE IF LINE DEL, (<ALT “ODED, /etit) 


IF <CR> 

IF <RUB QUT> (OR ‘e?) 

IF RELOW 4@ OR ABOVE 137 
IF GOOD STUFF 


yALT MOOE 

sALT MODE 

ALT MODE 

pfeur 

aTO <CR> RETURN 


470 RUB OUT RETURN 
sRUB OUT 


sTO LIMIT RETURN 


REG, CHAR, RETURN 


BASICL 


2524 
2525 
2526 
2527 
2528 
2529 
2530 
2531 
2532 
2533 
2534 
2535 
2336 
2537 
2538 
2539 
2548 
2543 
2542 
2543 
2544 
2545 
2546 
2547 
25468 
2549 
2550 
2551 
2552 
2553 
2554 
2555 
2556 
2557 
2558 
2559 
2560 
2563 
2562 
2563 
2564 
2505 
2366 
2567 
2568 
2569 
2578 
2574 
2572 
2573 
2574 
2575 
2576 
2577 
2578 


BAS{CL 


2579 
2580 
2381 
2582 
2583 
2584 
2585 
2586 
2587 
25868 
2589 
2598 
2592 
2592 


MACKLL 


810324 
019338 
918332 
818336 
810342 
810344 
910359 
019352 
019356 
010368 
848362 
818364 
810378 
810372 
40374 
018376 
019409 
019482 


810404 
810419 
O19412 


910415 


819416 


010417 


MACX4L1 


919420 


310421 


218422 
012423 


yea. 


242700 
200402 
342780 
206767 
183428 
295765 
384027 
226502 
81441 
111083 
269583 
820227 
181927 
960200 
141043 
284404 
111902 
880207 


200167 
980004 
344504 


CTT} 


876 


B02 


Ve2t 


O24 


077 


802 
080 


22emARe73 


810424 


010446 
0go234 


980040 
oo0R4e2 


eogee2 


001240 


195 


22eMARe73 
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CALLE Mov 
JSR 


CHKISETIMOV 
BR 


CHKOSETIMOV 
COMCHK} JSR 
acs 
Ts? 
BNE 
MOV 
Bea 
MOVE 
ado 
CMP 
BH} 
AOD 
MOVE 
REQ 
MOVE 
OUreiL2) RTS 
U 


Ersxi2t JMP 
| 


ERCHANY lor 
yTFNOF 
rASCII 
1 ENOC 
vtFOr 
ASCII 
,ENOC 
BYTE 
EVEN 

J 


' 

OTABLE} ,BYTE 
LIFOF 
BYTE 
VENDC 
vTFNOF 
1BYTE 
+ENOC 
tFOr 
BYTE 
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+€NOC 
clFNOF 
BYTE 
,ENOC 


5 

ITABLET , BYTE 
1, 1FOF 
BYTE 
,ENOC 
1 TFNOF 
BYTE 
,ENOC 
BYTE 


CHKISET @ CHECK [/0 CHANNEL ANT SETUP [NPUT (IOEV(R5)) 
CHKOSET © CHECK 1/0 CHANNEL AND SET@UP OUTPUT (ODEV(RS)) 


CADOR: oF CODE LINE mrp, AFTER ‘#C3,R1 
PC,CHKISET (CHKOSET) 


USES! ROARLRZARS HD 


CHECK JF SPECIFIED CHANNEL LEGAL (NUMBER IN RANGE AND 179 
DEVICE ASSEMBLED JN), RETURN COME FOR SPECIFIFO DEVICE 
(SAME AS VALUE OF JOEV (ODEV)) IN 22, ON EXIT, RL PTS, 
TO BYTE AFTER CHANNEL NUMBER, 


#TTABLE, RO 

COMCHK 

#OTAGLE, RO 

PC EVAL 

ERSX42 

FAGCL(RS) 

ERCHAN IMUST BE INTEGER 

FAC2(KS),R2 

ourare NTTY © EVERYTHING SETeUP 
(RB), RS TFIRST TABLE ENTRY 

RO,RS HPTS, TO ACTUAL BYTE 

R2,82 IMAX CHANNEL NUMBER (CURRENTLY) 
ERCHAN 

R2,RO JENTRY IN TABLE OF DEV, CONE 
CRO), (RS) sCOLE INTO IDEV OR ODEV 
ERCHAN IMEANS NO DEVICE THERE 
(HO), RZ 

Pc 


ERRSXS 
SLONGER 
\OCEN 


SWONGER 
(OEVICE CHANNEL FRRORE 


o0Ey 
SNOPTP 
a 


SNOPTP 
2 


SNOLPT 
a 


SNOLPT 
4 


1DEV 
SNOPTP 
a 


SNOPTP 
2 
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2593 
2594 
2595 
2596 
2597 
2598 
2399 
2608 
200% 
2002 
2023 
2604 
2005 
2006 
2007 
2008 
2009 
2018 
2611 
2612 
2613 
2614 
2615 
2616 
2617 
2618 
2019 
2628 
2621 
2622 
2623 
2024 
2625 
2026 
2627 
2028 
2629 
2030 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2638 
2639 


BASICL 


2648 
2643 
2042 
2043 
2644 
2645 
2046 
2647 
2648 
2049 
2650 
2654 
2652 
2653 
2654 
2655 
2056 
2057 
2658 


MACX11 


019424 
310432 
010442 
910442 
419446 
910452 
910454 


010456 
010462 


310464 
818466 
810479 
010474 
818476 
918509 
910504 
019506 
010514 
910522 
019530 
910536 
913542 
910546 
919550 
010554 
910556 


MACx41 


910568 
910564 
010578 
018572 
049576 
919608 
8109602 
810604 
018606 
018612 
18614 


vezs 


222765 
312765 
811528 
220065 
193814 
321827 
183405 


332728 
8850.6 


812018 
012010 
362708 
488762 
305928 
820965 
104774 
816565 
816565 
016565 
812765 
016509 
842729 
905020 
220965 
101774 
090207 


voes 


822746 
22783 
101002 
962703 
386194 
086105 
205316 
OB3367 
242703 
005726 
980207 


22eHMAR@7S 


O32331 
163231 


908814 
177775 


477775 


890804 


060010 


908818 
o9ee14 
8oB014 
880855 
880804 
477777 


22eMARe7S 


808834 
0509808 


138888 


170908 


890064 
880866 


998012 
088072 
BOOR74 
200832 


16105 


PAGE 44 


| peccqacccsencgeccgeccccessecesccescccseccgecesccces 


SUBROUTINE 'CLRVARS! CALLED BY Jsp pC 


awe wwe ee 


LRVARSIMOV 


MOV 
MoV 


CLRLOOP ICMP 


BHIS 
CMP 
Lo 


vTFNOF 
CMP 
aeQ 
1 ENOC 


MOV 
CLR 


o TFNOF 
8R 


CLRSVARSMOV 


CLROKI 


ENOC 


MoV 
MOV 
abo 
BR 

CLR 


CLRFREESCMP 


16495 


' 
, 
y 
' 
4 
’ 


BL OS 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CMP 
BLOS 
RTS 


PAGE 42 


CLEARS VARS TO SCALAR ZEROS,NULL STRINGS 
ALSO INITIALIZES RANDOM NO GEN 
RB DESTROYED 
R4,R2gR3,R4 YNUSED 
RS MUST POINT TO USER AREA 
SP GOES NO NEEPER AFTER JSR 
#52332, RNOL(R5) 
#163294, R2NN2(R5) 
CRS), RO 
RO, LOFREE(RS) 
CLARFREE 
(RB),#, SCALAR 
CLROK 


SNOSTK 
(RB), #,SVAR 
CLRSVAR 


# SCALAR, (RODS 
(Ra) 


SNOSTR 
+4 
(RO) O) (RA) 


(RB) O, (RO) 

(HO) O) (RO) 

#4, RO 

CLRLOOP 

(RO) * 

RO, ARRAYS(A5) 

106 

ARRAYS(R5) ,HIFREE (RS) 
LOFREE(R5) ,LOSYRERS) 
LOFREE(RS) ,HISYRORS) VEMPTY STRING STORAGE 
#33,GSBCTR(RS) 
POLCRD), RO 

Med, (KOs 

(RO)o 

RO LIMITCRS) 

196 

Pg 


Poccecewcr enw eens wen wrens cen es wn ws enesawccweereess 


SUBROUTINE "OIVTEN! CALLED BY JSR PC 


OLVTENS MOV 
OLVLOOPICMP 


BHI 
aod 
ROL, 
ROL 
DEC 
8c? 
alc 
TS? 
RTS 


OUVINES P3,R4 AY DECIMAL 10 
RO,RL,R2 UNUSED 


R3,R4 1S THE 34 BIT UNSIGNED INTEGER TO DIVIDE 


RS UNUSFD 
SP GOES 2 DEEPER AFTER ySR 

34,0 SP) 

#50000,R3 

106 

#430000,°3 

R4 

RS 

(SP) 

OUVLOOP 

#479000,R3 

(SP)o 

PC 


BASICL 


2659 
2668 
2662 
2662 
2063 
2664 
2665 
2666 
2067 
2668 
2669 
2678 
2071 
2072 
2073 
2674 
2675 
2676 
2077 
2678 
2679 
2688 
2681 
2682 
2083 
2084 
2685 
2686 
2087 
2688 
2689 
2098 
2691 
2092 
2693 
2094 
2695 
2696 
2097 
2698 
2699 
2708 
2781 
2702 
2703 
2704 
2705 
2706 
2707 
2708 
2709 
2710 
2741 
2712 
2713 


BASICL 


2714 
2715 
2716 
2717 
2718 
2719 
2720 
2724 


MACK11 


MACKA4 


veer 


Voat 


22emMARe73 


22eMARG73 


16105 PAGE 43 
sIFNOF  sNOSTH 


er i en en nen eed 


$ SUBROUTINE ‘DNPACK? CALLED BY JsR PC 
' PACKS STPING STOKAGE TOWARO LOW CORE 
, R@ UNUSED 
1 R1,R2,R3 PRESERVED 
I R4 UNUSED 
J RS MUST POI“T TO USER AREA 
1 SP GOES 1% YEEPER AFTER JSR 
ONPACK} MOV R1,9(SP) TO 'INDERSTAND THESE ROUTINES IT [S HELPFUL TO 
MOV R2,0e(SP) sKNOW THAT NON@NULL STRINGS ARE STORED AS 
MOV RS," (OP) HCLENGTH,2 BYTE BACKPTR,N BYTE STRING, LENGTH) 
CLR (SP) HWHERE LENGTH IS THE VALUE OF N AND IF BACKPTR 
MOV LOSTRIRS),R2 s1S O09, THEN JT IS RELATIVE TO SYMBOLS, 
MoV LOFREEC(R5S) RL 
MOV RY,LOSTR(KS) 
ONPLOOPICLR (SP) 
ase (R2)%, (SP) 
BNE ONPN2KO 
ONPBAD} CMP RZ, HISTRORS) 
BLO ONPLOOP 
MoV RL HISTRERS) sSAVF HIGH STRING ADORESS 
TST (SP)e 
MOV (SP)eyR3 
MOV (SP )o,R2 
MOV (SP)o,RL 
RTS PC 
ONPN2ROSCLR RS 
BSB (R2)O RS 
SWAB RS 
gise (RZ) eyR3 
aod (SP),K2 
TNC R2 
Bir RSet 
seo 106 
DEC RS 
aod (R35) KS 
cMP R3,PDLCRS) 
BHIS ONPBAY 
CMP RS,SP 
SHIS ONPGOOD 
CMP R3,ARRAYS(A5) 
BHI ONPBAD 
CMP RS,HIFREE(RS) 
BHI ONPGOOO 
CMP RB, LOFREE( RS) 
BHIS ONPBAD 
CMP RS,CRD) 
8L0 ONPBAD 
ONPGOODTA00 #4,¢SP) 
sua (SP), R2 
CMP RQ, (RS) 
BNE ONPIGNO 
MoV R4,(R3) 


MOVB (RZ), (RL) & 


16505 PAGE 4304 


DEC (SP) 

8GT 124 

BR ONPBAU 
DNPIGNOTADD (SP), R2 

BR ONPBAU 

vENOC 

sE0T 


fhe 


BASIC, 


2722 
2723 
2724 
2725 
2726 
2727 
2728 
2729 
2730 
273% 
2732 
2733 
2734 
2735 
2736 
2737 
2738 
2739 
2740 
2744 
2742 
2743 
2744 
2745 
2746 
2747 
2748 
2749 
2758 
2754 
2752 
2753 
2754 
2755 
2756 
2737 
2758 
2739 
2760 
2763 
2762 
2763 
2784 
2765 
2766 
2707 
2768 
2789 
2778 
2773 
2772 
2773 
2774 
2775 
2776 


BASIC 


2777 
2778 
2779 
2780 
2782 
2782 
2783 
2784 
2785 
2786 
2787 
2788 
2789 
27908 
2791 
2792 
2793 
2794 
2795 
2796 
2797 
2798 
2799 
2600 
2801 
2802 
2803 
2604 
2805 
2806 
2807 
2808 
2809 
2048 
2612 
2812 
2813 
2814 
2845 
2816 
2617 
2818 
2019 
2628 
2621 
2822 
2823 
2624 
2825 
2826 
2827 
2628 
2829 
2832 
2831 


MACKX12 


010616 
040620 
049622 
818626 
819630 
040634 
010636 
018649 
010642 
010644 
010650 
040652 
910656 
010660 
010664 
812666 
040672 
040674 
040700 
010782 
010706 
010718 
310714 


310716 
918722 
340726 
3148738 
810734 
310756 


MACX11 


210742 
010744 
010746 
010758 
810754 
310756 
210768 
810762 
210764 
010766 
810779 
010772 
910774 
010776 
311908 
311802 


a11904 
O11910 
011014 
011020 
a11924 
211930 
911052 
211036 
311042 
811046 
311052 
011054 


211868 
241064 
311866 


VO2i 


120604 
193426 
842746 
200404 
942746 
920606 
103530 
122182 
882113 
120227 
302455 
120227 
801462 
128227 
204462 
120227 
381478 
120227 
081753 
120227 
091754 
126227 
20504 


842702 
162782 
086302 
026227 
101254 
062702 


Vo2L 


360702 
308712 
803802 
200167 
264297 
880000 
200028 
809716 
889724 
380732 
480746 
300754 
380779 
288088 
304122 
688008 


911902 
285065 
185965 
112165 
200167 
895965 
200404 
112465 
122165 
122165 
112165 
289507 
304767 


122127 
204502 
OBOL67 


22emARe73 46105 PAGE 44 
) SOURCE FILE #5 
| geccecewccccc ence ce ceccwnseceswnwceensesesesezecce 
’ 
) EVAL © EVALUATE EXPRESSION 
’ 
1 GALLI Mov CYSER@AREAS 
' MOV CSTACK S1ZEI,R4 
H MOV CGWAR, PTR, I,RL 
’ ysR PC EVAL 
U : 
J YSES ALL REGS, 
’ 
} RETURNS ‘Cf BIT SET IF STRING VAL, 
’ CLA IF NOT STRING 
' 
} RETURNS VALUE IN FACA(HS), FAC2¢R5S) 
' 
EvaALi = CMp SPsR4 
BLO BPO, 
age2s5 Mov #, TERM, ©(SP) 
BR OPERANO 
ope233 UMENUSS MOV # UNARY, o(SP) 
CMP SP,R4 
BPOL! = 8L0 ERRPOL, 
OPERANOt MOVE CHL) Op RZ 
8GE VARBLE 
880575 compe R2,e,ULITL 
BEO thers 
390376 cups R2y8, IQIT2 
BEG IhlT2 
880374 cura R28 ELIT 
BE FLIT 
290255 coupe R2,#,LPAR 
8£0 LPAR 
oao2s4 CMPB R2,8, MINUS 
BEQ UMINUS 
090232 cMPB R2,8, PLUS 
Bea OPERAND 
eg0262 cura R2,8,5N 
BEQ GOTOFN 
,IPNOF SNOSTK 
cMPs R2,#,3QU0T 
Bea GOTOGT 
cups R2,8,0QU0T 
BNE NOQUOTE 
GOTOOTS UMP Qyore 
+ ENDE 
177408 NOQUOTEIB8IC #477490 ,22 
80205 sue #,RNDL RZ 
ASL R2 
ogee24 CMP RZ, #TULSENM®TARLES 
; BHI ERRSX4 
ogaoi2 ao0 #12, R2 
22eMARe7S 16105 = PAGE 4404 
ao0 PoyR2 
TSY (R2) 
8GT 1*6 
og2n62 vMP ERRUFN 
apo (R29, PC 
TABLES! ,WORD @ 5 RNAC 
WORD 8 4s RND 
+WORD = SINFN@ TABLES 
WORD COSFN@TABLES 
+WORO = SQRFN@ TABLES 
»WORD = ATNFN® TABLES 
+WORD = EXPFNe TABLES 
WORD = LOGFNW TABLES 
sWORD @ ) ABs 
WORD = INTFN® TABLES 
WORD @ 1 SG" 
rIFNOF = SNOSTR 
WORD ® 3 TaR 
1 WORO td] y Le’ 
WORD @ y Ase 
WORD 2 1 CHES 
WORD @ 3 POS 
WORD O 1 SEG 
;WORD @ 4 VAL 
»WORD @ 4 $78 
,ENDC 
TBLSEND 8,02 
900040 ILTTa+ CLR FAGI(K5) 
890045 CLRB FAC2#1(R5) 
290042 MOVB (RL) Op FACZCRS) 
800246 JMP OPRATOR 
090240 ILIT2+ CLR FACA(H5) 
BR ILtTcom 
oe0041 FLIT) «© OVE (RL) 4%) FACLOLCRS) 
000040 MOVE (RL) +e FACLCRS) 
OB8045 TLITCOMsMOVE (REO pFACZ4L (RS) 
990042 MOVB (RL) Op FACZERS) 
BR OPRATOR 
177530. LPARI = -ySR PC, EVAL 
vIFNOF SNOSTR 
8cs LPSTRNG 
,ENOC 
000237 Cups (RL) 498, RPAR 
BEG OPRATOR 
200556 ERRSX4} UMP ERRSXS 
vIFNOF SNOSTR 
LPSTRNGICMPB (RL) *¢ 8, RPAR 
BNE ERRSX4 
uMP SOPRATR 


sENDC 


BASICL 


2832 
2833 
2834 
2035 
2636 
2637 
2838 
2839 
2848 
2043 
2842 
2843 
2644 
2845 
2646 
2847 
2848 
2049 
2850 
2853 
2852 
2853 
2854 
2855 
2856 
2657 
2858 
2859 
2869 
2861 
2862 
2865 
2864 
2865 
2866 
2667 
2868 
2069 
28790 
2671 
2872 
2873 
2874 
2875 
2876 
2677 
2878 
2679 
2680 
2681 
2882 
2883 
2864 
2685 
2886 


BASICL 


2887 
2888 
2889 
2898 
2891 
2892 
2893 
2894 
2895 
2896 
2897 
2898 
2899 
2908 
2901 
2902 
2905 
2904 
2905 
2906 
2987 
2908 
2909 
2910 
2011 
2912 
2943 
2944 
2945 
2916 
2917 
2918 
2949 
2920 
2924 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 
2932 
2932 
2933 
2934 
2935 
2936 
2937 
2938 
2939 
2949 
2941 


MACKX12 


811072 
o1t074 
021076 
011108 
811104 


341106 
41112 
O1s1i4 
B1r116 


011120 
811122 


011125 
811126 


311152 
911154 
811156 
911148 


011144 
011158 
011154 
911156 
911162 
@11164 
611178 
811172 
811176 


MACXA1 


11202 
811206 
11212 
a11214 
g1ii220 
311222 
911226 
811230 
211232 
911234 
911240 
811242 
811246 
311252 
011254 


311256 
341262 
911266 
341272 
811274 
911308 
811302 
811396 
11318 
341314 
311316 
441320 
311324 
11326 
811352 
211334 
8113549 
2113542 
311346 
311350 
011354 
311356 
811362 
11364 
311370 
311372 
811376 
811408 
811482 


vo2s 


380322 
152132 
264502 
121127 
@BL412 


322227 
284463 
811202 
20046) 


808004 
052105 


000 
900167 


805204 
303771 
310246 
394767 


094767 
905765 
001027 
121127 
001426 
122127 
204336 
816546 
204767 


vo2s 


004767 
205765 
204010 
122127 
204322 
16583 
1090482 
212688 
980407 
829167 
985201 
912703 
416500 
100778 
422682 


384767 
812265 
011265 
111103 
120327 
002437 
120327 
881434 
129327 
183664 
911602 
120227 
184425 
120227 
194447 
122227 
104411 
120227 
191403 
12¢327 
194427 
120327 
181424 
120327 
101424 
128327 
101426 
@95ee2 
152602 


22eMARe73 


980255 


177775 


1es 


984546 


177432 


002634 
090048 


a0237 
090245 


090042 
477424 


22aMARW73 


982576 
280040 


800237 
30og4e 


2035354 


1477777 
280B42 


883356 
320040 
ogon4e 
990201 
808225 


998227 


300227 
090231 
ago2s4 
290224 
290254 
oaaes4 
og0231 
oon227 


16105 PAGE 4402 


vARBLEt 


swad 
ise 
400 


CMP 
BEO 


1 LFNOF 
CMP 
BEQ 
sENOC 


Cup 
BEO 
MOV 
BR 


s TFNOF 


STRGJMP 1 MP 


ERRPOL! 


GOTOFNS 
ERRMX21 


VARSSt 


vENOC 


lor 
vTPNOF 
rASCIT 
sENOC 
,lFOF 
ASCII 
+ENOC 
1BYTE 2 
+ EVEN 
JMP 


a TFNOF 
JMP 
vENOC 


Inc 
BLE 
MOV 
JSR 


TPNOF 
BCS 
,ENOC 


JSR 
Ts? 
BNE 
cMPB 
BEO 
CMPB 
BNE 
MOV 
JSR 


16105 PAGE 4403 


ERRSS2} 
VONESS} 


vTwOSst 


tFNOF 
BCS 
VENDC 
vSR 
TSY 


“BNE 


CMPB 
BNE 
MoV 
BM! 
MOV 
BR 
JMP 
TNC 
MOV 
MOV 
BM 
MOV 


v TENOF 
CMP 
BNE 
JMP 
,ENOC 


dSR 


VARNOSSSMOV 


MOV 


OPRATORIMOVB 


PRECSI 
PREC4} 
PRECS! 
PREC2t 


cMPB 
ci) 

CMPB 
8E0 

cMPB 
BLO 

MOV 

CMPB 
BLOS 
cues 
BLOS 
cMPB 
BLOS 
cMPB 
BLOS 
cMPB 
BLOS 
CMPB 
BLOS 
cMPB 
BLOS 
CMPB 
8L0S 


DOLTNOWICLR 


BISB 


R2 

CREO, RE 
(RS), K2 
CRO), # LPAR 
VARSS 


SNOSTH 
(R2),#,SVAR 
STRGJMP 


(R2)4)#, SCALAR 
VARNOSS 
(R2),R2 
VARNOSS 


SNOSTK 
STRGVAR 


SLONGER 
NETCN 


SLONGER 


SCOLLECT OFFSET 


‘EXPRESSION TOO COMPLEX? 


FNFN 


SNOSTK 
ERRMIX 


Rt 
ERRPOL, 
R2,0(SP) 
PC, EVAL, 


SNOSTK 
ERRMX2 


PC, INT 
FACLCRS) 
ERRSSZ 
CRL)) 8 RPAR 
VONESS 
(RL), #, COMMA 
ERRSX4 
FAC2(R5),9¢SP) 
PC, EVAL 


SNOSTK 
ERRMXZ 


PC, INT 
FACA(RS) 
ERRSS2Z 
(RL) %, 8, RPAR 
ERRSX4 
FAC2(K5),R3 
ERRSS2 

(SP) o,RB 
vTwoss 
ERRSSS 

RL 

ROL RS 
FAC2(RS) RA 
ERRSS2 

CSP) oyR2 


SNOSTH 
(R2))8,SVAR 
1*6 

STRGARR 


PCeLOCGET 
(R2)%,FACLCRS) 
(H2),FAC2(R5) 
(RL), RS 
R3,#,E0L 
OOLTTNOW 
R3,#, GOTO 
DOL TNOW 
R3,#,YPARRO 
ERRSX4 

(SP) ,K2 
R2,8,UPARKO 
OOTTNOW 
R2,8, SLASH 
PREC? 

R2,#, MINUS 
PRECS 
H2,8,60 
PRECA 
RSee#,E9 
NOTNOW 

R3,a MINUS 
NQTNOW 
R3,#, SLASH 
NOTNOW 
R3,#,YPARRO 
NOTNOW 

R2 

(SP) o,R2 


NEXT CHARACTER, 


}PREVIOUS OPERATOR; 


yyuMP 
JUMP 
s JUMP 
1JUMP 
sUMP 
sJUMP 
a JUMP 


s JUMP 
HCE, 


IF oe, 

IF #@ OR /, 

IF # © OR UNARY, 

IF a <> €2 >s € OR D4 
IF ANY OPERATOR, 

IF # © UNARY @ / OR 8, 
IF @ / OR 9%, 


IF ey 
AeB+ ) DO THE # “Ow, 


tad 


BASICL 


2942 
2943 
2944 
2945 
2946 
2947 
2948 
2949 
2958 
2951 
2952 
2953 
2954 
2955 
2956 
2957 
2958 
2959 
2968 
2961 
2962 
2963 
2964 
2965 
2966 
2967 
2968 
2969 
29708 
297% 
2972 
2973 
2974 
2975 
2976 
2977 
2978 
2979 
2988 
2982 
2982 
2983 
2984 
2985 
2986 
2987 
2988 
2989 
2998 
2992 
2992 
2993 
2994 
2995 
2996 


BASICL 


2997 
2998 
2999 
3000 
3002 
3002 
3003 
3004 
3005 
3206 
3007 
3008 
3009 
3010 
3e41 
3012 
3013 
3014 
3015 
3016 
3017 
3018 
3019 
3220 
3022 
3022 
3023 
3024 
3625 
3026 
3027 
3028 
3029 
3030 
3031 
3032 
3933 
3034 
3035 
3036 
3037 
3038 
3039 
3049 
3041 
3042 
3043 
3044 
3045 
3046 
3047 
3048 
3049 
3058 
3051 


MACXL1 


011404 
011418 
911412 
311414 
311416 
911428 
11422 
311424 
011426 
911430 
3114352 
311434 
911448 
011442 
811444 
314458 
311452 
041454 
911468 
311462 
011464 
611479 
811474 
011508 
911502 
912518 
911512 
811516 
811528 
11526 
011532 
811554 
011340 
811542 
811550 
841554 
011556 
11560 
011562 
811564 
011566 
911572 
911600 
811604 
911606 
011618 
811612 
941614 
011616 
611628 
811622 
811624 
811626 
0116352 
811634 


MACX1L 


311648 
11644 
011646 


011659 
811652 


811655 


811656 


# , UPARRO©L,R2 
R2aR2 : 
PC,R2 

(RQ), PC 
UPARROeTAGLE2 
STAR*TABLE2 
SLASH TABLE2 
PLUS@TABLE2 
UNARY STABLE 
MINUSeTABLE2 
TERMIN® TABLE? 
FAC2(H5),9¢SP) 
SP,R4 

ERAPOS 
FACL(RS),e¢SP) 
RS, 0($P) 


Ry 
OPERAND 


PC 
ERRPO, 
PC, SUBSTK 
FACL(R5) 
UINTES 


#408088, F ACL (RS) 


OPRATOR 
FACZ(R5) 
OPRATOR 
#44008, FACS(R5) 
FAC2¢R5) 
OPRATOR 

PC, ADUSTK 
OPRATOR 
BERSTAR, SERVEC 
R4,FPPSAV 
TSTSTK 

PYSHF 

SHLR 

PoP 

FPPRES 

OPRATOR 
#ERROLV, SERVES 
R4, FPPSAV 
TSTSTK 

PUSHF 

SOVR 

pop 

FPPRES 

STARS 

¢SP) 

TSYS2 

(SP)* 

sur 

e(Raye 
FAC2(K5),0(SP) 


FACLCRS),9¢SP) 
TSTSt 

{Raye 

SNOSTK 


JOUMMY ENTRY POINTS FOR SNOSTR 


Va2l  22eMARe7S 16385 PAGE 4404 
162782 998226 sus 
160282 ano 
268782 aoo 
061207 ado 
200530 TABLE21 , WORD 
100424 1 WORD 
209154 ,WORO 
880116 , WORD 
280056 , WORD 
200052 ,WORD 
390842 WORD 
046546 890042 NOTNOW} MOV 
820604 cup 
183429 B40 
916546 290048 MOV 
010346 MOV 
205204 INC 
ege157 177268 JP 
200242 TERMING CLC 
090207 RTS 
80167 177438 ERRPDS!) UMP 
084767 995636 MINUST JSR 
405765 099040 UNARY! TST 
901404 Bea 
962765 199080 300849 apo 
880670 ar 
098465 esse? UINTEGI NEG 
192265 ByvC 
212765 844000 920040 MOV 
205965 oeeg42 CLR 
300657 BR 
084767 175638 PLUS! = SR 
380654 BR 
212767 011666 agueaeG STARI MOV 
004467 O04500 JSR 
#114628 WORD 
311634 , WORD 
990g0gG 1 WORD 
014278 ,WORD 
313306 , WORD 
880167 177500 STARE MP 
012767 912238 o809B8GG SLASH} MOV 
204467 024530 vse 
811620 + WORD 
811634 WORD 
seogees 1 WORD 
014278 +WORD 
843306 , WORD 
090763 BR 
095726 TSTSTky TST 
oa1g03 BNE 
085726 ystsai Tst 
380167 oaoeges ume 
000134 rs?s21 MP 
816546 290042 PUSHF} = MOV 

VO2L 22eMARe7S 16105 PAGE 4405 
216546 000048 MOV 
O04767 REQ 
2901354 ume 

vLFOF 
SAVCHARI 
ARGBI 
MAKESTI 
SOPRAT} 
STOSVARI 
ERRMIX} 
STPROS 
,ENOC 
: ERRSYNY 
300024 ERRSXS) 107 
1 UFNOF 
354523 116 sASCIT 
1ENOC 
1 TFOF 
sASCII 
sEnOC 
028 +ByTE 2 
sEVEN 
vTFNOF 
QUOTE! CMPB 
BNE 
MOV 
MOV 
TSTB 
BNE 
CMP 
BLO 
MOV 
sua 
MOV 
SUB 
cMPB 
BNE 
oEC 
geo 
MOV 
ano 
ySR 
MoV 
uMP 
QUNULLI CHP 
GOTVALI MOV 
BR 
,ENDC 


986167 388008 ERpOG2t UMP 


SRONGER 
' SYNE 


SLONGER 
(SYNTAX ERRORS 


SNOSTK 
CRE) Om, TEXT 
ERRSXD 
R2,RS 
R44R2 
CRL* 
192 
SP,R4 
ERRPOS 
R2,0(SP) 
#3, (SP) 
Ri, e(SP) 
R2, (SP) 
CRY ERS 
ERRSXS 


PC, MAKESTR 
(SP), (SP) 
QuoTeysM 
(SP), (SP)e 
wed,agSP) 
SOPRATR 


ERRPOZ 


sJUMP TO DO THE APPROPRIATE OPERATION, 
JLEFT OPERANO 1S (SP), 2(SP), 
RIGHT OPERANO IS FACL(RS),FAC2(P 9), 


HCE, 6, 


AeBe ) DONT 00 THE + YET, 


CARRY OFF MEANS NUMERIC RESIILT, 


}TEST TOP OF STACK ANO FLOAT IF INT 
sPUSH FAC ANO FLOAT IF NEC 

SPERFORM MULT 

sPAP RESULT 


PRETURN 


dFLOAT IF INTEGER 
PRETURN 


pSAVE QUOTE CHAR, 


” 


ISAME AS STARTING QUCTE CHAR,? 


BASICL 


3052 
3953 
3054 
3055 
3056 
3057 
3058 
3259 
3068 
3061 
3262 
3063 
3064 
3065 
3266 
3067 
3068 
3069 
3070 
3071 
3872 
3273 
3074 
3075 
3076 
3077 
3078 
3079 
3080 
3081 
3982 
3283 
3084 
3085 
3086 
3087 
3088 
3oe9 
3099 
3291 
3992 
3093 
3094 
3295 
3296 
3097 
3998 
3899 
3198 
3101 
3102 
3103 
3104 
3105 
3106 


BASICL 


3107 
3408 
3109 
3110 
Sait 
3112 
3113 
3114 
3115 
3116 
3417 
3218 
3119 
3128 
3122 
3122 
3123 
3124 
3125 
3426 
3127 
3128 
3129 
31308 
3131 
3132 
3133 
3134 
3135 
3136 
3137 
3138 
3139 
3148 
3141 
3142 
3143 
3444 
3145 
3146 
3147 
3148 
3149 
3158 
3152 
3152 
3153 
3154 
3155 
3156 
3157 
3158 
3159 
3168 
3161 


MACXLL voed 22eMAR@73 


MACX11 voen 22eMAR@73 


@11662 9890167 177252 


16105 PAGE 4406 

vIFNOF 
STRGARRI JSR 
R 


STRGVARITST 
CMP 
BEQ 
MOV 
STRGBTHSMOV 
CMP 
BEO 
CMP 
BLO 
CLR 
MOVB 
JSR 
SOPRATRICMPB 
gEQ 
CMPB 
geo 
CMPB 
BNE 
MoV 
Ts? 
MOV 
MOV 
INC 
BEQ 
aoo 
MOV 
“Ove 
SWAB 
MOVE 
SOPRX} SEC 
MP 
AMPHALITIMOVB 
JSR 
Bcs 
tor 
,TFNOF 
ASCII 
,ENOC 
vlFOF 
ASCII 
eENDC 
1BYTE 3 
EVEN 
CMP 
BNE 
GMP 
BR 
MOV 
cMP 
BNE 
MOV 
Ts? 


ERRMIX] 


CONCAT} 


CATNOTS 


16105 PAGE 4407 


MOV 

BR 
CATLONGICLR 

BIS 


MOV 
CMP 
BLO 
CLR 
MOVB 
400 
CMP 
BH! 
MOV 
aoo 
JSR 
MOV 
MOV 
CLR 
BISB 
MOV 
aoo 
aoo 
MOV 
TST 
CLR 
BSB 
aod 
MOVE 
bec 
BGT 
STPROt 
QUOTBUMIMOV 
CATCOMS MOV 
aoo 
Move 
SWAB 
MOVE 
BR 
,ENOC 
ERRPO2! MP 
» LENOF 
ror 
, LFNOF 
sASCII 
,ENOC 
,IFOF 
sASCII 
vENOC 
BYTE @ 
1EVEN 
,ENOC 


ERRSTRY 


EREXPS 


SNOSTR 

PC,» LOCGET 
STRGBTH 
(R2)0 
2(R2); M04 
STRGBTH 
(RZ), RZ 
(R2),K3 
RS, Wok 
GOTVAL, 
SP,R4 
ERPOG2 
o(SP) 
(R37, SP) 
PC, MAKESTR 
24SP),#,AMPERS 
CONCAT 
(RO), 8, AMPERS 
AMPWAST 
2(SP),#, TERM 
ERRSXD 
CSP) ORO 
(SP)o 
(SP), K2 
RO, (SP) 

RO 

SOPRX 
#2,RO 
SP,RS 
R3,0(HO) 
RS 
R3,=(RO) 


(H2) 
(RL) op 0(SP) 
PC EVAL 
SOPRATR 


ICHECK NULL STRING 


SLONGER 
\NSMN 


SLONGER 
‘NUMBERS ANG STRINGS MIXED! 


(SP), #o1 
cATNOT 
(SP}47(SP)e 
SOPRATR 
4(SP),R2 
R2,#e4 
CATLONG 
(SP) 42RD 
(SP)o 


RB, (SP) 
CATCOM 

RO 
(R2),Ko 
CSP) ARS 
SP,R4 
ERPOg2 
e(SP) 
GR3)44SP) 
RO, (SP) 
(SP), #377 
ERRSTA 
SP,R2 
#6,R2 

PC, MAKESTR 
(SP) 6)R3 
4¢SP)pR2 
RO 

(R27 ,RO 
RS, 4(SP) 
ROARS 

AS RS 
(SP) o,R2 
{SP)+ 

RO 
(R27, KB 
#3,R2 
CR2V%, CRS) o 
RB 

04 


(SP) RO 
SP ,R2 
#3, RO 
R2,0(KO) 
R2 
RZ, 0( KO) 
SOPRATR 


ERRPOL 


SNOSTH 


SLONGER 
\STLA 


SLONGER 
STRING TOO LONG! 


BASICL 


3162 
3163 
3104 
3165 
3166 
3167 
3168 
3109 
31708 
3472 
3172 
3173 
3174 
3475 
3176 
3177 
3178 
3479 
3188 
3183 
3182 
3183 
3184 
3185 
3186 
3187 
3188 
3189 
3192 
3292 
3192 
3193 
3194 
3195 
3296 
3197 
3198 
3199 
3208 
3281 
3202 
3293 
3204 
3285 
32a6 
3287 
3208 
3209 
3218 
3211 
3212 
3213 
3214 
3215 
3216 


BASICL 


3217 
3218 
3219 
3228 
3221 
3222 
3223 
3224 
3225 
3226 
3227 
3228 
3229 
3230 
3231 
3232 
3233 
3234 
3235 
3236 
3237 
3238 
3239 
3240 
3244 
3242 
3243 
3244 
3245 
3246 
3247 
3248 
3249 
3258 
3251 
3252 
3253 
3254 
3255 
3256 
3257 
3258 
3259 
3268 
3262 
3262 
3263 

3264 

3265 
3266 

3267 

3268 

3269 

3278 

3271 


MACX21 


311666 
011678 


811673 


011674 
011708 
811702 
011706 
011718 
041724 
811722 
11724 
811736 
811732 
811736 
011744 
811746 
011752 
811760 


11762 
911766 


014772 
811774 
914776 
912882 
812086 
012028 
912014 
12816 
312828 
12822 
812924 
012926 
9142038 
012034 


MACKXiL 


012040 
812042 
912046 
012958 
942952 
012056 
812862 
942064 
912066 
812872 
842876 


012108 


912104 
012118 
312112 
312116 
912122 


812126 
8121358 
8121352 
312136 
012140 
912142 
012146 
312150 


212152 
212169 
312164 
312166 
912172 
612174 
312202 
012204 


912218 
912212 
912214 
812220 
912222 


ye2i 


300004 
353147 


312746 
380432 
912746 
900427 
342746 
842767 
800421 
012746 
380416 
912746 
842767 
200418 
212746 
212767 
288402 


080167 
804767 


812683 
oeia02 
080167 
122227 
981945 
004467 
911634 
312026 
813306 
060435 
010601 
210446 
#12746 
2412746 


vo2. 


810146 
912746 
210509 
210605 
384070 
962726 
942604 
322626 
910865 
4120165 
900134 


804767 


122127 
81024 
084767 
300167 
080167 


885716 
881018 
265766 
981485 
395726 
304467 
8809086 
313326 


912767 
085765 
204036 
005765 
381036 
212765 
022626 
200167 


905716 
4194077 
085765 
180813 
200004 


22eMARe73 


106 


BeeooeG 
eegpeas 


TTT Ia 
007734 9900006 


890900G 


0ee0eeG 
011666 seegeeG 


089800G 


087734 ogoBee86 


177674 
176624 


Be1g14 
090237 


O9L520 


012056 
000157 


22aMARe73 


086403 


890952 
890018 


000048 
080042 


176512 


808237 
884666 


1771508 
177522 


B80R02 


8G1166 


012536 aeeeoeG 
090040 


eg0042 
080001 
177062 


e8e042 


990042 


46105 


16185 


ERSTaR} 
ERa0Ds 
ERROVR} 


SINFNE 
COSFNY 
SQRFNI 


ATNFNG 
EXPFNY 


LOGFNE 


ERRMX94 


ErpO1t) 
FUNCTIY 


FUNCTUY 


FUNOK} 


FUNRET} 


ERRMX84 


INTFNG 


OPRFNY 


ERRSX94 


' 
UPARRO} 


UAL! 


UA4t 


PAGE 4406 


ror 

1 TFNOF 
ASCII 
vENOC 
FOF 
ASCII 
vENOG 
:BYTE B 
EVEN 


mov 
BR 
MoV 
BR 
Mov 
MOV 
BR 
MOV 
BR 
“OV 
MOV 
BR 
“OV 
MOV 
BR 


el FNOF 
JMP 
,ENOC 


vmp 
JSR 


rT FNOF 
gcc 
ume 


sENOC 


mov 
BNE 
MP 
CMPB 
BNE 
JSR 
WORD 
WORD 
WORD 
8R 


MoV 
MOV 
MOV 
Mov 


PAGE 4409 


MOV 
Mov 
“BV 
MOV 
JSR 
ADO 
MOV 
CMP 
MOV 
MOV 
MP 


cTFNOF 
wMP 
eENDC 


JSR 


eT PNOF 
6cs 
vENOC 


CuPe 
BNE 
JSR 
MP 
ump 


IF ats 
TST 

BNE 

TST 

gEQ 

TST 

vSRr 
+WORD 
WORD 


MoV 
YST 
BNE 
TST 
BNE 
MOV 
CMP 
JMP 


1 8 IS INTEGER 


VAS! 


UABt 


tsT 
BNE 
TST 
BP, 
lor 
LTFNOF 


SLONGER 
1OVFe 


SLONGER 
"OVERFLOW! 


SIN, @CSP) 
FUNCTL 
#GOS,e(SP) 
FUNCT] 
#SQRT,#(SP) 
#ERSOK, SERVEC 
FUNCT] 

WATAN, 0(SP) 
FUNCT] 
#EXP,a(SP) 
#EREXP, SERVES 
FUNCT] 

#ALOG, (SP) 
#ERLOG, SERVEC 
FUNCT] 


SwostK 
ERRM IR 


ERRPOZ 
PO, EVAL 


SNOSTR 
FYUNCTY 
ERRARG 


(SP) o,RS 
106 

ERRUFN 

(RE) oH, RPAR 
ERRSXY 
R4,FPPSAV 
PUSHF 

FUNOK 

FPPRES 

OPREN 

SPRL 
R4,0¢SP) 
#FUNRET, @ (SP) 
#137,°(SP) 


Rbye(SP) 

#401,9(¢Sp) 

R5,RO 

SP, RS 

RO, ORISAVE(RA) 
SP 

(SP) )R4 
(SP) 4, (SP)e 

RO FAGL(RD) 

R4¢FaC2(Rdy 

@CR4A)> 


SNOSTR 
ERRMTX 


PC, EVAL 


SNOSTK 
ERRMX6 


(R44) # RPAR 
ERRSx¥ 
PCV INT 
OPRATOR 
ERRSX9 


NOY OrFLOAY IT 
(SP) 


UAL 

2¢SP) 

UAL 

(SP)* 

R4, FPPSAV 
sir 
FPPRES 


#ERREXP, SERVES 
FACL(R5) 

VALE 

FAC2(RS) 

UAS 

OL, FAGZ(RD) 
CSP) 4) (SP)e 
OPRATOR 


(SP) 
VAS? 
FAC2(KS) 
yao 


SLONGER 


WPUSH Fac, FLOAT IF NECESSARY 
1G 90 FUNCTION 


§SAVE ADORESS OF PUSHED anc 
HSAVE 94 

FOUMMY RETURN ADORESS 
DUMMY JUMP INSTR, 


JADOR OF ARGUMENT 

10UM“Y BR 

SAVE 95 VALUE 

SRETURN ADDRESS (TO DUMMY PRAG IN STK) 
POP DUMMY PROGRAM 

PRESTORE R4 

SREMOVE OLD FAC FROM STARK 

sSTOPE RESULT IN Fac 


JANO RETURN 


JUS UPPER a wm 
HIS LOWER A a 


11S UPPER Boo 
JIS LOWER Bag 
ySET RESULT 2 


WwIiS Aaa 


JS LOWER B > g 
INO, ERROR MESSAGE 


BASICL 


3272 
3273 
3274 
3275 
3276 
3277 
3278 
3279 
3280 
3284 
3282 
3283 
3284 
3285 
3286 
3287 
3288 
3289 
3299 
3291 
3292 
3293 
3294 
3295 
3296 
3297 
3298 
3299 
3300 
3304 
3302 
3303 
3304 
3305 
3306 
3307 
3308 
3309 
3318 
3312 
3312 
3313 
3314 
3315 
3316 
3317 
3318 
3319 
3320 
3322 
3322 
3323 
3324 
3325 
3326 


BASICL 


3327 
3328 
3329 
3330 
3331 
3332 
3333 
3334 
3335 
3336 
3337 
3338 
3339 
3340 
33414 
3342 
3343 
3344 
3345 
3346 
3347 
3348 
3349 
3350 
3351 
3352 
3353 
3354 
3355 
3356 
3357 
3358 
3359 
3368 
336% 
3362 
3363 
3364 
3365 
3366 
3367 
3368 
3369 
3378 
3371 
3372 
3373 
3374 
3375 
3376 
3377 
3378 
3379 
3380 
3384 


MACX11 
912224 


912227 


312250 
912234 
8122356 
812242 
312244 
812250 
312254 
312260 


012262 
312266 
812278 
912274 
812276 
812302 
812306 
012319 
912314 
612328 
12324 
812326 
8123358 
12332 
812354 
312340 
812342 
942346 
012350 
812352 
812356 
812362 


912364 
812366 
912370 
042374 
042376 


912482 
912406 
012419 


312412 
842416 
912429 
312422 


MACXL1 


022424 
012430 
012432 
012436 
812449 
812442 
812446 
812450 
912452 
912456 
812462 
812464 
812466 
012472 
312474 
812500 
012582 
012504 
912506 
312510 
912512 


42516 
312520 


912523 


912524 
812530 
812532 
812534 
812536 
812549 
612542 
912546 
012558 
812552 
812556 
312569 
312562 
812564 
912566 


012570 
612572 
312576 


912608 
812602 


Veer 
953404 


20027 
103372 
900167 
183367 
280167 
005965 
885965 
098758 


205765 
301936 
236500 
910822 
242700 
320827 
103426 
842702 
252702 
e2eg27 
304426 
101016 
e96202 
103434 
862720 
000767 
005765 
100804 
905402 
905865 
929263 
00g7%2 


085716 
381405 
004467 
814256 
942536 


885765 
108320 
894704 


316500 
818802 
392004 
3935429 


voet 


920827 
103037 
204467 
@14270 
914302 
242524 
014256 
2809206 
212542 
914256 
8808006 
314278 
212536 
314279 
942552 
914322 
314256 
8099286 
914279 
813306 
380467 


380004 
242536 


096265 
193902 
905724 
ag0134 
311404 
000134 
205765 
204773 
388770 
195765 
100367 
900764 
205716 
190754 
380434 


318246 
304467 
d8ag806 


212622 
912562 


22eMARa73 


060 


304000 
177424 
177416 


938040 
998042 


oaaase 
080048 


100377 
340208 


177608 
oan2ue 
042080 


990200 
090040 
ogae4e 
090842 


280748 
012600 
990040 


290042 


22eMARe73 
890256 
898676 


012452 


912472 
814256 


912442 
012510 


176554 


122 


280044 


800844 


880850 


090536 


16125 


16185 


PAGE 44049 


sASCIT 
EN0C 
TFOF 
sASCLI 
1ENDC 


_ BYTE 


ERRDIVI 


UA9I 


EVEN 
CMP 
BHIS 
ume 
BHIS 
uMP 
CLR 
CLR 
BR 


yFIX BUF INTEGE 
sy? 


UATON 


UALSAL 


vaiges 


UALOC} 


T 
BNE 
MOV 
MOV 
BIC 
CMP 
BL0 
arc 
als 
cup 
BE0 
BHI 
ager 
ecs 
aod 
8R 
TST 
BPL 
NEG 
CLR 
MOV 
BR 


18 IS REAL 


UAL, 51 


Vata 


jst 
8EQ 
JSR 
+HORO 
+WORD 


Tst 
BPL 
BR 


3B INTEGER, A RE 


vat7t 


Uai7at 


vai7e81 


UAG703 


UALTFY 


UALIE 


ERREXP} 
UAads 


UAASRE 
VANJMPT 
UAUMPI 
UATSTOE 


uatsr2i 


UATSTAS 


uAags 


UA23t 


MOV 
MOV 
8GE 
NEG 


PAGE 44041 


cMP 
SHIS 
JSR 
WORD 
WORD 
WORD 
WORD 
;WORD 
;WORD 
)WORD 
+WORD 
+WORO 
+WORD 
+WORD 
WORD 
;WORD 
WORD 
+WORD 
+WORD 
+WORD 
JMP 


ror 

. TFNOF 
ASCII 
+ENOC 
, LFOF 
ASCII 
ENOC 
\BYTE 
EVEN 


ASR 
Bcc 
rs? 
JMP 
MoV 
JMP 
TST 
8EQ 
BR 

Tst 
BPL 


‘over 


SLONGER 
(OIVISION AY BF 


RO, #4u00 
VAS 
EXSTAK 
VAs 
ERROVK 
FACS(RS) 
FAC2(K5) 
uaa 


R ¢ 236 
FAC2(KS) 
YALa,> 
FACL(K5) RO 
RO,R2 
#190177,R0 
RO, 840200 
VALa,5 
#477600,R2 
#8200,K2 

RO, #42000 
vAtes 
vAya,5 

R2 


VALO,5 


8200, KO 


UALBA 
FACL(RS) 
VALOC 

RZ 

FACA(KS) 
R2,FACZ(RS) 
UAs 


(SP) 

vada 
R4,FPPSAV 
PUSH 
UASMP)UA2S 


FACL( HS) 
UAd 
UAB 


aL 
FAC2(K5), RO 
RO,R2 

VATA 

RO 


RO, #296 
yA2o 
R4,FPPSAV 
POP 

PUSHY 
UAASR,VAL7N 
PUSH 

SMLR 
UATSTO,UALIF 
PYSH, PUSH 
SMLR 

POP 
UAQMP,UAL79 
POP 
UATST2,VA19 
PYSHL 

PUSH 

SOVR 


rOlv BY @ 
sOVEPFLOW 
HSET RESULT a 


HEXTRACT EXPONENT 
HCHECK TOO SMALL 


yR2 1S MANTISSA 


HUF RIF CLEAREO,NO GOOD 
TUPOATE EXPONENT 


IS As aw 


41S UPPER 8> 2 
yYES 
INO, ERROR 


SAVE FOR SIGN TEST 


RA 1S gaStB) 1F TOO BIG, FLOAT 


sGO0 INTO POLISH MONE 

ICURRENT PROOUCT IS A 

HCURPENT ANSWER IS 4 (ON STK) 
sSHIFT By BRANCH IF BIT IS Q 
1GET CURRENT PRODUCT ONT OSTACK 
MULTIPLY INTO CURRENT ANSWEP 
HTEST IF DONE, BRANCH IF SO 
sTWO COPIES OF CURRENT PRODUCT 
sSOUARE IT 

yANO PUT RESULT BACK 

sPOLISH JUMP TO 178 

sSTORE ANSWER INTO FAC 

sTEST SISN By IF + JUMP~ 

sPUSH 4 ONTO STACK 


JANS 3 1/ANS IF B NEG 


POP JPOP ANSWER TO FAC 


FPPRES 
OPRATOR 


SLONGER 
NPERN 


SLONGER 
1 ERRORS 


ROSAVECRS) 
UAJMP 
(Raye 
OCRa)e 
ORG, RY 
@(R4)% 
ROSAVE (RS) 
UAJMP 

YAN IMP 
R2SAVE(RS) 
UAJMP 
UANJMP 

@SP 

Yaar 
@(R4)e 


R2,0(SP) 
R4,FPPSAV 
SiR 


REVRSE 
UATSTA 


sANO GET OUT 


sSKIP OVER JUMP ADDRESS 
sPOLISH MODE JUMP 


sTEST SIGN OF B 
}POLISH JUMP IF 8 ¢ 


}PUSH INT B ON STACK 
sFLOAT 8 


sREVERSE TOP TWO ON STK 
sTEST TOP STK, BR TO ERR JF o 


te 


BASICL 


3382 
3383 
3384 
3385 
3386 
3387 
3388 
3389 
3390 
3391 
3392 
3393 
3394 
3395 
3396 
3397 
3398 
3399 
3408 
3402 
3402 
3403 
3404 
3405 
3406 
3407 
3408 
3409 
3418 
34aa 
3412 
3443 
3414 
3445 
3416 
3417 
3418 
3419 
3428 
3422 
3422 
3423 
3424 
3425 
3426 
3427 
3428 
3429 
3438 
3433 
3432 
3433 
3434 
3438 
3436 


BASICL 


3437 
3438 
3439 
3449 
3444 
3442 
3443 
3444 
3445 
3446 
3447 
3448 
344g 
3450 
3451 
3452 
3453 
3454 
3455 
3456 
3457 
3458 
3459 
3460 
3464 
3462 
3463 
3464 
3465 
3466 
3467 
3468 
3469 
3470 
3474 
3472 
3473 
3474 
3475 
3476 
3477 
3478 
3479 
3480 
3484 
3482 
3483 
3484 
3485 
3486 
3487 
3488 
3489 
3499 
3491 


MACKI 


912604 
812686 
812619 
812612 
812624 
012616 
012622 
012624 
812626 
312638 
012632 
812634 
812636 
912649 
342642 
012644 
812652 
012656 
012664 
012678 


012674 
9127e8 
012702 
912706 
812718 
012714 
012716 
012720 
812722 
012724 
812726 


012732 
812734 
212736 
012740 
012742 
012744 


012746 
012752 


MACXL 


012754 
012756 
612760 
612762 
812764 
942770 
812772 
912776 


313008 
213004 
813906 
9130128 
813012 
913016 


313028 


Vea. 


312644 
014256 
8099206 
212656 
313306 
880167 
912620 
812604 
912602 
312623 
320146 
2140846 
240346 
910246 
2001354 
012765 
o80167 
212765 
200167 
200167 


000167 
122102 
122127 
281372 
866502 
220604 
108764 
011298 
801435 
910046 
304767 


012608 
122862 
100425 
200322 
152002 
961502 


@22227 
201404 


Vo2d 


211202 
320604 
183743 
811246 
316522 
311246 
316512 
2904209 


121027 
081997 
422021 
901745 
200167 
990004 


443125 


22eMARe73 46185 PAGE 44=42 


176458 


OseBeRG B88852 
177146 
GeeeneG B20052 
177134 
170224 


176758 
990255 
980B04 


175664 


477775 


sWORD 
«WORD 
WORD 
;WORO 
WORD 
JMP 
REVRSE! MOV 
MoV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
JMP 
CALOGt MOV 
JMP 
CExPt MOV 
vMP 
ERRPO4) JMP 


+I FNOF 
ERRMX11 UMP 
1 ENOC 


ERRSXAL MP 

FNFNY = Hove 
cMPa 
BNE 
aod 
cMP 
BLO 
MOV 
Bea 

FNSWAPI HOV 
JSR 


s TFNOF 
Bcs 
sENOC 


Mov 
“Ove 
BM} 
SwaB 
8186 
aod 


wT PNOF 
cup 
BEG 
vENDC 


CMP 
Bea 


22eMARw73 46105 PAGE 44043 


380040 
oe0042 


200245 


174726 


116 


MOV 
Cup 
BLO 
MOV 
MoV 
MOV 
MOV 
8R 


vl FNOF 
FNSTRE MOV 
MOVE 
BMt 
SWAB 
B1SB 
~ 200 
CMP 
BNE 
CMP 
80 
MOV 
MOV 
MOV 
MoV 
MOV 
MOV 
INC 
BEG 
INC 
BNE 
Move 
Move 
aR 
FNOLNNY MOVE 
MOVE 
sus 
FNNEWNL I TST 
MOV 
INC 
BEQ 
SWAB 
Move 
SWAB 
MOVE 
,ENOC 


FNrEp_t Cups 
BNE 
cMPB 
8Eo 

ERRAGL} UMP 

ERRUFNI LOT 
, TFNOF 
ASCII 
1 ENDC 


CALOG SCALL ALOG FUNCTION ON a, RESULT TO Fac 
PUSH sPUSH LoG{A) ONTO STACK 

SMLR HCALC BelLOG(a) 

CEXP ICAL EXP(BOL0G(A)), RESULT TO FAC 
FPPRES 

OPRATOR 

(SP) 6,RO SROUTINE TO REVERSE TOP 2 

(SP) o,Rt JFLTPT NUMBERS ON STACK 

(SP) o,R2 

(SP)o,R3 

R1,0(SP) 

RB, (SP) 

R3,e(SP) 

R2, (SP) 

ecRaye 

#ALOG, RISAVECRS) 

FYNOK 

BEXP,RISAVE(RS) 

FYUNOK 

ERRPOL 


SNOSTK 
ERRMIX 


ERRSXD 

CRE) OAR2 
CRY) Oe 8, L PAR 
ERRSXA 
POL(ROI,R2 
SP,R4 

ERRPOS 
(R2),RO #RB NOW CONTAINS THE DEF POINTER, 
ERRUFN 

RO, a(SP) 
PC,EVAL 


SNOSTK 
FNSTR 


(SP)4) RD JRESTORE THE DEF POINTER, 

(HO) +, R2 1GET THE VARIABLE FROM THE OEF, 
ERRAGL 

RZ 

(RO) Hy RZ 

(RS) )K2 


SNOSTK 
(R2),8,SVAR IF THE DEF VARIABLE IS STRING ANO 
ERRMXS }THE VALUE ISNT THEN ITS AN ERROR, 


(R2)%)#, SCALAR 
14 


CH2),R2 

SPiR4 

ERAPOS 

(R2),e(SP) SSTACK THE OLD VALUE AND REPLACE IT 
FACACNS)»(R2)% FWETH THE NEW VALUE 

(R2),9¢SP) 

FAC2(R5),(R2) 

FNREPL 


SNOSTH 

2¢SP), RO PRESTORE THE OEF POINTER, 
(RO) H~R2 JGET THE VARIABLE FROM THE DEF, 
ERRAGL 

R2 

(HB) o,R2 

CRS), Ke 

(R2)6—¢8,SVAR SIF THE COEF VARIABLE IS NUMESTC AND 
ERRMXL sTHE VALUE ISNT THEN ITS AN ERROR, 
20R2), #04 DIF THE VAR ISNT A STRING SCALAR 

194 

(R2),K2 sTHE' Q THIS, 

(R2),R3 gR3 “OW CONTAINS THE OLD VALI'E, 
(SP)%)(R2) 10¢K?) NOW CONTAINS THE NEW VALUE, 
R3_ (SP) s@CSP) NOW CONTAINS THE 9LD VALUE, 
R2,0(SP) JTOPCSTK) 1S A TEMP FOR VAR ADNRESS, 
(R2),R2 pR2 “OW CONTAINS THE NEW VALUES 

R2 

FNNEWNL, SBPANCH IF THE NEW VALUE IS “ULL, 

RS 

FNOLNN HBRA‘CH IF THE OLD VALUE 1S “ONNULL, 
ACSP), (R206 OLD VALUE IS NULL, NEW TS NAT, SOt 
(SP) 4) (R2) IMAKE AN ABS BACKPYR TO THE VAR, 
FNREPL, SCTHE NEW VALUE 1S NOW PROTEPTED) 
CRI) (RZ) & JOLO AND YEW ARE BOTH NOMNULL SOF 
(R3)» R2d HPUT OLD BACKPTR INTO THE NEW VALUE, 
#2,R3 

(SP)6 sGET RIO OF THE TEMP, 

SP,R2 


FNREPY, ’ (CHECK NULL STRING!) 

R2 HSET THE BACKPTR OF THE OLD VALUE 
R2, (R34 sTO 17S CURRENT STACK ADRESS, 

R2 


R2, (RS) 


CRO), 8, COMMA 
FNNOCOM 
CROP CRIDS 
FNSWAP 
EKRARG 


SLONGER 
‘UFNE 


BASICL 


3492 
3493 
RID7) 
3495 
3496 
3497 
3498 
3499 
3308 
3504 
3502 
3503 
3504 
3505 
3506 
3507 
3508 
3909 
3512 
3542 
3512 
3513 
3514 
3545 
3516 
3547 
3548 
3549 
3528 
3524 
3522 
3923 
3524 
3525 
3526 
3527 
3528 
3529 
3538 
3534 
3532 
3533 
3534 
3535 
3536 
3537 
3538 
3539 
3349 
3542 
3542 
3543 
3544 
3545 
3546 


BASICL 


3547 
3548 
3549 
3558 
3551 
3352 
3353 
3554 
3555 
3556 
3557 
3558 
3559 
3560 
3561 
3562 
3563 
33564 
3565 
3566 
3567 
3568 
3569 
3578 


MACX12 Vea. 22eMARs73 


313823 086 
121927 
381379 
310046 
122921 
381365 
122927 
204362 
710146 
310001 
384767 
183492 
495903 
309432 
442603 
124127 
301300 
912684 
912608 
114046 
114966 
912602 
464582 


313024 
813030 
3133352 
913054 
313856 
213840 
313844 
013246 
813059 
013052 
313056 
313060 
013062 
313064 
213066 
348272 
9135274 
813376 
613100 
813192 
813106 
013119 


380237 


208454 


175540 


@88201 


990003 


915212 
813116 
813129 
813422 
913126 
813138 
0435152 
13134 
913136 
813140 
813142 


422227 
904403 
A1LL202 
012662 
012612 
00444 
022622 
320046 
911208 
164502 
295202 


477775 


800882 


MACX1L veeL 22-MARe73 


013144 
913146 
013150 
813152 
813154 
843156 
813160 
913162 
913166 


305220 
861404 
280302 
119228 
aB0382 
118220 
212620 
124027 
2013544 


990255 


813178 200167 176076 
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vTFOr 
sASCII 
+£NOC 
:BYTE B 
+EVEN 
FNNOCOMSCMPB 
BNE 
Moy 
CMPB 
BNE 
cMPa 
BNE 
“OV 
MOV 
JSR 
Bcs 
CLR 
BR 
MOV 
CMP 
BNE 
MQV 
MOV 
“ove 
Move 
MOV 
aod 


+ TFNOF 
cup 
Bea 
sENOC 


Cup 

BeO 
# MOV 
MOV 
MOV 
@R 
MOV 
MOV 
MOV 
sya 
INC 


1 lFNOF 
8R 
rst 
CMP 
BEO 
MoV 
MOV 
MOV 
MOV 
+ENDC 


FNALUPT 


FNRSSC} 


FNRSTR} 


16325 PAGE 44015 


FNRComt INC 
BEO 


SWAB 
MOVB 
SWAB 
MOVB 
FNRSNUL MOV 
FNCHK} CMP8 
BNE 


, LFNOF 
TST 
BQ 
MOV 
cMP 
BNE 
UMP 
Jue 
1ENOC 


FNNUMERS UMP 
,E0T 


SLONGER 
"UNDEFINED FUNCTIONS 


(RO), #,RPAR 
ERRAG 

RO, e(SP) 
(RO) r CRD > 
ERRAGL 

(RB) O,#, EQ 
ERRAGL 
RL,o(SP) 
RO,RL 

PC, EVAL 

1%6 

RS 

1*4 

(SP) o,R3 
RL), 8, E04 
ERRSXA 

CSP) o,Rt 
(SP) +, Ro 
*(RB)pe(SP) 
*(ROVALCSP) 
CSP) 4) R2 
(R35), R2 


SNOSTR 
(R2),8,SVAR 
FNRSTR 


CR2)6)#, SCALAR 
1o4 

(R27, R2 

CSP ye, 2(R2y 
CSP) +, (R2) 
FNCHK 
(SP), (R2) 
RO, ~(SP) 
¢R2), KO 
(RS) K2 

R2 


SNOSTR 
FNRCOM 
(R2)6 
20R2)yao1 
FNRSSG 
CR2) RZ 
CSP)4,(R2) 
RO, o(SP) 
(R2),KO 


Re 
FNRSNYL 
R2 
RZ, (ROIS 
R2 


R2,(RO> 
(SP) 4) Ro 
90RB),#,LPAR 
FNRLUP 


SNOSTR 
RS 


FNNUMER 
RS,e(SP) 
R3,8477777 
16 
SOPRATR 
STPRO 


sCHECK NULL STRING 


OPRATOR 


BASICL 


3574 
3572 
3573 
3974 
3575 
3576 
3577 
3578 
3579 
3580 
3584 
3582 
3583 
3584 
3585 
3586 
3587 
3588 
3589 
3599 
3994 
3592 
3593 
3594 
3595 
3596 
3597 
3598 
3599 


BASICL 


3oo8 
3601 
3602 
3683 
3604 
3605 
3606 
3607 
36068 
36e9 
3618 
3612 
3612 
3613 
3614 
3645 
3616 
3617 
3618 


MACXA1 


@13174 
813176 
013280 
813282 
815206 
813219 
813214 
813228 
0135222 
913224 
013226 
8132359 
013254 
813236 
815248 
913244 
813246 
01325¢ 
813252 


MACX14 


013254 
813256 
013260 
813262 
013264 
913266 
813270 
013274 
813276 
813308 
BLSIA2 
343304 


veas 


#12682 
285716 
@84413 
203765 
981821 
916546 
304467 
2g0e086 
214279 
13306 
190418 
205765 
081406 
305726 
004467 
8809096 
913306 
aooes4 
300112 


ve2t 


112102 
100447 
880302 
152122 
261502 
912200 
620027 
193402 
800264 
90227 
aege4y 
488207 


22eMARe7S 


988048 


88a042 
6oo114 


090048 


290878 


22eMAR@7S 


177775 


46105 PAGE 45 


ae ee ee eee 


TxuP) MOV 
TST 
BEO 
Ts? 
BNE 
MOV 
usr 
;WORD 
,WORO 
WORD 
. BR 
FIXTST}) TST 
BEO 
TST 
sR 
WORD 
WORD 
FIxce2z; CL2 
FIXRETS UMP 


16185 PAGE 46 


SOURCE FILE #6 


cane cceen cece cece ecweecg gece sen esoccsosegessssoe= 


SUBROUTINE ‘FIXUP! CALLED BY VSR PC 


MATCHES TYPES OF O(SP),2(SP) ANO FACA(R5),FACQCRS) 
RO,RL UNUSED 
R2 DESTROYED 
A3,R4 UNUSED 
R5 MUST POINT TO USER AREA 
SP GOES NO DEEPER AFTER JSR 
(SP)4)R2 
(SP) 
FIXTST 
FACL(RS) 
FUXRET COND CODESSNONZERO MEANS FLOATING, 
FAC2(RS), (SP) besee 
R4, FPPSAV 
sjr 
POP 
FPPRES 
FUXCLé 
FACLCRS) 
FUXRET COND CODESs@ MEANS INTEGER, 
(SP) jpoaee 
R4,FPPSAV 
sir 
FPPRES 
}CONS CODESSNONZERO MEANS FLOATING, 
(R2) 


J ececcccccqecesecenccowcensecwsccwcensecerecesensees 


LINE? Move 
aM! 

SWAB 

B1se 

aod 

MOV 

cMP 

BLO 

FLet SEC 
RTS 

FLX Cyc 
RTS 


SUBROUTINE FLINE! CALLED BY YSR PC 


FINOS THE AGORESS OF THE LINE NO 
REFERENCED BY (R1) IY R2, 
IF THE SYMAOL TABLE REFERENCE IS NOT A LINE “0, 
SETS CARQY, ATHERWISE, THE CARRY IS CLEAR, 

CRE) PRE 

FLE 

R2 

CRL)O)R2 

CHS) M2 

(R2)4,RB 

RB, #, SCALAR 

FUX 


eC 
Pg 


BASICL 


3619 


3628 
3622 
3622 
3623 
3624 
3625 
3626 
3627 
3626 
3629 
3638 
3634 
3632 
3633 
3634 
3635 
3636 
3637 
3638 
3639 
3648 
3641 


BASICL 


3642 
3043 
3644 
3645 
3046 
3647 
3648 
3649 
3650 
3651 
3652 
3653 
3654 
3655 
3656 
3637 
3658 
3659 
3668 
366% 
3662 
3663 
3664 
3665 
3666 
3667 
3668 
3669 
36708 
3672 
3672 
3673 
3674 
3675 
3676 


MACXLL 


913306 
013312 
913316 
318322 
213326 
813332 


313334 
813349 
913344 
813350 
813354 
013369 


MACXi1 


013362 
313366 
318370 
313374 
813400 
013482 
313406 
013419 
013414 
913416 
813420 
813422 
313426 
313430 
8134354 
313436 
213449 
613442 
0135444 
13446 


V@2d 


616500 
016502 
016502 
216503 
2716546 
820204 


240905 
810165 
@40265 
210365 
242665 
0001354 


VO22 


942703 
889402 
822783 
912722 
911246 
412712 
360103 
322361 
281412 
113320 
305243 
021364 
181422 
916133 
412622 
400244 
6BQ207 
912612 
280261 
OBO227 


22eMARW73 


080044 
885846 
880850 
000052 
000054 


802044 
000046 
800058 
882052 
200854 


22eMARe7S 


200004 


TD 
477776 


000340 
og0e108 


G9eoe2 
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J powegenne eee sere ger ccenpcnnpocensenccccnc cen gceccesescce 


}) ROUTINE ‘FPPRES? CALLED IN POLISH MODE 
, RESTORES RA THRU R4 SAVED BY FPPSAV 
! AND RETURNS IN NORMAL EXEC MODE 
FPPRES| MOV ROSAVE(RS), RO 

MOV RASAVE(RS) RL 

MOV R2SAVE(RS) ,R2 

MOV RISAVE(RS) ,R3 

MOV R4SAVECRS) ,=(SP) 

RTS R4 
lesen sqece reser e ce eew sewn acme ccceseewc er eceeeserecewceccocece 
} ROUTINE ‘Fpepsave CALLED BY JSR RG 
) SAVES RQ THRU R4, ANO RETURNS IN 
] POLISH MODE 
FPPSAV} MOV RB, ROSAVE(RS) 

MOV RA RISAVE (RS) 

MOV R2,R2SAVE(RS) 

MOV RS, RISAVE(RS) 

MOV (SP); R4SAVE(RS) 

JMP OCRA)e SENTER POLISW MODE 
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GETABYT (GEY2BYT) © GET BYTE QUT OF RING BUFFER USING 
GEY POINTER 2 (R2), 8 cay 


CALLE #CBUFF, HOR, BASE), RL 
#CBASE OFFSET OF GET PYR,J,H% 
JSR PC, GETBYT 


USES RORLRZKS 
RETURN CHAR, IN RO, 


"Cl BIY IS} CLR IF CHAR, OBTAINED 
SET IF BUFF, WAS EMPTY (NO CHAR,) 


GEPLBYTIMOV MBGETI,RS 
BR GETBYT 
GEP2BYTIMOV #BGET2,R3 
GETBYT) MOV #PS,R2 rSTaTUS 
MOV CR2),9¢SP) 
MOV #PRI,(R2) JHIGHEST PRIORITY 
400 RL, RS 
CMP CR3) ,BPUTCRL) VANYTHING IN BUFF? 
BEQ BUFEMP 
MOVE @(R3)%,RO IGET BYTE 
INC =(R3) yPT, TO NEXT BYTE 
CMP «5 (R39), BEND(R4) WRAP AROUND? 
BLOS NOWRP 
MOV BSTRT(RLIG(R3) PT, TO NEXT GYTE TO GET 
NOWRPS OV (SP)#)(R2) HSTATUS BACK 
cue SSIGAL SUCCESS 
RTS PC 
BUFEMP MOV (SP) 44 (RQ) ISTATUS BACK 
sec WSHOK FAILURE 
RTS PC 


BASICL 


3677 
36768 
3079 
3688 
3681 
3682 
3683 
3684 
3685 
3686 
3687 
3688 
3689 
3698 
3092 
3092 
3O93 
3094 
3695 
3696 
3697 
3698 
3699 
3788 
3703 
3782 
3703 
3704 
3795 
37286 
3707 
37068 
3729 
3718 
3712 
3712 
3713 
3714 
3715 
3716 
3717 
3718 
3719 
3728 
3724 
3722 
3723 


BASICL 


3724 
3725 
3726 
3727 
3728 
3729 
3730 
3734 
3732 
3733 
3734 
3735 
3736 
3737 
3738 
3739 
3740 
3744 
3742 
3743 
3744 
3749 
3746 
3747 
3748 
3749 
3750 
3754 
3752 
3753 
3754 
3755 
3756 
3757 
3758 
3759 
3760 
3764 
3762 
3763 
3764 
3765 
3766 
3767 
3768 
3769 
3778 
3774 
3772 
3773 
3774 
3775 
3776 
3777 
3778 


MACXLL 


313450 
813452 
013456 
013460 
013464 
013466 
213478 
813472 
813476 
013508 
813504 
013506 
013518 
913512 
013514 
813520 
013522 
013524 
013526 
8135352 
815536 
313544 


813546 
813552 
813569 
013562 
013579 
813572 
813576 


013600 
913602 


MACX11 


313604 
313618 
313614 
813020 
813624 
8136350 
813632 


8136354 


813648 
013644 
313650 
315652 
313668 
213662 
813664 
013678 
813672 
213676 
813798 


313704 
913710 
313714 
@13716 
213724 
313726 
213732 
313734 
213736 


813742 


VO2d 


010246 
304767 
103405 
016102 
303011 
942602 
280207 
016108 
301423 
305962 
690261 
800767 
819846 
019208 
004767 
193801 
200020 
842608 
95961 
116502 
812772 
200750 


116502 
332772 
091803 
812772 
ETT TE 
204767 
200725 


177568 
177558 


ye2s 


610265 
12722 
310265 
910265 
121127 
301043 
305204 
084767 


384767 
385765 
291034 
916565 
190438 
122122 
120227 
704422 
120227 
984017 
204767 


204767 
185765 
081912 
316565 
180406 
122127 
301004 
200227 
300167 


OBN167 


22eMARa7S 


177704 


90R12 


990012 
eognr2 


O9SB64 


opoei2 
890077 
980201 


800077 
394008 
890191 
098514 


22eMARO7S 


990022 
177777 
oeoee4 
090026 
880255 


174736 


088140 
080040 


080042 


000257 
000245 
174712 


eeon74 
300848 


agense 
800257 


475786 


175206 


915608 


815608 
913608 


808024 


808926 
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errr rrr rrr rrr er ihe 





GETCHAR © RETURN A CHAR, IN RB OR GAIT UNTIL You CAN 


CALL} #CBUFF, HOR, YASEI,R1 
JSR PC,GETCHAR 


USES R3s (RO,RI,R2) 


RETURNS CHAR, JN RO 
IF PAPER TAPE READER EO FOUND, EXIT TO (MEAD! 


GETCHARIMOV Rope SP) 
GETCHAI JSR pg, Gefierr 
acs NOCHAR HNOTHING THERE YET 
MOV AFSPEC(R4),R2 sCWECK IF READER STOPPED 
aGT XCHAR $3 09 ¢ IS OK, BRANCH IF CHAS 
GETX) “OV (SP)4,R2 
RTS PG 
NOCHAR} MOV BFSPEG(R1),R®  j;CHETK EOF OR EXTRA CHAR 
Bea REENAB 
CLR BFSPEC(R1) 
sec 
BR GETYX 
XCHARI MOV RO, e(SP) yPUSH MLO CHAR 
MOV R2,RO sPOSITION NEXT 
JSR PC, PUTBYT 
Bcc 104 MAKE SURE IT GOT IN! 
HALT 
MoV (SP) 4) RO 4GET BACK OLO CHAR 
CLR BFSPECCRI) 
Move TOEVCRS) RO 
MOV #101, O1TAB(R2) JRE@FNABLE INPUT DEVICE 


BR GETX 7 (CARRY {S CLEAR) 
1 RESENASLE PROM A OEAD START 
REENAB) HOVB = [DEV(R5) ,R2 


ely #004000, *1 TAB(R2) ICHECK BUSY BIT 
BNE GCWAIT 
MOV #401, EO, TAB(R2) 

GCWAITI WAIT A HWALT FOR AN INTERRUPT 
JSR PC, LOWALT SWASTE TIME 
BR GETCHY 


; TABLE OF INPUT DEVICE STATUS REGISTERS 
1TaBt «= WORD. TKS 
{WORD = PRS 
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eer rrr rrr irri rrr rr rod 

} 9GETVARE SUBROUTINE 

' THIS SUBROUTINE PEADS A VARIABLE NAME OR 

’ AN ARKAY ELEMENT, ANO ADDRESSES THAT 

' VARIABLE JIN CORE, SO THAT A SUBSEQUENT ‘STOVAR? 

U CALL WILL STORE THF FAC IN THE VARTABLE, 

f DESTROYS FaCd AND FAC2, 

' CALLEO BY JSR PC,GETVAR 

' Ri POINTS fO THE CODE NAMING THE VARTABLE 


, 

GEPVARE Mov R2,VARSAV(RS) 
MOV #24 ,RZ 
MOV R2,SSUSAV(RS) 
MOV R2,SS2SAV(R5) 
cMPB (RL) 8, LPAR 
BNE NOSYBS 
TNC RL 
JSR PC,EVAL 
vtFNOF SNQSTK 
Bcs ERRMXS 
,ENDC 
JSR pC, INT 
Ts? FACLCRS) 
BNE ERRSS2 
MOV FAC2(N5),SSLSAV(P5) 
amt ERRSSL 


mova (RL) pRZ 
CHPB 0 s-R2,#,KPAR 


BE NOSUBS 
CMPB R2,#, COMMA 
BNE ERRSXS 
JSR PC,EVAL 
vIFNOF = SNOSTH 
acs ERRMXS 
ENC 
JSR PCy Int 
TST FACACKS) 
BNE ERRSSL 
MOV FAC2(K5),SS2SAV(95) 
aM ERRSSL 
cMPB (RY) oe 4, RPAR 
BNE ERRSXS 
NOSUBS} RTS PC 
ERRSX3! MP ERRSXD 
sIFNOF SNOSTH 
ERRMX3) UMP ERRMIX 
VENOC 


ERRSSAI VHP ERRSS2 


BASICL 


3779 
3780 
3782 
3782 
3783 
3784 
3785 
3786 
3787 
3788 
3789 
3799 
3791 
3792 
3793 
3794 
3795 
3796 
3797 
3798 
3799 
3808 
3803 
jane 
3803 
3804 
3805 
3806 
3807 
3808 
3809 
38128 
3812 
3012 
3813 
3814 


BASICL 


3a15 
3816 
3817 
3818 
3019 
3628 
382% 
3622 
3823 
3824 
3825 
3826 
3827 
3828 
3829 
3830 
3832 
3832 
3833 
3834 
3835 
3836 
3837 
3838 
3839 
3349 
3841 
3842 
3843 
3844 
3845 
3846 
3847 
3648 
3849 
3850 
3852 
3852 
3853 
3854 
3855 
3856 
3857 
3858 
3859 
3868 
3862 
3862 
3863 
3864 
3865 
3866 
3867 
3868 
3869 


MACX14 


313746 
443758 
813752 
813754 
813756 
213768 
813762 


013764 
043779 
813774 
813776 
o14002 


MACX12 


314004 
8144016 
014912 
14816 
014020 
914924 
814050 
14932 
914036 
814040 
314842 
314046 
314050 
814952 
014054 
314068 
314064 
214066 
314070 
314872 
314074 
814076 
014190 
814104 
814106 
14112 
914114 
814116 
014128 
G14122 
914124 
914126 
214132 
814156 


314140 
014144 
214246 
914159 
914152 
314156 
314168 
314164 
314170 
314474 
314176 
314299 
814282 
314276 
314210 
314212 


Ve@22 


812203 
205722 
240322 
205722 
019322 
985822 
200207 


2165090 
22728 
019015 
849065 
200207 


va2s 


216500 
201452 
804567 
310804 
042798 
820027 
103473 
220027 
181937 
995902 
162720 
283034 
BOO3SL 
195904 
156594 
052704 
2g0244 
2O6004 
295720 
092905 
206204 
905522 
262700 
082773 
805765 
190905 
095702 
904402 
085221 
192447 
985404 
210165 
985965 
402207 


929027 
202005 
380264 
296122 
362738 
280778 
216529 
340265 
205765 
120360 
836200 
981756 
294467 
314256 
14322 
2900006 


22eMARe73 «16305 = PAGE 54 
ee ee ee Se aaa 


y 
) INITBF © INIT, BUFFER HORS, 
J 


5 CALLE Mov *#CHOR, ADDR, JaR2 
vSR PCLINITOF 
USES R2,R3 


’ 
' 
’ 
U 
: LEAVES R3 POINTING To WARD AFTER LAST IN BUFF, HOR, 
if 


NITBFI Mov CR2)e;R3 HBUFF, START ADOR, 
TST (R2)e PT, TO BGETL 
MOV RS, (R24 
Ts? (R2}6 sP7, TO BPUT 
MOV RS, (R206 
CLR (R2)o 1OFS°EC 
RTS PC 


Rite ee ee a ae ee 


j 
J INI ysCe © sCrATGH USER AREA 
; 3 


5 CALLI JSR PG INL TSCR 
) 
i) 6YSES RO 
f 
800016 ant yecnr tay CODEC KS) Ra 
3ge225 MOV #, EOF, (RO) + 
Mov RO,(RS) 
oo0o14 MOV RO, LOFREE(RS) 
RTS PC 


22eMARe73 16105 8 =PAGE 52 


Jecece Seem emewwce cece ccw ccc seceseeccces 





}) SUBROUTINE f INTE CALLED BY JSR PC 
' COMPUTES INTCFAC), CONVERTING THF RESULT 
1 TO A LeWORD INTEGER, IF POSSIBLE 
og904e. INTE MOV FACLCRS) RO 1GET HIGH ORDER WORD IN 96 
BE INTRTS PALREADY AN INTEGER 
003044 JSR RS, SAVREG sSAVF ®PEGISTERS 
MOV RO,RL 
108177 - OTe #200177,RO HEXTRACT EXPONENT 
e4o2ee CMP RO, #49200 sCHECK ABS VALUE < 4 
BLO INT? 
846900 CMP RO, #40009 JCMECK INTEGER BY TRUNCATION 
BHI INTRTS sYES, RETURN 
CLR R2 
843008 sua #43600,R0 ICHECK MORE THAN 15 AITS INTEGER 
BGT INTS HYES, PRODUCE FLT INT ANSWER 
Swag RY 
CLRB RL 
eooues B1se FAC2+1(R5),R1 = RL 1S 16 BITS OF MANTISSA 
129000 BIS #100000,R1 }SET HIQOEN BIT 
cLc 
ROR RY GET 15 BITS OF ABSOLUTE VALUE 
TsT RB sTEST ALREADY INTEGER 
8GE INTAA rYES 
INfit ASR Ry ISHIFT MANTISSA 4 RIGHT 
AoC R2 yA0O CARRY BIT TO R2 
egezen aod #200,R0 PINCREMENT EXPONENT 
ALT INTS HLOC® UNTIL DONE 
090040 INTiay ST FACL(RS) sORIGINAL NUMBER NEG 
BPl, INT2 INO 
TST R2 HANY BITS ZEROED? 
BEQ INTA8 
INC RL HADJUST FOR NEGATIVE 
avs INT9 POVESFLOW 
INTIBS NEG RL 
290042 INT2t 9 MOV RL, FAG2(RD) 
oeoa4se - INT2A} CLR FACA(RS) 
INTRTSE RTS PC 
ae2200 InfS! = CMe RO, #2200 iCHECK DONE 
BGE INTO VYES 
sec SET CARRY BIT 
ROL R2 HCREATE PATTERN OF BITS TO CLEAR 
2380200 aod 4280,K0 
BR INTS 
0B0042 INT64 MOV FAC2(R5), KO HSAVE CLO FAC2 IN CASE NEG ARG 
090042 B1C R2,FAG2(R5) sCLEAR BITS 
008048 TST FACACKS) SCHECK NEG ARG 
BPL, INTRTS HNO, DONE 
ByT R2,RO NCHECK EXACT INTEGER ALREADY 
BEO INTRTS HYVES, RETURN 
8900006 JSR R4,SPOLSH JNO, MUST SUBTRACT 4 
sWORO = PUSH JPUSH FAC 
,WORD = PUSHY JPUSH FLOATING 1 


, WORD SSBR sSUBTRACT 


BASICL 


3879 
3872 
3872 
3873 
3874 
3875 
3876 
3877 
3878 
3879 
3880 
3081 
3082 
3803 
3084 
3885 
3886 
3087 
3888 
3889 
3098 
3892 
3892 
3893 
3a94 
3095 
3896 
3097 
3898 
3899 
3908 
3904 
3902 
3903 
3904 
3905 
3906 
3907 
3908 
3909 
3910 


BASICL 


S911 
3912 
3913 
3914 
3915 
3916 
3917 
3918 
3919 
3928 
3924 
3922 
3923 
3924 
3925 
3926 
3927 
3928 
3929 
3930 
3931 
3932 
3933 
3934 
3935 
3936 
3937 
3936 
3939 
3940 
3944 
3942 
3943 
3944 
3945 
3946 
3947 
3948 
3949 
3958 
3951 
3952 
3953 
3954 
3955 
3956 
3957 
3958 
3959 
3968 
3962 
3962 
3963 
3964 
3965 


MACKXIL 


014214 
914216 
14226 
824222 
14224 
0144239 
814232 
914249 
814242 
814259 
014254 


914256 
814262 
914266 
214278 
814274 
914309 
014302 
014304 
614318 


024312 
314316 
014322 
014324 
814330 
014354 
814336 
814342 


MACX14 


014344 
014350 
844354 
014360 
014362 
814364 
014366 
814370 
914374 
314409 
214402 
314404 
2314410 
014412 
314414 
014416 
814422 
014424 
914426 
014439 
814432 
814434 
014449 
014442 
014446 


314459 


314453 
014455 


314456 


314468 
814462 


Veer 


9142790 
214136 
295791 
190493 
205965 
300746 
012765 
8897354 
842765 
805965 
300730 


816546 
816546 
200134 
212665 
312665 
080154 
295946 
312746 
880134 


985265 
195765 
091402 


980467 


988737 
781402 
900137 
788207 


VoaL 


904567 
116529 
916001 
205720 
abiode 
060504 
011292 
416502 
220265 
201401 
OB53A2 
004767 
103021 
200227 
113012 
204367 
900752 
200207 
290762 
800765 
899202 
020265 
103761 
194167 

o15 


as2is4 


e415 
088 


398744 


3p0ir2 
221242 
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080042 
477777 
143600 
890942 
098042 
900948 
030040 
090042 


049208 


090078 
890106 


164546 
990058 


80005e 


WORD 

1 WORO 
Int71 TST 

BMJ 


8oeB42 INT8t MOV 


899048 INT9! MOV 


PUSH! = MOV 


POPs MOV 


PUSHii CLR 


J qecwncccnrecere 


POP SPOP aNSWER TO Fac 

UNTRTS sANO RETURN COUT OF POLISH MADE) 
Ry PABSCARG) C4 

INTs 


FAC2(R5) tIF + THEN ANS IS 4 
INT2A 

#277777, FACQ(R5) IF © THEN ANS IS of 
INT2A 

#1443608,FAC1(R5) 

FAC2(HS) 

INTRTS 


FAC2(K5),9¢SP) 
FACICHS), 9¢SP) 
O(R4)e 

CSP), FACICRS) 
(SP), FAC2¢R5) 
OCRaje 

2(SP) 
#40208,2(SP) 
O(R4)e 





Wed RANE beuesonecoesdebensengacecmteees san 


j 
! ToWALT © WASTE TIME TILL NEX? INTERRUPT 


) CALLE JSR 

, 

TowAlT# INC 
TSTB 
8£Q 
JMP 

WrRETE TST 
Bea 


JMP 
RTS 
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092512 
809877 
014469 


090028 
900020 


177048 


1730902 


909016 


804020 
gi2 


114 


o12 


PEL TOWALT 


RNOCTIRS) 

CNCFLG(RS) 

WIRET 

READY 

easg }CHECK WALT LOOP ADDR 
1*6 

ont SSPECIAL WAIT ROUTINE 
P 


J wc ncwccwc gece sec ecmcc cena sewn c ewe sere cen eccecesnesnccesoccee 


5 
LINGET © €01T 


JSR 


THROWS AWAY 
ASCII 137, 


LINGETH JSR 
LINAL = MOVE 
MOV 
TST 
BNE 
ado 
MOV 
LINEIND “OV 
LINRUBY CMP 
BEQ 
oEec 
OOCHAR: JSR 
ace 
RTS 
GOTONE MOVE 
JSR 
BR 
RTS 


' 
‘ 
’ 
U 
U 
4 
' 
4 
| 
Hy 
' 
U 


TABS! 


A LINE INTs LINE BUFFER USING GETCHAR 


CALLI USER AREA BASE INT A5 


PC LINGET 


PRESERVES ALL REGISTERS 


RECOGNIZES fe! AND <RUB OUT> FoR AY% OUT AND <ALT MQDED> 
AND feUl FOR LINE DELETE) <C®> AS LINE TERMINATOR, 


ALL OTHERS BELOW ASCII 4@ AND ABOVE 


R5,SAVREG HSAVF QEGS, 

TDEV(KS) Ro sCURR, INPUT DEV, CODE 
TABS(RO) RY TO SELECT DEV, 

RO 

LINEIN 

RO, RL HJSE9 FASE 

(RGD PRL SHAVE USER BUFF, HOR, 

LINE (KS), RO 

R2,LINE(RS) sOCN/T RUB OUT TOO MUCH 
DOCHAR 

R2 

PC, GETCHAR HDON¢T COME RACK TILL YOU GOT ONE 
GOTONE 

PG VINDICATE INCOMPLETE LINE (CARRY SET) 
RO, (RZ) yPUT HER IN 

R3,CHKCHR pRETURN EXEC, ONE OF NEXT FIVE LOCS, 
LUNA stF LINE DELETE 

PC sOONE €<CR>) (CARRY CLEAR) 
LINRUS 

DOCHAR IMEAMINGLESS CHARS, 

Re 1GOON CHAR, 

R2,COVE(RD) HCHECK LINE SPACE OVERFLOW 
OOCHAR 

R1,MSGERR 

CRLF 

SLONGER 

"LIL?! 

SLONGER 

*L INE TOO LONG! 

CRLF 

LINEIN 


KBHWO 


+ 
LIFNOF SNOPTP 


> 
yENOC 


PRBFHD 


BASICL 
3966 


BASICL 


3967 
39668 
3969 
3978 
3971 
3972 
3973 
3974 
3975 
3976 
3977 
3978 
3979 
3989 
3984 
3982 
3983 
3984 
3985 
3986 
3987 
3988 
3989 
399B 
3994 
3992 
3993 
3994 
3995 
3996 
3997 
3998 
3999 
4000 
4001 
4982 
4003 


MACX{1 


MACKXA4 


314464 
814466 
914472 
814476 
914502 
344504 
814510 
914512 
o14514 
614516 
814522 
014524 
014539 
914532 
814536 
0145490 
814542 
014544 
014559 
314554 
214569 
014564 
014566 
914570 
314574 
014576 
314602 
914604 
014612 
014616 


VO2i 


Ve2s 


205900 
095ge5 
385065 
124327 
701404 
121327 
881982 
205108 
395283 
122327 
301416 
124327 
204404 
122327 
084426 
290207 
385203 
112365 
112365 
112365 
112365 
#05708 
004411 
905765 
384003 
205465 
080403 
262765 
9627146 
390207 


22aMARa73 


22eMARe73 


280040 
290042 
990252 


agn23e 


690375 
090374 
090576 


280044 
280040 
890043 
288042 


990040 


ooeg4e 


190008 
Oonb2 


808849 
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oe a es 


mee wee 


ITEVALICLR 
CLR 
CLR 
CMPB 
BEO 
CMPB 
BNE 
COM 
LEVPLUSSING 
LEVLIT: CMPB 
BEQ 
CMPB 
BEO 
CMPB 
BEQ 
RTS 
GLEVFLTS INC 
MOVB 
MOVB 
LEV2LTI MOVB 
LEVaLTi MOVE 
TST 
BEQ 
TS? 
BNE 
NEG 
BR 
GEVFNEGSA00 
LEVPOSt Add 
RTS 


"LITEVALS SUBROUTINE 


CALLED BY JSP PC,LITEVAL 
R42 POINTS TO THE Cor 

THES SUBROUTINE 1S CALLED TO EVALUATE A 
LITERAL IN THE CDE, 

FACA(KS) 

FAC2 (NS) 

(R3),8, PLUS 

LEVPLUS 

(R3) 8, MINUS 

LEVLIT 

RO 

RS 

CR3)e pM IL ITS 

LEVALT 

PCRS) #,FUIT 

GEVFLT 

CRI) op #,ILIT2 


(R3)% pF ACL 41 (R5) 
(RIS PFACIERS) 
(R3) op FACZ41(R5) 
CASLSAFACEIRS) 


QEVPOS 

FACL(NS) 

LEVFNEG 

FAC2(KS) 

LEVPOS 
#190080,FAC1(R5) 
#2, (SP) 

PC. 


See 


BASICL 


4004 
4005 
4026 
4007 
4ee08 
4009 
4010 
4011 
4012 
4015 
4014 
4a15 
4816 
4017 
4018 
4049 
4020 
4024 
4022 
4823 
4024 
4025 
4026 
4027 
4026 
4029 
40398 
4031 
4032 
4833 
4034 
4035 
4036 
4037 
4038 
4039 
4048 
4041 
4042 
4043 
ape4 
4045 
4046 
4047 
4948 
4n49 
4058 
4051 
4252 
4053 
4954 
4055 
4056 
4057 
4058 


BASICL 


4059 
4060 
4961 
4062 
4263 
4064 
4065 
4206 
4067 
4268 
4069 
4072 
4e71 
4072 
4073 
4074 
4075 
4076 
4077 


MACXL1 


014629 
314624 
914626 
814632 
414634 
314636 
814648 


914642 
014646 
814659 
014652 
014654 
014660 
814662 
814664 
314666 
614672 
014674 
814676 
014790 
014704 
314706 
314712 
314714 
014728 
014722 
314724 
314738 
0146732 
014736 
014749 
014744 
014746 
914750 
014752 
014754 
314756 
014768 


MACX12 


914762 
914764 
314778 
014772 
314774 


314776 


215001 


ve2i 


321227 
201403 
385762 
180015 
310246 
310446 
18346 


12703 
041604 
100403 
210304 
304767 
812603 
912604 
022682 
920062 
181040 
985703 
1280427 
205762 
100433 
820362 
101030 
816246 
295226 
018346 
912746 
286323 
086366 
1030802 
066603 
903316 
083378 
922626 
805726 
569300 
095208 
886326 


vo2s 


286300 
846202 
760802 
900227 
280024 


947523 


22emMARe7S 


177775 
780004 


090022 


172676 


908004 


980906 


288806 
BQ0004 


000028 
99e002 
999004 


22eMARe73 


390802 


102 
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SUBROUTINE 





' 
' 
U 
‘ 
5 
' 
’ 
‘ 
‘ 
U 
\ 


OCGETs CMP 
EQ 
rst 
oP, 

LOCALOCIMOV 

MOV 


MOV 


sTENOF 
JSR 
»ENDC 


MOV 
Mov 
By! 
MOV 
JSR 
MOV 
MOV 
MOV 
LOcSSit CMP 
BHI 
Ts? 
amt 
TST 
amt 
cur 
BH} 
MoV 
INC 
MOV 
MOV 
LOCLOOPTASL 
ASL 


Bcc 
00 
DEC 
BGT 
chp 
TsY 
400 
LOCNo2! INC 
ASL 


wT FNOF 
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cMP 
BEO 
sENOC 


ASL 
Moy 
400 
RTS 

ERRSS3i JOT 
vTFNOF 
ASCII 
ENOC 
vlFOF 
sASCIE 
+ENOC 
18YTE B 
1 EVEN 
,€0T 


eae enccrcnesawesecesecesccesccercses 


Loccer! 


CALLED BY JSP PC 


GE 


LOC OF ELFMENT IN ARRAY (CHECKS SUBSCRIPTS) 
MUST CONTAIN SS2 GETS OESTROVED 

UNUSED 

MUST POINT TO VAR GETS SET TO RESULT 
MUST CONTAIN SS2 GETS DESTROYED 

UNUSED 

MUST POINT TO USER AREA 

GOES 7? NEEPER AFTER JSR 


(R2),8,SCALAP 


LocaLoc 
4(R2) 
Locss2 
R2,0(SP) 
R4,20SP) 
R3,0(SP) 


SNOSTR 
PC,ONPAC 


#22, R5 
CSP),K4 
104 
RS,RA 
PC, ALLOC 
CSP) O)RS 
(SP) +) R4 
(SP) 4,R2 
RO, 4(K2) 
ERRSSS 
RS 
LOCNO2 
(R2) 
ERRSSS 
RS, 6(R2) 
ERRSSS 


44R2),2(SP) 
(SP) 


R3,0(SP) 
#20,9(SP 
R 


3 
2¢SP) 
1%6 
4(SP)—RS 
(SP) 


(SP) o)(SP)e 


(SP)* 
RS,RO 
RO 
RB 


SNOSTR 


(R2),8,SVAR 


144 


K 


’ 


2¢R29,R2 


RB, RZ 
PC 


SLONGER 
\508\ 


SLONGER 


pooee 
te 
te 
te 
te 
te 
te 
te 
te 
te 
te 
beee 


MYULTIPLY SS2 BY SS1imAx 
RESULT IN R3 


Sesesesesces 


*SUBSCRIPT OUT OF ROUNDS: 
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4976 } SQURCE FILE #7 
4979 l eawcwcrowqecccwwe soc ewcrgccnnswccccoccnsccceosesee 
4088 J SUBROUTINE ‘LSTPROG! CALLED BY JsP PC 
4081 ’ LISTS THE USER PROGRAM THROUGH /®UTCHAR/ 
4082 H] 83 © R4 OESTROYED 
4083 ' RS MUST POINT TO USER AREA 
4084 } SP GOES 7? NEEPER AFTER JSR 
4085 015002 216501 200816 LSTPROGIMOV CODE( HS), RE 
4086 915006 112172 USTLOOP I MOVA (R44, R2 
4287 015018 302142 8GE LSTPTR 
4088 915012 120227 opo201 cMPB R2,8,60L 
4089 015016 a91444 Bea LSTEOL 
4090 915029 129227 oge225 core R2,8,€0F 
4091 915924 381903 ONE 104 
4092 815826 390207 RTS PC 
4093 815030 129227 2980374 cMPB Re,8,FLIT 
4094 315034 193964 BHIS LSTSPEC 
4095 915936 342702 177400 BIC #477400 ,R2 
4096 315042 219703 MOV PG,RS 
4097 315044 962703 163348 LsfPpcy apo BKEYWOS@LSPPCARS 
4098 915059 019304 LSTSRCHIMOV R3,R4 yR4 1S START OF KEYWORD 
4099 915052 1123008 MOVE (R3) 4, RO 
4408 315054 190376 BPL 192 yLOOP TILL GET ENO KEYWORD 
4201 815056 120002 CMP8 RO,R2 COMPARE VALUES 
4102 915969 094373 BNE LSYSRCH 
4103 315062 112400 LSTKWOI MOVB (R44) RD 
4404 015964 180403 aM! LSTCHK 
4405 015066 904767 324604 usr PC, PUTCHAR 
4196 913072 989773 aR us twa 
4407 015974 124127 ag0211 LSTCHK) CPB a (RL) 94, NEXT 
4108 015198 301410 BE LSTNEXT 
4109 915102 122127 seee2o2 cMPa (Roo) 8, FN 
4410 015186 984337 BNE LSTLOOP 
4112 915419 1122190 ' LSTFNI MOVE (RL) oy) RO 
4412 015112 262708 agozeo apo BAe AeZ, RO 
4113 915116 aB6ae9 ROR Ra 
4414 915129 990427 8R LSTCHAR 
4415 015122 262701 980015 LSTNEXTIAOD #13,R2 
4116 915126 980727 BR LSTLOOP 
4117 015138 111192 LSTEOL) Move CRE) K2 
4218 015132 190019 apy, LSTLIN 
4419 015134 129227 og0225 CMPB R2,8,C0F 
4428 915149 301015 BNE LSTB8S4H 
4121 015242 004167 220354 LSTCRLFIUSR Ri, MSGODEV 
4422 325146 015 o12 Boo :BYTE CRLF ,@ 
4123 315152 pEVEN 
4424 015152 290715 8R LSTLOOP 
4125 915154 090322 LSTLING SWAB R2 
4126 015156 395291 INC Ry 
4127 015468 154192 BSB (RL) HZ 
4128 915162 305301 ogc Ry 
4429 015164 964522 aoo (RS), R2 
4138 915166 024227 477775 CMP (R2),#, SCALAR 
4232 845172 183763 ao LSTCRUF 
4432 0615174 912799 «390134 LSPESLHIMOV at, RO 
BASICL MACX11 Va21 22eMARe73 46105 PAGE So0y 
4133 015209 294767 994472 USTCHARTYSR POyPUTCHAR 
4134 915204 390700 BR LSTLoop 
4435 915206 120227 290374 LSTSPECiCMPB R2, a, FIT 
4136 915212 201425 BEG LSTFLIT 
4437 915214 120227 290376 cure R2,0,1L1T2 
4438 915220 193446 BLO LSTILL 
4139 915222 991412 Bea LSTIL2 
4148 915224 112199 LSTTEXT I MOVE (R4)e,RQ 
4141 915226 391667 BE0 LSTLOOP 
4142 315230 094767 091442 JSR PC,PUTCHAR 
4143 915234 990773 BR USTTEXT 
4144 315236 105965 90043 LSTILA4 CLRB FAC2+2(R5) 
4145 915242 112165 ag0042 MOVB (RL), FAC2(R5) 
4146 915246 390424 BR  USTILE 
4447) 315250 112165 o00043 LSTIL21 MOVE (R4)*,FACZH1(R5) 
4248 915254 112165 ag0042 4OVB (RE) ee FACZERS) 
4159 0152609 285965 a99n40 LSTILBI CLR FACA(RS) 
4150 915264 180410 BR LSTFLB 
4151 315266 112165 goo042 LSTFLITIMOVE CRA) * yp FACLOL ORS) 
4152 915272 112165 90040 MOVB (RL) )FACLERS) 
4153 315276 112165 300043 MOVB (RE) OP FACZ41 (RS) 
4154 015302 112165 290042 MOVB (RL) 4) FACZ2(RS) 
4455 315306 294767 290434 LSTFLB} JSR PG, NUMOUT 
4156 315312 0980167 177470 LSTUMP} JMP LSTLOOP 
4157 315316 190302 LSTPTRI SWAB Re 
4458 335329 152102 B1SB CHL) 4) R2 
4159 915322 364502 ago (RS) RZ 
4468 915324 924227 177775 CMP (R2))#,SCALAR 
4161 315330 193030 BHIS LSTVAR 
4162 015332 311202 MOV (RZ), R2 
4463 915334 292405 BLT LSTLNO 
4164 315336 310265 00042 MOV R2,FAC2(RS) 
4165 315342 295965 o00040 CUR FAGA(RS) 
4166 015346 300434 BR LSTLNX 
4167 915359 110265 og0043 LSTLNOT MOVB R2,FAC2+4(R5) 
4168 015354 195965 o90042 CLRB FAC2¢R5) 
4169 045369 300322 SWAB R2 
4172 015362 110265 aag04e MOVB R2,FAGACRS) 
4171 315366 185065 g90041 CLRE FACLO1(RS) 
4472 315372 362765 043000 aoe0sg ado #43600,FACK(R5) 
4473 315400 284767 990342 LSPLNXI USR PC, NUMOUT 
4174 215404 «212700 200040 MOV #8, Ro 
4175 315410 282673 BR LSTCHAR 
4176 915412 126238 so0019 LSTVAR} MOVE 10(R2),RO 
4477) 915416 204767 931254 JSR PE,PUTCHAR 
4178 315422 116209 990011 MOVE 11¢R2), RO 
4479 315426 301402 8EQ +6 
4488 915439 204787 204242 JSR PG, PUTCHAR 
4181 
4182 vlFOF SNOSTR 
4183 815434 790726 6R LST IMP 
4184 ,ENOG 
4185 ,IFNOF SNOSTR 
4166 CMP (R2),%,SVAR 


4187 BNE LST IMP 


Neer 
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4188 
4189 
4198 
4492 


BASIC. 


4192 
4193 
4194 
4195 
4196 
4197 
4198 
4199 
4200 
4204 
4202 
4283 
4204 
4205 
4206 
4207 
4208 
4209 
4210 
42i4 
4212 
4213 
4214 
4215 
4216 
4217 
4218 
4219 
4228 
4223 
4222 
4223 
4224 
4225 
4226 
4227 
4228 
4229 
4230 
4231 
4232 
4233 
4234 
4235 
4236 
4237 
4238 
4239 
4240 
4241 
4242 
4243 
4244 
4245 
4246 


MACXLL VO2a 22eMARG73 


MACX11 veer 


22eMARS7S 


16805 PAGE 5602 


MOV 


8R 
,ENOC 
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eTFNOF 





#($,R8 
LSTCHAR 


SNOSTH 


Swecwgeccsconscccsncesccoccccseccscnceecezoces 


SUBROUTINE ‘MAKESTH! CALLED BY JSR PC 
“MAKES A BASIC STRING FROM & STRING OF CHARACTERS 


R@ OESTROYEN 
RL UNUSED 


R2 MUST POINT TO A WORD WHICH CONTAINS 3 LESS 
THAN THE ADDRESS OF THE FIRST CHARACTER 


RS NESTROYEN 
R4 UNUSFD 
RS MUST POINT TO USER AREA 


sp 


ON ENTRY O(SP) MUST CONTAIN # CHARACTERS 
ON EXIT 7(SP) CONTAINS POINTER TO THE STRING 


AKESTREVSR PC, MAKETRY BWILL NEW STRING FIT? 
BLOS MAKGOT VYES 
WSR PC, ONPACK 1NO, GARBAGE COLLECT 
JSR PC, MAKETRY HTRY AGAIN 
BLOS MAKGOT HFITS THIS TIME 
ERRSOVE LOT 
vIFNOF = SLONGER 
sASCIT NSSON 
,ENOC 
vIFOF = SLONGER 
sASCIY ‘STRING STORAGF AVERFLOWS 
,ENOC 
. :BYTE 2 
EVEN 
MAKCHKY JSR PG MAKETRY 
BHI ERRSOV 
MAKGOT} MOV RO HISTR(RS) SAVE NEW HIGH STRING ADDR 
MOV 2(SP),RO sR “OW CONTAINS # CHARS, 
“OV (R2),R2 
400 #3,R2 1R2 "OW CONTAINS ANDRESS OF CHARS, 
MOVE RB, (RS)+ JRE PUTS CHARACTERS IN 
CMPB CRB), CR3DG 
“Ove (RAV SE(R3)DO 
DEC RO 
acT 104 
MOV 2¢SP),RO 
“Ove RO,(RS) 
sue RO,RS 
MOV SP,RO 
Ts? (RO)* 
MOVE RO, eC KS) 
Swag RO 
Move RO, e(K3) 
DEC RS 
MOV R3,20S9P) 
RYS PC 
j SUBROUTINE TO CHECK ROOM ENONGH FOR STRING 
MAKETRYSMOV HISTR(RS) 120 
MOV RO RS 
aod 4¢SP),RO 
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4247 aod #4,R8 

4248 CMP RO,HIFREE (RS) 

4249 RTS PC 

4250 ,ENOC 

4254 

4252 

4253 

4254 

4255 J ecwwcccccrecccce wewscocsencscceeccces 
4256 } SUBROUTINE ‘MpYy CALLED BY Jsr pC 

4257 J MULTIPLIES R3,R4@ BY DECIMAL 19 
4258 ’ RO,R1,R2 UNUSED 

4259 | R3,R4 IS THE 32 BIT UNSIGNED INTEGER TO MULTPLY 
4268 ’ R5 UNUSED 

4263 ’ SP GOES 4 DEEPER AFTER JSR 
4262 015436 010346 MPYTENT MOV R3,0(SP) 

4263 915449 219446 MoV R4,eCSP) 

4264 215442 396304 ASL R4 

4265 015444 396103 ROL RS 

4266 015446 396304 ASL Rr 

4267 835459 206103 ROL RS 

4268 015452 262004 apo (SP) 4,R4 

4269 215454 995503 aoc R3 

4272 815456 162603 aoo CSP) O,RS 

4274 315469 106306 asl, R4 

4272 015462 306103 ROL RS 

4273 015464 990207 RTS PC 


4274 
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4275 ' 

4276 1 MSG e@ OUTPUT A LINE 10 Try 

4277 § MSGODEV © OUTPUT A LINE FO CUR, O''TPYT DEV, 

4278 ' 

4279 ) CALLI JSR RL,MSG (MSCQDEV) 

4280 | cASCIL "CMESSAGEI" 

4281 ) BYTE @ 

4282 4 EVEN 

4283 , RETURN WERE 

4284 1 

4285 USES RO 

4286 ' 

4287 ) SEY YP LINE WITH NUMBER OF AYTES TERMINATED 

4288 } «BY A BYTE OF G00, 

4289 J 

4290 MSGERRI 

4291 wIFNOF SLONGER 

4292 015466 1127209 00045 Move ate, RO 

4293 915472 090461 BR MSGCOM 

4294 ,ENOC 

4295 815474 112109 MSG! MOVB CRE) RB 

4296 915476 195065 900107 MSGCOMI CLRB CNOFLG(RS) 

4297 315502 0916546 390034 MOV COLUMN(RS),@(SP) ISAVE FOR TEMP SWITCH 
4296 915526 912765 o90056 ognas4 MOV aCLMNTTY, COLUMN(95) 

4299 915514 060565 090034 a00 RS, COLUMN(RS) 

4308 215529 ape4e4 BR FRSYOUT 

4381 915522 216546 so0854 MSGODEVIMOV COLUMNCRS) ,@(SP) 

4302 915526 112198 OOmMSG} MOVB (RL) o, RO 

4303 345530 024403 BEQ NOUN 

4304 815532 904767 01140 FRSTOUTIYSR PG, PUICHAR IPUT CHAR, TO TTY 
4385 815536 289773 BR OOMSG 400 NEXT CHAR 

4306 315540 385283 LINOUNS INC RL TO INSURE RETURN ON 
4307 315542 296203 ASR RY + EVEN WORD BOUNDARY 
4308 915544 296301 ASL RL 

4309 315546 212665 200054 MOV (SP) o,COLUMN(RS) 

4318 315552 200221 RTS RY 


4311 


BASICL 


4312 
4313 
4314 
4315 
4316 
4317 
4318 
4319 
4320 
4321 
4322 
4323 
4324 
4325 
4326 
4327 
43268 
4329 
“A330 
4331 
4332 
4333 
4334 
4335 
4336 
4337 
4338 
4339 
4349 
4341 
4342 
4343 
43a4 
4345 
4346 
4347 
4348 
4349 
4358 
4351 
4352 
4353 
4354 
4355 
4356 
4357 
4358 
4359 
4369 
4362 
4362 
4363 
4364 
4365 
4366 
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4367 
4368 


MACXLL 


315554 
015568 
015562 
15564 
915566 
815578 
815572 
815574 
015608 
815602 
815604 
015686 
915618 
015612 
915614 
915616 
015629 
015622 
815624 
915626 
015630 
8156352 
015654 
015636 
015648 
815642 
815644 
015646 
015650 
015654 
015669 
015662 
015664 
015678 
915672 
215674 
315676 
915700 
015704 
845726 
215718 
915712 
815716 
015722 
915724 
815730 
015734 
015736 
815748 
215742 


MACXL1 
015744 


yoes 


312746 
303703 
284443 
1890833 
886003 
206604 
385216 
O3a327 
994018 
286304 
486193 
295316 
300771 
35704 
881367 
989726 
800207 
00572 
281425 
180416 
986203 
906004 
806203 
986004 
306203 
NB6004 
886203 
206904 
062716 
094767 
305372 
380744 
084767 
995202 
790749 
886203 
306004 
838327 
091373 
205716 
283082 
822726 
821627 
101402 
012726 
110366 
P42603 
082393 
086093 
386004 


veer 
080227 


22eMARS7S 


800257 


240800 


B8ORO4 
177556 


472078 


177908 


0890001 
0903577 


090377 
8oeRe1 


22aMAR@73 


16185 PAGE 59 


zee ewe 


ORME = MOV 
TST 
BEO 
BPL 
ROR 
ROR 
INC 
LITNORMIBIT 
BNE 


as 
ROL 
dee 
BR 
LITTsT: TST 
BNE 
rst 
RTS 
LItoks TST 
BEO 
omy 
ase 
ROR 
ASR 
ROR 
ASR 
ROR 
ase 
ROR 
ano 
JSR 
oec 
8A 
LUrOlvE JSR 
INC 
BR 
LIPSHR} ASR 
ROR 
LITSToH BIT 
BNE 
st 
act 
MOV 
cMP 
BOS 
MOV 
“Ove 
MOV 
SWAG 
ROR 
ROR 


16105 PAGE 5904 
RTs 


SunhddueeesaSeedsevanewseionsdeweteactersessesaesiness 


SUBROUTINE ! NORMS 


NORMALYZ°S INTEGER CONTAINED IN 
RI AND R4, MILTIPLIEO By EXPONENT 
IN R2, ANSWER IS IN RS, R4, 
CALLED BY JSR PC 

#237,9(SP) 

RS 


LITTST 
LITNORM 
RS 

R4 

(SP) 
R3, #40003 
LItoK 
Re 

RS 

(SP) 
LITNOKM 
Re 
LITNORM 


Rq 

a4, (SP) 
PC,MPYTEN 
RZ 
LUTNORM 
PC,OIVTEN 
R2 


LIYNORM 
RS 


R4 

RS, #177008 
GITSHR 
(SP) 

1*6 

#3, (SP) 
(SP), 8377 
1*6 

#377, (SP) 
RS,4 (SP) 
(SP) 4,RS 
RS 

RS 

R4 


Pc 
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4369 
4378 
4371 
4372 
4373 
4374 
4375 
4376 
4377 
4378 
4379 
4380 
4382 
4382 
4383 
4384 
4385 
4386 
4387 
4388 
4389 
4399 
4394 
4392 
4393 
4394 
4395 
4396 
4397 
4398 
4399 
4400 
4401 
4402 
4403 
4404 
4405 
4406 
4407 
4408 
4409 
4418 
4414 
44n2 
4443 
4an4 
4415 
4446 
4447 
4448 
rye) 
4428 
4424 
4422 
4423 
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4424 
4425 
4426 
4427 
4428 
4429 
4430 
4431 
4432 
4433 
4434 
4435 
4436 
4437 
4438 
4439 
4440 
4444 
4442 
4443 
4444 
4445 
4446 
4447 
4448 
4449 
4450 
4451 
4452 
4453 
4454 
4455 
4456 
4457 
4456 
4459 
4460 
4461 
4462 
4463 
4464 
4465 

4466 

4467 

4468 

4469 

4470 

4474 

4472 

4473 

4474 

4475 

4476 

4477 

4478 


MACXLL 


335746 
015752 
015756 


013768 
015764 
915779 
015774 
015776 
816802 
016004 
316806 
916014 
916016 
816922 
816024 
246250 
816052 
0168356 
816040 
916046 
916852 
816856 


816060 
816064 


816066 
816072 
816074 
946108 
016102 
816106 
846110 
916112 
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816116 
016126 
316122 
816124 
316126 
216138 
916132 
816136 
016142 
816146 
3161590 
916152 
916154 
516160 
016162 
916164 
316166 
316178 
316172 
016174 
916176 
916250 
816282 
916204 
216206 
916212 
316216 
316220 
016222 
916226 
816250 
016254 
916236 
216249 
316242 
316244 
16246 
916252 
846254 
216260 
316262 
16266 
316270 
916272 
216276 
316329 
916304 
316306 
016310 
216314 
316316 
316320 
916322 
316324 
316326 


vVa2. 


304567 
242721 
390443 


917600 
362716 
004567 
1000s 
885765 
001430 
100825 
062765 
284816 
995965 
AB1816 
985765 
180813 
295465 
102985 
812765 
085065 
12720 
300402 


312709 
304741 


816524 
305902 


- 836583 


881020 
012700 
305724 
901016 
912700 


Va2s 


306711 
28207 
210328 
206308 
105900 
80300 
162738 
342793 
2527083 
305320 
286324 
286183 
838327 
204772 


985700 


793016 
296293 
286004 
386233 
386004 
086203 
286004 
306203 
286004 
262720 
204767 
295382 
080755 
920027 
903427 
084767 
395202 
200746 
295208 
326223 
386004 
829927 
982772 
320327 
183363 
362754 
103010 
9952035 
320327 
193404 
BL2703 
905004 
885222 
312700 
910346 
320316 
286016 
206016 
306016 
942716 
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BOLi10 
816676 


999002 
ogagee 
001066 


980040 


te00e8 BBe049 
800842 
890842 
200042 
044992 990040 


890042 
880055 


600040 


090042 
2o0840 
990037 


890060 





bf NUMQUT! ~SUBROYTINE 
f 


' 

NUMOUTE JSR 
MOV 
BR 


' 
1 
U 
U 
4 
4 
) 
U 
N 


UMSGNY MOV 
400 
usr 
MOV 
TST 
BEO 
PL 
aod 
BNE 
CLR 
BNE 

NUMFIXE TST 

BPL 
NEG 
Byc 
MOV 
CLR 

NUMNEGI MOV 

BR 

NUMPOS} 

LFNOF 

CMP 

8E0 

+ENOC 


MOV 
NUMPRS| JSR 


NUMSTTE 
MOV 
CLR 
MOV 
GNE 
MOV 
TST 
BNE 
MOV 
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80472 
177600 
980200 


245000 


298084 
177220 


208004 
172324 


280904 
959900 
884250 


(50000 
004900 


ogog06 


177760 


ySk 
RTS 
NUMFLT1 MOV 
ASL 
CLRB 
SWAB 
suB 
gic 
81s 
NUMSHF TS 0EC 
as 
ROL 
NUMNORMI8{T 
BEQ 
TsT 
acT 
ase 
ROR 
aSR 
ROR 
ase 
ROR 
ase 
ROR 
aco 
JSR 
oEec 
8R 
NUMBIG) CMP 
BLE 
NUMOIVE JSR 
INC 
BR 
NUMALNE INC 
ASR 
ROR 
NUMOK} CMP 
BLT 
CMP 
BHIS 
a00 
acc 
ING 
CMP 
BLO 
MOV 
CLR 
INC 
NORNOOVEMOV 
NUMDIGt MOV 
Swas 
ROR 
ROR 
ROR 
BIC 


CALLED 8Y JSR PC,NUMOUT 

OUTPUTS AN UNSIGNED NUMBER FROM THE FAC 
Via THE SUBROUTINE PUTCHAR, 

R>,SAVREG 

#PUTCHAR, RY 

NUMSTT 


eee ei in i ee en nnn te none 


‘NUMSGNI SUBROUTINE 


CALLEQ BY JSR PC,NUMSGN 
SWORD OUTPUT 
WHERE OUTPUT IS THE OUTPUT ROUTINE, 
WHICH MAY BE PUTCHAR OR SAVCHAR, 
OYTPUTS A SIGNED NUMRER FROM THE 
FAC VIA THE OUTPUT ROUTINE, 
@(SP),RO 
#2, (SP) 
RS, SAVREG 
RB RL 
FACS (KS) 
NUMF IX 
NYMPOS 
#109008, F ACLCRS) 
NYMNEG 
FAC2(KS) 
NUMPOS 
FACQC(KS) 
NUMPOS 
FAC2(K5) 
NUMNEG 
#44008,FACL(RS) 
FAC2(RS) 
ate, RO 
NQMPRS 


SNOSTK 
RL, #SAVGHAR 
NUMSTT JOON/T OUTPUT BLANK FOR STRS 


#81,,Rb 
PC, (RA) 


FAC2CRS) yR4 1R4 ® LOW ORDER MANTISSA, 
R2 yR2 2 DECIMAL EXPONENT, 
FACLCHS) RI RZ = HIGH ORDER MANTISSA, 
NUMPLT 

#37, RO jRO = BINARY EXPONENT, 

R4 : 

NUMSHFT 

#10,R6 


pgs the 


R3,RO 

RO 

RO 

RO 
#474, KO 
#177600, R3 
#200,K3 
RO 

RA 

RS 

R3, 840000 
NUMSHFT 
RB 

NUMBIG 

RS 


#4,R0 
PG yMPYTEN 
R2 


NYMNOKM 
RO, a4 
NYMOK 

PC, DIVTEN 
RZ 


NYMNORM 
Re 

R3 

a4 

RO, 84 
NUMALN 

RS, #50008 
NUMOLV 
#2250,R4 SROUNDING, 
NQRNOUV 

RS 

RS, #50000 
NORNDOV 
#4000/R3 

Re 

R2 

#6,RO 
R3,0(SP) 
(SP) 

«SP) 

(SP) 

(SP) 
#177700, (SP) 


\l 


ree) 


Se 
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4479 
4480 
4481 
4482 
4483 
4484 
4485 
4486 
4487 
4488 
4489 
449g 
449. 
4492 
4493 
4494 
4495 
4496 
4497 
4498 
4499 
4508 
4504 
4502 
4503 
4504 
4595 
4506 
4507 
4508 
4509 
4312 
4511 
4512 
4513 
4544 
4545 
4516 
4517 
4518 
4549 
4328 
4521 
4522 
4523 
4524 
4525 
4526 
4527 
4528 
4529 
4530 
4531 
4532 
4533 


BASICL 


4534 
4535 
4536 
4537 
4338 
4539 
4548 
4541 
4542 
4543 
4544 
4545 
4546 
4547 
4548 
4549 
4550 
4551 
4552 
4553 
4554 
4555 


MACXL1 


316332 
916336 
916342 
316346 
016350 
816352 
016354 
016360 
916364 
916366 
916379 
816374 
016376 
9164098 
916402 
016486 
216419 
216414 
016416 
016428 
016422 
016424 
0164398 
846432 
816436 
816449 
916442 
016446 
016450 
016452 
016456 
016462 
016464 
816466 
916470 
816472 
016474 
916508 
016582 
816504 
016519 
816512 
816516 
016520 
816524 
916526 
3165352 
816534 
016536 
046549 
016542 
816544 
816546 
6165590 
016552 


MACXLY 


916554 
216556 
816560 
816564 
216566 
916570 


346572 
816574 
316576 
316602 


veed 


262716 
242783 
2B4767 
205300 
883364 
810633 
362783 
720227 
402404 
201446 
920227 
302453 
014308 
04741 
012720 
084712 
212704 
214300 
OO4741 
205304 
383374 
812729 
eO4721 
012700 
695702 
199803 
912700 
005402 
984744 
012700 
162702 
188422 
285200 
280773 
204741 
610208 
262700 
204741 
200435 
912700 
304711 
212706 
204742 
212704 
228609 
822927 
362802 
4BS304 
288773 
020402 
ag3ee2 
910204 
995204 
385292 
985202 


ve2s 


385362 
201003 
212730 
004742 
314388 
204741 


385304 
303367 
262736 
280207 


22eMARe73 


230060 
174900 
177078 


ooge14 
177776 


380006 


880036 
oeee05 


396125 
800053 


998855 


990860 
og8012 


opeg72 


o99856 
ogeseo 
TITTY 
ogegeo 


22eMARe73 


888856 


rego14 


16185 PAGE 6802 


NUMFMLI 


NUMLPSE 


NUMFM21 


NUMF MS} 


ado 
Bic 
JSR 
oec 
aGT 
MOV 
400 
CMP 
BLT 
BEO 
CMP 
BLY 
MoV 
JSR 
MOV 
JSR 
“OV 
MoV 
JSR 
oec 
ocr 
Mov 
JSR 
MOV 
Ts? 
BPL, 
MOV 
NEG 
JSR 
MoV 
sua 
emt 
Ine 
BR 

JSR 
MOV 
aoo0 
Jsr 
BR 

MOV 
JSR 
MOV 
JSR 
MOV 
“OV 
coup 
BNE 
oec 
ar 

CMP 
8GT 
MoV 
INC 
TNC 
INC 


16185 PAGE 6803 


NUMLPS] 


NUMEXITE 


SAVCHARI 


oEc 
BNE 
“OV 
usr 
MOV 
JSR 


oec 
act 
aoo 
ATS 


epFNOF 


JSR 
MOV 
MOVE 
MOV 
TNC 
RTS 
ENO 


#18, 09P) 
#474900,R5 
PC, MPYTEN 
RO 

NUMOIG 
SP,R3 
244,R5 
RZ, 802 
NUMFM2 
NUMFM2 
R2,86 
NUMFMS 
(RS) GRO 
PG, (RL) 
at, RO 
PC,CRR) 
#5,R4 
(RSD GRD 
PC,(R2) 
R4 


NUMLPS 
ERB 
PG, CRI) 
81o,RO 
R2 

1*48 
Hta,RO 


R2 
Pasta) 
#16,Ro 
#42,R2 
1*6 

RO 

het 
PG,CRS) 
R2,R8 

st Ge12,R0 
PG, (RY) 
NUMEXTT 
aly RO 

PG ACRYL) 
#f0,RO 
PC, (RA) 
#6,R4 
SP,RO 
CRAY HED 
106 

R4 

2948 
R4,R2 

%6 

R2,R4 

R4 

R2 

R2 


R2 

1°40 

wt RO 
PC, CRA) 
(RS) ERB 
PC, Rd) 


R4 
NUMLPS 
#44,5P 
PC 


SNOSTH 


R9,SAVREG 
TZURS URL 
RO, (RLS 
RL, T2ER5) 
TACRS) 

eg 


SASICL 


4556 
4557 
4958 
4559 
4560 
4561 
4562 
4563 
45604 
4565 
4566 
4567 
4566 
4569 
4578 
4574 
4572 
4573 
4574 
4575 
4576 
4577 
4578 
4579 
4580 
4581 
4582 
4583 
4584 
4585 
4586 
4587 
4588 
4589 
4590 
4591 


BASICL 


4592 
4593 
4594 
4595 
4596 
4597 
4598 
4599 
4608 
4601 
4602 
4603 
4004 
4605 
4606 
4607 
4008 
4609 
4610 
4611 
4612 
4615 
4614 
4615 
4616 
4617 
4618 
4019 
4629 
4621 
4622 
4623 
4624 
4625 
4626 
4627 
4628 
4629 
4630 
4631 
4632 
4633 
4634 
4035 
4636 
4037 
4638 
4639 
4640 
4641 
4642 
4043 
4644 
4645 
4646 


MACX11 


216604 
016618 
816612 
816616 
916622 
916624 
816630 
016632 
016636 
916642 
916644 
916650 
816652 
016656 
916662 
816664 
816666 
816678 
916672 
016674 


MACXL2 


316676 
616702 
816786 
16712 
316716 
216728 
316724 
316730 
816732 
916736 
316740 
816744 
316746 
916750 
916752 
916754 
916760 
316762 
016766 
916778 
616772 
916776 
217200 
917004 
317012 
917316 
317022 
317024 
217026 


817030 
3172332 


17034 


Veet 


812722 
811246 
212722 
916123 
285203 
920363 
101422 
916103 
020363 
084412 
3820361 
301427 
120071 
310364 
812622 
300243 
280227 
322612 
280264 
380207 


V@2i 


204567 
212746 
285275 
105765 
201402 
380167 
126524 
281023 
195765 
201032 
716401 
205784 
204022 
C6504 
C2222 
384767 
193097 
204767 
385316 
301371 
105064 
280422 
195064 
242774 
205265 
195761 
281810 
085726 
200207 


388128 
121326 


24352 


22eMARe73 161085 PAGE 61 
iy 
} PUTBYT © PUT BYTE INTO RING RUFFER 
° f 
y CALLE MoV COUFF, HOR, I,RE 
' MOV CCHARD,RO 
, vSR PC,pureyT 
' 
1 USES RBWRLRZRS 
' 
AISE prlgalry SINCE rHIs MAY BE CALLED Ar 
i RA AINSTREGH, Buy ACCESSES POINTERS THAT MAY CHANGE AT 
> ~~ INTERYPT LEVEL, 
} REYURNS WITH °C! BIT! CLR IF AYYE GOT IN 
' Se’ IF 80 ROOM 
’ 
7776 PUTBYTI MoV #PS,RE 
uy = nov (R22), e(SP) sSAVE STATUS 
088540 MOV #PR7,(R2) pREPLACE WITH HIGHEST 
AOORLO MOV BPUT(RL) RS 
INC RS JCANNIOATE FOR NEW POSITION 
oogove CMP RS, BENO( RL) yNEED TO WRAP AROQUNO? 
BLOS NOWRAP 
90808 MOV BSTRTCRL) RS VYESt NEW POS, aT TOP 
908004 NOWRAP} CMP RS, BGETICRY) yIF FQUAL TO EITHER GET PTA,, 
BE0 NOROOM 1 THEN NQ ROOM 
280006 cme RS, BGET2CR4) 
80 NOROOM 
090018 Move RO, @BPUT(RY) 
280019 MOV RS, BPUT(RI) sUPOATE PTR, 
MOV (SP) e9(R2) SSTATUS BACK 
cue ISIGMAL SUCCESS 
RTS PC 
NOROOM! MOV (SP), (R2) STATUS BACK 
‘ sec HSHOK FAILURE 
RTS (44 
22eMAR973 16185 = PAGE 62 
’ 
} PUTCHAR © PUT CHAR To CURRENT AUTPUT DEV, 
’ 
} CALLE (LOAD ODEV(RS)) 
’ Mov CCWARI,RO 
’ JSR PC,PUTCHAR 
’ 
}) SAVES ALL REGS, 
' 
}) TRIES To FIT CHAR INTO PROPER BUFFER, GoES To IQWAIT ON 
, FAILURE, 
' 
000160 PUTCHARIJSR Rd, SAVREG 
047777 MOV #47777, 0(5P) sIMIT TIME OUT COUNT 
6a0054 INC @COLUMN(RS) 
880106 TST8 CNCFLG(RS) 
BEO PUTCCU 
162152 JMP READY 
200876 Purccor MOVB ODEV(R5),R4 HOUTPYT DEVICE CODE 
BNE WORSTUP y1F NOT TTY, CONTINUE 
090107 TST8 CNOFLGCRS) HCHECK FCR /90¢ 
_ BNE ouTeie VIF SET EXIT IMMEDLATELY 
017030 WORSTUPIMOV TABL CRS), RG 
TST R4 WHICH DEVICE? 
8NE PUTIT yNOT TTY 
400 RO,RL JNEE" CURR, USER'S BUFF, 
MOV CRO) ARYL yNOW, ACTUAL HEADER 
177624 PUTITy JSR PC, ,PUTBYT 
acc LTSIN 
175524 JSR PC, LOWALT INO SOOM! WALT 
bec (SP) HTIME AUT 
BNE PUTST 
agoe12 CLRB BFSPECIR1) 
8R DEVERR 
aeso12 ITSING CLRB BFSPEC (RA) 
920108 017036 Mov #LOB,PTABZCR4) JENASLE INTERUPT ON CHOSEN DEV, 
800978 tNC RNOCT (RS) 
aeoo12 TSTB BFSPEG(RL) 1170 EPROR? 
BNE OEVERR 
oufesa: TST (SP)> sPOP TIME OUT COUNT 
RTS PC PRESTORES REGS, AND RETURNS 


f 
} AOL © DEV, BUFFER HORS, (PHO Is nFFSET INTO USRAREA 
} FOR ADDR, TO TPRTR, BUFF, HDR) 


’ 

rAgai + TPHO 
,IFNOF $NOPTP 
+ PPBFHY 
+ENOC 
LIFOF SNOPTP 
a 
1ENOC 


1UFNOF SNOLPT 
e .PBFHU 


BASICL 


4047 
4048 
4049 
4658 
4651 
4652 
4053 
4654 
4055 
4656 
4657 
4058 
4059 
4668 
4061 
4662 
4663 
4064 
4065 
4666 
4667 
4068 
4069 


BASICL 


4678 
4071 
4672 
4073 
4674 
4678 
4676 
4077 
4078 
4079 
4688 
4081 
4082 
4683 
4084 
4685 
4686 
4687 
4688 
4689 
4698 
4091 
4092 
4093 
4694 
4095 
4696 
4697 
4698 
4699 
47238 
4701 
4702 
47983 
4704 
4705 
4706 
4707 
4708 
4709 
4710 
4711 
4712 
4713 
4714 
4715 
4716 
4717 
4718 
4719 
4720 
4721 
4722 


MACKLL 


817936 
017848 
017042 


817044 
917046 


347054 


MACX11 


017052 
817854 
817062 
847064 
817866 
017078 
317072 
017074 
817076 
947182 
O171284 
317106 
947110 
317112 
17114 
B17116 
317128 


317122 


417124 
317132 
317134 
447149 
917142 
317146 


Veet 


177564 
177554 
177544 


300884 
B47104 


VO2i 


211646 
412766 
410446 
010346 
710246 
#10146 
919046 
18546 
316695 
804736 
712608 
312601 
942602 
312623 
342604 
312605 
A90207 


289892 


312765 
305231 
122127 
201402 
400167 
980207 


22eMARe7S 16185 


122 


22eMARW7S 16885 


017122 sgooe2 


eeoo14 


177775 §=880830 
908261 
172502 


PAGE 62"% 


sENOC 
a IF OF SNOLPT 
,ENOC 


5 
} YAB2 © DEV, STATUS KEG, 


J 
TAB21 


OEVERRE 


Comores vocencsocages 


o TPS 

+ PPS 

o LPS 

To? 

vIFNOF SUONGER 
sASCIL = \ONRN 
ENC 


FOF  SWONGER 

iscrt stevie NOP READY 
"ENDE 

‘ayTe 2 

VEVEN 

\E0T 


PAGE 63 
SOURCE FILE #8 


qQuenqcenedencccccc ewes ceccccesccercoseces 


SAVREG # SAVE ALL REGISTERS 


HES ALL REGS, AND EXITS WITH ADDR, ON STACK 
rn ou BRINGS CONTKOL BacK WHEN SUBR. DOES ¢*RTS 
THEN, RESTORES REGS, AND DOES (RTS PC! WHICH RETURNS TO JUST 


' 
5 
‘ 
J 
4 
CALLE 
4 
‘ 
' 
' 
‘ 
' 


AFTER CALL TO INITIAL SUBROUTINE (MODIFIED BOWERING SPECTAL) 


CvSR PG, SUBR,) 
Jsr R5,SAVREG 





Wat 
i Git Mov (sp),e¢sp) 
t 
a ¥BV wINTEXT,2¢8P) 
SAVREG) MOV R4,0(SP) 
MOV R3,0(SP) 
MOV R2,0(SP) 
MOV RE, 0(SP) 
MoV RB, e (SP) 
MOV R5,e(SP) 


JSR PC, @(SP)> 
RESREGE MOV (SP) oe, RO 
MoV CSP) ) RE 
MOV (SP) o,R2 
MOV (SP)o,R3 
MOV (SP)+,R4 
MOV (SP )e)R5 
J 
INPEXT] RTT 
‘ 
J 
} SCANPNO @ SCAN TOKEN For ‘af 
y 
) CALLE MoV CPTR, TO BYTE BEFORE f#! TOKENI,RL 
i] JSR PG, SCANPND 
J 
)  YSES RL 
' 
SCANPNOIMQY #, SCALAR, LINENG( RS) 
INC RL 
CMPB (RY) o, #, POUND 
8EQ PNOGO 
JMP ERRSX9 
PNOGOS RTS PC 


RTS PG sBACK TQ CALLER OF INIT, SUBP, 


poee scene geen een e renew eng seen cece ences ener ecesenteesnseoccces 


MUST CALL SAVREG From SuBRTM, 


}FOR RETURN TO SUBR, 
MOV 12), (SP) )R5 1GET OLO RS 
sSTACK NEXT LOC,! 


BASJCL MACX11 vO2s 22eMARe73 16185 PAGE 64 


4723 PIII rire rere rrr triers 
4724 J SUBROUTINE 'SKIPEOR! CALLED BY JSR PC 
4725 ' MOVES R41 PASY THE NEXT 1 EOL! 
4726 ’ R@ UNUSED 
4727 f R4 MODIFIED TO REFLECT OPERATION 
4728 ' R2,R3.R4,R5 UNUSED 
4729 4 SP GOES NO OEEPER AFTER VSR 
4738 917150 262701 290003 SKIPS) AOD #3,R4 
4731 317154 «205201 SKIPA2) INC RY 
4732 017156 285201 SKIPOLt INC Rt 
4733) 017168 195721 SK{PEOLITSTB CRLYo 
4734 017162 302375 8GE SKIPOS 
4735 817164 124127 090374 cMPB eGRa #,FEIT 
4736 817172 381767 Bea SKIPES 
4737) 847172 «191034 BHI SKIPHY 
4738 917174 122127 ago2e2 cMPB (RL) O98, EOL 
4739 017200 201429 BE0 SKIPRTS 
4740 317202 124127 aa0202 cMPB o(R1),8,FN 
474% 317206 391762 8E0 SKIPRE 
4742 017218 «122127 go0211 cMPB (RY) Oo, 8, NEXT 
4743 947214 304361 BNE SKIPEOL 
4744 947216 862781 990912 apo #12,R2 
4745 917222 2990756 BR SKIPEOL 
4746 ’ EITHER ,TGITL( 375), VILIT2C376) OR , TEXT(SI7) 
4747 617224 «122127 298376 SKIPHI1 CMPB CR) w, ILET2 
4748 037230 004752 BEQ SKIPo2 
4749 917232 193754, BLO SKIPOL 
4750 317234 105721 SK{PTXTITSTS (RY )+ 
4754 817236 381376 BNE SKIPTXT 
4752 917240 «290747 BR SKIPEQL 
4753 317242 390207 SKIPRTSIRTS PC 
4754 
4755 
4756 
4757 J pc cwec ccc cece screw ccew ena sen sence seseessssecsocce 
4738 §  'STOVAR! SUBROYTINE 
4739 } CALLED BY JSR PC,STOVAR 
4768 H STORES FACd, FAC2 IN THE VARIABLE OR 
4762 ' ARRAY ELEMENT LAST ADDRESSED BY THE 
4762 4 SUBROYTINE /GEFVARE 
4763 917244 «316502 aeave2 STOVAR} MOV VARSAV(RS) ,R2 
4764 
4765 ,IFNOF SNOSTR 
4766 CMP (R2),#,SVAR 
4767 8Eo ERRMX7 
4768 »ENOC 
4769 
4770 017258 236509 ogene4 Mov SSISAV(RS) RO 
4772 817254 «100485 aM! STONOSS 
4772 847256 216503 og80z6 MoV SS2S4V(R5),R3 
4773 847262 «404767 «175332 ysr PC, LOGGET 
4774 317266 290404 6R STOCOMM 
$775 647270 922227 177775 STONOSS! CMP (H2))8, SCALAR 
4776 027274 «704404 BEO STOCOMM 
4777 017276 3114202 MOV (R2) M2 
BASICL MACX22 VO2L 22eMARe73 16185 PAGE 64e4 
4778 917388 016522 999040 STOCOMMIMOV FACL(KS), (R206 
4779 917304 216512 se0042 mov FAC2(R9), CR2) 
4780 917319 290207 RYS PC 
4781 
4782 vTFNOF = SNOSTK 
4783 ERRMX74 UMP ERRMIX 
4784 sENDC 


4785 


BASICL 


4786 
4787 
4788 
4789 
4798 
47914 
4792 
4793 
4794 
4795 
4796 
4797 
4798 
4799 
4608 
4001 
4802 
4603 
48e4 
4805 
4806 
4807 
4808 
4009 
4610 
4842 
4832 
4813 
4614 
4615 
4816 
4817 
4818 
4619 
4829 
4824 
4822 
4825 
4824 
4825 
4826 
4827 
4826 
4829 
4838 
4831 
4832 
4833 
4834 
4835 
4836 
4837 
4838 
4839 
4a40 


SASICL 


4841 
4842 
4843 


MACKLL 


917312 
427316 
817329 
817326 
917332 
817336 
017349 


MACXLL 


317346 
917352 


ve2s 


095766 
794405 
262766 
700167 
385466 
182373 
412766 


ve2s 


205066 
360765 


22eMAR@73 16185 PAGE. 65 
\IFNOF SNOSTK 


aeg02 
190908 ageoe2 
470836 
ageee4 


044908 ogoge2 


22eMARe73S 16505 


900004 


TOSVARIMOV 
CMP 
BNE 
MOV 
BMI 
MOV 
JSR 

BR 
STOSSNOITST 
cme 
Bea 
MOV 
STQMMCOSMOV 
MoV 
MOV 

aR 
STOVTABIMOV 
MOV 
MOV 
TNC 
sys 
STOVCOMIINC 
BEO 


aod 
MOVE 
SwaB 
Move 
STOSX}| JMP 
ERRMX6 UMP 
sENOC 


Peccccccncnccconwecnccecggecysecesaceseveqeceseese 


*STOSVAR’ SUBROUTINE 


CALLEU BY JSR PC,STOSVAR 
STORES A STRING VARIABLE AS ADORESSED BY 
VARSAV 
VARSAV(RS) RZ 
(R29, 8, SVAR 
ERRMXO 
SS4SAV(RS),RO 
STOSSNO 
SS2SAV(R5),RS 
PG, LOCGET 
STOMMGO 

(R20 

26R2), 808 
STOVTAB 
(R2),K2 
(SPO, RS 

(SP) o,RO 

RO, (RZ) 
STOVCOM 
CSP 2 ORS 
(5P)o,R9 

RO, (RZ) 

R2 


(RS) RZ 

RO 

STOSX HCHECK NULL, STRING 
#2,R0 

AZ,0(KO) 

R2 

R2,0(KB) 

¢R3) 

ERRMIX 


Jeneecccweqocesconocepewcecacpsccesecesovcgecageces 


J 
5 
J 
J 
' 
I 
' 
s 


uastK) TST 

Bea 

400 
AOSTK11 JMP 
SUBINT! NEG 
ave 
MOV 


CLR 
5R 


PAGE 6504 


SUBROUTINE 'SUBSTKf CALLED BY JsR PC 
NEGATES #(SP),2¢SP) THEN CONTINUES IN #AD0STKS 


RU,RL UNUSED 
R2,R3__ DESTROYED 


R4 MODIFIED TO REFLECT STACK USAGE 


RS MUST POINT TO USER AREA 
SP GOES 7? NEEPER AFTER YSR 

2(8P) 

SUBINT 

#1800B0,2(SP) 

AOOSTK 

4¢SP) 

AQSTKY . 

944900,2¢SP) 


4¢SP) 
AOS TKE 


BASICL 


4044 
4845 
4846 
4847 
4848 
4049 
4859 
4852 
4852 
4853 
4654 
4655 
4856 
4057 
4858 
4659 
4860 
4861 
4662 
4863 
4864 
4865 
4866 
4867 
4668 
4669 
4879 
4874 
4872 
4873 
4a74 
4875 
4876 
4877 
4878 
4879 
4680 
4881 
4882 
4883 
4884 
4085 
4886 
4687 
4688 
4089 
4899 
4691 
4892 
4893 
4894 
4695 
4896 
4897 
4898 


BASIC 


4699 
4989 
4901 
4902 
4903 
49064 
4905 
4906 
4907 
4908 
4909 
4916 
4911 
4942 
4913 
4914 
4945 
4916 
4917 
4918 
4949 
4920 
4924 
4922 
4923 
4924 
4925 
4926 
4927 
4928 
4929 
4938 
4934 
4932 
4933 
A934 
4935 
4936 
4937 
4938 
4939 
4940 
4944 
4942 
4943 
4944 
4945 
4946 
4947 
4948 
4949 
4950 
4951 
4952 
4953 


MACX11 


817354 
817369 
917362 
017366 
017378 
947374 
817376 
917409 
017402 
917406 
017412 
947414 
847429 
917422 
017426 
017439 
017434 
917436 
017442 
017444 
917458 
817452 


017456 
917462 
247466 
347478 
047474 
817476 
317502 
017504 
317506 
017510 
B17512 
047524 
017516 
317520 
047522 
017524 
017530 
947532 
017534 
017548 
047542 


MACXA4 


917544 
017546 
017559 
017552 
047554 
017556 
017562 
317564 
817578 
017572 
817576 
917629 
217604 
817626 
17612 
017614 
917628 
817622 
817626 
8176352 
917636 
817649 
817642 
317044 
817646 
917652 
017654 
317656 
917668 
017662 
817664 
9176790 
217672 
217676 
617709 
217704 
017796 
917710 
@47714 
017716 
847722 
217724 
017726 
247732 
347734 
247740 
917742 
317746 
817759 
847754 
317756 
017768 
917762 
317766 
817770 


VO2a 


916502 
240202 
122127 
801375 
016500 
124149 
922102 
984375 
305065 
122927 
904775 
124927 
881803 
112711 
280207 
121027 
901406 
124927 
103405 
121927 
191902 
880157 


042704 
124927 
103405 
121927 
184902 
912704 
940703 
260403 
810832 
122223 
904776 
124324 
180414 
904559 
205302 
122227 
204767 
885322 
122327 
284763 
195723 


voas 


188376 
300757 
HOS302 
218220 
119424 
120427 
901549 
120427 
704464 
120427 
2845¢5 
129427 
284483 
120427 
204273 
122704 
381482 
12704 
862704 
112724 
220120 
103076 
121924 
881425 
121027 
081415 
112023 
280774 
105924 
399229 
120427 
801423 
112721 
000641 
112721 
909636 
105923 
422711 
810182 
124227 
284375 
110412 
112742 
300227 
122927 
904775 
124927 
193444 
124027 
101806 
112002 
286382 
162702 
110221 
200604 


22eMARe73 


gaeeee 
800015 
BOBOL6 


308056 
800040 


890825 
899202 
900856 
000068 
O80071 
288032 


160709 
@88101 


8801352 
168772 


980040 


080040 


22eMARe73 


900228 
060262 
o90211 
808257 
990256 
900257 
800252 


177570 
080377 


980815 


080047 
280256 
090257 


8oe2ba 
900377 


908377 
090040 
090101 
990152 


200208 


16105 = PAGE 66 


| gevccncnesecegeecancqeceqae 


* RAN! SUBROUTINE 


' 
j 
' 
4 
) 
5 
, 
U 
4 
| 
? 


RANt = MOV 
MOV 
CMPB 
8NE 
MoV 
MOVE 
cmMP 
BNE 
TRANLUPICLR 
TRANVARICMPB 
sea 
CMPB 
BNE 
MOVe 
RTS 
TRYNUM| CMPB 
8eo 
CMPaS 
BLO 
curs 
BHI 
NUMJMP{ MP 


TRYKWO} MOV 
cMPa 
BLO 
CMPa 
BHY 
MOV 
COMTABI MOV 
TRNPCt 400 
TRYAGNE MOV 
REPRY] = CMPB 
8EO 
MOVE 
BMI 
BEQ 
vee 
cuPa 
BEQ 
oec 
CMPB 
BEO 
vs78 
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aPL 
8R 
AMATCH} OEC 
MOV 
MOVB 
CMPB 
5E0 
CMPB 
BES 
CMPB 
REO 
CMPB 
BEO 
CMPB 
ANE 
QUOTPAKICMPB 
BEO 
MOV 
Aa00 
MOVB 
CMP 
BHIS 
STOSTRi CMPB 
BEQ 
CMPB 
80 
MOVE 
8R 
ENOQUOTICLRB 
INC 
CMPB 
BEG 
MOVe 


BR 
ENOSQUOIMOVB 
BR 
ENOCRE CLRB 
MOVB 
MOV 
cMPS 
BNE 
MOVE 
MOoVB 
ays 
TRNFNE = CMPB 
BEO 
CMPB 
BLO 
cMPs 
BHI 
MOVB 
aS 
sus 
MOVE 
aR 





CALLEQ BY JSR PC, TRAN 

TRANSLATES FROM INPUT ASCI! CODE 

TQ INTERNAL COOE, CONSISTING OF TOKENS, 
LINE NUMBER REPERENCES, SYMBOL TABLE 
REFERENCES, ANDO LIVEPALS, ALWAYS RETURNS, 
NQ MATTER WHAT IS INPUT, 

AS NEW SYMAOLS ARE ENCOUNTERED, BUILOS NEW 
ENTRIES INTO THE SYMROL TABLE, 

ERRORS ARE TRANSLAYEN 70 Cy TEXTy.44) 
LINE( KS) ,R2 

R2, RL 

CREO ACR 


04 

CODE(R5), Ra 

OFR4)yeCRBY 

RYARZ JR? 1S WHERE ORIGINAL TEXT IS, 
104 SR4 1S WHERE TRANSLATED TEXT GOES, 
TAGRS) SPREVIOUS ITEM WASN/T A VAR, : 
(RB) oO, #8L 

TRANVAR 

#(RB),aCR 

TRYNUM 

#, EOL, ¢Rt) 

PG 


(RO) ME, 
NUM MP 
(RO), 818 
TRYKWO 
(RG), 8t9 
TRYKWO 
TSNUM 


#KEYWOSeTRNPCIRG 

(RO) OA ICHECK ALPHA KEYWORDS 
COMTAB «4780 LOW 

(RO), wt2 

COMTAB 1700 HIGH 
@KEYAGTRNPE,R4 = 4 JUST RIGHT 
PCRS 

R4,RS pADORESS TAGLE 
RB,R2 

CR2)O, (RS) oO 

RETRY 


o(R3),R4 
AMATCH 
NOTKWO 

RB 

(R276) eBL 
RETRY 

Re 

(R3)o, 884, 
RETRY 
CRS)O. 


182 

TRYAGN 

Re 

RZ,RO 

R4,(RL 0 
R4,8,KEM 
REMPACK 
R48, FN 

TRNEN 
R4,8,NEXT 

NEXF IDG 
R4,0,SQU0T 
QUOTPAK 
R4,2,00V0T 
TRANLUP 

#, SQUOT,R4 

166 
atMal te, SQUOTIRG 
site, SQUOT,R4 - 4arr 
a, TEXT, (RE }e ae ad 8 Os 
RL, RO 

ERRTRN 

CRB), Ke HSAME AS INITIAL QUOTE CHAR,? 
ENOQUOT 

(RO), #CR 

ENOGR 
CRO) HP CRADS 
STOSTR 

(Ro jye 

RO 

Ra,ert 

ENoOSOYO 

#, OQUOTE, (R1)+ 
TRANLYP 
B,SQUOTE, (Ride 
TRANLYP 

CRA)e 

# EOL a (RL) 
RY,R2 

o(R2),8, TEXT 
a4 


Aa, (R) 
#, TEXT, 0 (RO) 
Pp 


(ROO) wBL 
aa 

e(RO) pata 
TRPNBAD 
(RO), #be 
TRENBAD 
CRO) ORE 
R2 


thet dea, RO 
ROa (RI 
TRANLYP 


ee 


BASICL MACX11 Ve2t 220eMARe73 16185 PAGE 6602 


4954 347772 112748 990116 TReNBABIMOVA BIN, @(RO) 
4955 917776 112749 290106 Move etF,o§ Ra) 
4956 d20002 385304 oee Ri 

4957 920094 220100 CMP RY, RO 

4958 920906 104013 BHI ERRTRN 

4959 o28810 100425 BR REMPACK 

4960 920912 920128 NEXFILUSCMP RL,RO 

4961 920014 103010 BHIS ERRTRN 

4962 020016 105021 CURB (Ri) 

4963 920020 105911 cLRe (Rd) 

4904 329822 762721 00011 400 e14,R2 

4905 920026 20100 cmp RL, RF 

4966 920039 193002 BHIS ERRTRN 

4967 920032 1001607 177344 vMP TRANLUP 

4968 9829936 100167 090266 ERRTRNG UMP ERRTR? 

4969 920042 121027 200132 NOTKWOT CMPB CHO), we 
4972 9029046 101026 AMS REMPACK 

4973 320050 1214927 900101 cMPB CRO), BEA 
4972 020054 103483 BLO REMPACK 

4973 320056 205765 ogaose rsT TAERS) $2 VARS IN A ROW JS AN ERROR SO DONT 
4974 G20062 994415 seq - Svar WWASTE SYMBOL SPACE ON IT, 
4975 920064 112724 900577 REMPACK 1 MOVE a, TEXT, CRAYe 
4976 920979 020100 cmp RL,RO 

4977 920872 103361 BHIS ERRTRN 

4978 929074 121927 900015 STOTXT? CMPB (RO), SCR 
4979 220108 104402 BEO GARRET 

4980 920192 112924 MOVE (RODS, (RID * 
4984 820104 2900773 8R STOTXT 

4982 020106 195924 CARRET} CLRB (RY)4 

4983 320110 112711 200201 MOVE #,EOLa (RL) 
4984 920114 200207 RTS PG 

4985 320116 112002 ISVARE MOVE (RO) O)RZ 
4986 829129 122027 s80048 curs (RO)O, #8l, 
4987) 020124 901775 BEQ 104 

4988 920126 124027 909071 cMPB o§RO) yard 
4989 320132 101996 SHI NODIGIT 

4999 920134 121927 000060 curs (HO) 818 
4991 920148 103403 BLO NOOIGIT 

4992 023142 1090302 Swag R2 

4993 920144 152922 8tse (RO) Op RZ 
4994 920146 989392 Swag R2 

4995 828150 911503 NODIGITIMOV (RB) KS 

4996 920152 122927 agon4e cMPB (RODS) BL 
4997 020156 104778 BEO 194 

4998 920168 905309 DEC Re 

4999 020162 29365 200014 VARSRCHICMP R3,LOFREE(RS) 
5eee 920166 193920 BHts PUTITIN 

590% 020178 324327 177775 GMP CRB), #, SCALAR 
5002 328174 183003 BHIS NOTTT 

5QV3 920176 262703 coeued aoo a4,R3 

5Sg04 920292 290767 aR VARSROH 

5005 020204 162783 opo019 NOTIT: 400 #19, RS 

5906 

5907 LTPNOF = SNOSTH 

5208 cMP wiB(R3), 8, SVAR 
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5009 geo TRYSVaR 

5818 ,ENOC 

501% 

5012 020210 922392 CMP (RS) Oy RZ 

5013 420212 «204363 ANE VARSRCH 

5014 920214 121927 o90044 é cura (RO), 84S 

5015 320228 301766 BEO VARSRGH 

5216 

5017 ,IFNOF SNOSTK 

5018 BR FOUNDY 

5019 TRYSVARICMP (HS), R2 

5020 BNE VARSRCH 

5024 cMPa (RO), 81S 

5022 ane VARSRGH 

5023 INC Ro 

5024 ,ENOC 

5025 

$026 320222 162703 90012 FOUNOV! SUB #42,R5 

5¢27 920226 200415 aR RETVAR 

5028 PUTITING 

5029 LIFNOF = SNOSTH 

5030 400 #14, RS 

5031 CMP RS, LOSTRERS) JMAKE SURE STRINGS ARE NOT THERE 
5032 BLO PYTAOK 

5033 Jsr PG, UPPACK HUF THEY ARE, PACK THEM UPWARDS 
5234 CMP AS, LOSTRERS) yANO TRY AGAIN 
5835 BHIS ERROVE yNO 6000 
5036 PUPAOK) TST a(R3) HRS 1S END OF ENTRY 
5637 ,ENOC 

5038 

5039 vIFOF = SNOSTK 

5040 120230 362703 sgen12 aod 042,23 SADDRESS END OF ENTRY IN R3 
$041 ,ENOC 

5242 

5043 323234 220365 agpur2 CMP RS, HIFREE (AS) 

5¢44 223248 101044 BHI ERROVE 

5845 s29242 a423465 gears MOV RS, LOFREE(RS) 

5046 720246 312243 MOV RZ, 0( KS) 

5247 320258 185843 CLR (RZ) 

5048 027252 205943 CUR 0(R3) 

3049 223254 195943 CUR o(R3) 

5058 320256 212743 177775 MOV #, SCALAR, @(R3) 

5051 

5052 1JFNOF = SNOSTK 

5053 cure (ROD HES 

5054 BNE RETVAR 

5055 INC RO 

5056 MOV @,SVAR,(RSyo 

5057 COM (RS)o 

5258 com CR3)o 

5e59 tom (R3) 

5060 sus #8O,RS 

5064 ,ENDC 

5062 


5863 920262 719565 9090056 RETVART MOV RS, TLRS) SSOMETHING NONZERO, 


BASICL 


5964 
5g65 
5266 
3067 


3066 - 


5269 
5070 
5071 
5072 
5073 
5074 
5075 
5076 
5077 
5078 
5079 
5080 
5084 
5082 
5083 
5084 
5085 
5086 
5987 
5988 
5089 
5090 
5993 
5092 
5093 
5996 
5095 
5096 
5097 
5098 
5999 
5420 
5491 
5492 
5403 
5404 
5105 
5406 
5107 
5108 
5109 
5412 
5143 
5412 
5113 
5114 
5415 
5416 
5117 
5118 


BASICL 


5119 
5128 
5121 
5422 
5423 
5126 
5425 
5126 
5427 
5128 
5129 
5130 
5131 
5432 
5433 
5134 
5435 
5136 
5437 
5138 
5439 
5140 
5442 
5142 
5143 
5444 
5145 
5146 
5447 
5448 
5449 
5458 
5154 
5152 
5453 
5154 
5455 
5156 
5157 
5158 
5159 
5168 
5161 
5162 
5163 
5164 
5165 
5166 
5167 
5168 
5169 
5170 
5171 
5172 
5173 


MACXIL 


020266 
323270 
820272 
920274 
320276 
329309 
320302 
928304 


820310 
328312 
328316 
820322 
920324 
820326 
320330 


O20334 


820337 


820340 
320344 


929350 


828353 


229354 
820360 
920364 
323366 
920370 
829372 
828376 
0209400 
020482 
a20404 
820406 
820418 
020414 
O28416 
920422 
820424 
628426 
828432 
020434 
929436 
920442 


MACX14 


220444 
029459 
320452 
928456 
820469 
820464 
028466 
820470 
020472 
920474 
020476 
820582 
320504 
20510 
329512 
220516 
023528 
820522 
920524 
029526 
8205350 
928532 
820534 
320536 
920549 
020544 
220550 
320554 
920556 
829568 
020564 
822566 
920572 
820574 
920608 
8223682 
220606 
920606 
923612 


020614 


920628 


voes 


164523 
99343 
140324 
280393 
124321 
220100 
101255 
ABGLS7 


819046 
304767 
121927 
AB1946 
812609 
898656 
004267 


846124 


080167 
004167 


952120 


300167 
920327 
104127 
205702 
483404 
304767 
085302 
280767 
981120 
985703 
084116 
422427 
183113 
016503 
885304 
020103 
108452 
124427 
coisa? 
121127 
904444 


Vo2a 


124127 
WO4444 
124127 
201436 
124127 
984433 
295204 
295903 
295704 
902483 
220427 
203083 
112721 
200407 
122721 
388304 
720100 
103018 
119421 
2BO3A4 
119421 
288726 
120120 
184002 
300167 
380157 
200467 
785204 
11503 
328365 
193013 
324327 
183423 
962793 
390767 
224304 
aaiase 
262703 
380762 


362703 


220365 


22eMARe73 


1772376 


830504 
800056 


1754352 
124 


160574 
175216 


162 


160560 
944650 


175040 


477775 
990020 


280204 
298205 


22eMARa73S 
908224 
208242 
088277 


968377 
098375 
098376 


176636 
177266 
177576 


090014 
177775 
ageeie 


2080R4 


080004 


900012 


16405 PACE 6604 


RETLNOI SVg 
SWAB 
“Ove 
Swas 
MOVE 
CMP 
BHI 
wee 
TSNUMY 
mov 
JSR 
CMPB 
BNE 
MOV 
BR 
ERRTR7} JSR 
1 UPNOF 
rASCIY 
sENOC 
stFOF 
sASCIT 
sENOG 
BYTE 8 
, EVEN 
MP 
ERROV2} JSR 
a UENOF 
ASCII 
sENOC 
vJFOF 
ASCII 
1ENOC 
»/BYTE B 
EVEN 
JMP 
EXPTENT CMP 
BHI 
TS? 
BLE 
JSR 
oEe 
BR 
EXPNEG) SNE 
1ST 
BNE 
CMP 
BHIS 
MOV 
oe 
CMP 
BLO 
GMPB 
BEG 
CMPB 
BEO 
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cMPa 
8f0 
cmPB 
BEQ 
cMPB 
8EO 
TNC 
CLR 
TST 
SLT 
cue 
BGT 
LITZEROMMOVE 
BR 


MAKET21 MOVE 
LITCOMNE SWAB 
coup 
BHIS 
MOVE 
SWAB 
MAKEOKE MOVB 
TST 
CMP 
BHI 
MP 
TRNER4} JMP 
ERROVS} JMP 
MAKLNOL INC 
MOV 
LNOSRCWICMP 
SHIS 
cMP 
BLO 
apo 
BR 
TSLNOL CHP 
BEO 
00 
BR 
STOLNO! 
LIFOF 
400 
,ENOC 


1, IFNOF 
ADO 
cMP 
BLO 
JSR 
GMP 
BHIS 

STOAOKI TST 
+E£NOC 


CMP 


(R35) KS 
rs 
RS, (NZIS 
R 


RS, (Rae 
RL, RE 
ERRTRN 
TRANVAR 


RB, e($P) JSAVE PTR IN CASE OF BAD NUM 
PC, VAL JFINS MANTISSA AND EXPONENT 
(RO) BF, 

EXPTEN 

(5P)6,Ro 

REMPACK 

RY MSGERR 

SLONGER 

NTLIN 


SQONGER 
"LINE TOO LONG TO TRANSLATE? 


REAOY2 

RY MSGERR 
SRONGER 
\PTa\ 


SLONGER 
'PROGHAM TOO BIG/ 


REAOY2 
RS.914630 
MAKFLIT 

R2 

EXPNEG 

PC, MPYTEN 
R2 

EXPTEN 
MAKFLIT 

RS 

MAKFLIT 
R4,8, SCALAR 
MAKFLIT 
LINE (KS), RS 
Ra 

RA,RS 
MAKUNO 
(4), #,G0SU8 
MAKUNO 
(R4),#, GOTO 
MAKLNG 


CRO) eB CabL 


CRLF LIST 
MAKINO 


MAKFLIT 

RO, 0377 
MAKEL2 
MyILITLe CRi de 
MAKEOK 

wy VIT2e CRA) + 
R4 : 


RA, RO 
TRNERG 
R4,(RLI® 
Req 


R4, (RL) 
(SP)o 

RL, RO 

TRNERS 
TRANLUP 
ERRIRN 
ERRQVE 

Ry 

(AB) RS 
R3,LOFREE( RS) 
STOLNO 
(R3),8, SCALAR 
TSUNO 

#12,A5 
LNOS&GH 
(R3),R4 
FOUNDLN 

#4,R3 

LNOSRCH 


SNOSTK 
#4, R3 


SNOSTK 

#O,R3 JCHECK THAT THE SYMTAB SPACE 
RS»LOSTRIRS) SIS “OT OCCUPIED BY STRINGS 
STOAOK 

PC, UPPACK HIF (7 1S, MOVE STRINGS UP 
R3,LOSTRIRS) SAND CHECK ROOM ENOUGH ARAIN 
ERROVS 

=GR3) SADJUST SYMTAB ADDRESS 


RO, HIFREE(RS) 


Pei” 


BASIC. 


5174 
5175 
5176 
3477 
5478 
5479 
5189 
5181 
5182 
5483 
5184 
5185 
5186 
5187 
5186 
5109 
5199 
5291 
5192 
5193 
5194 


BASIC, 


5495 
5196 
5197 
5198 
5199 
5208 
523 
5202 
5203 
5204 
5205 
5206 
5207 
5208 
5209 
5210 
5211 
5212 
5213 
5214 
5215 
5216 
5217 
5218 
5219 
5220 
5@2k 
5222 
5223 
5224 
5225 
5226 
5227 
5226 
5229 
5230 
5231 
5232 
5233 
5234 
5235 
5236 
5237 
5238 
5239 
5240 
5244 
5242 
5243 
5244 
5245 
5246 
5247 
5248 
5249 


MACX11 


320624 
020626 
828632 
029634 
829656 
920049 
920644 
820646 
820658 
828652 
920654 
020660 
020664 
920666 
920679 
820672 
820674 
929676 
020709 


MACKA1 


ves 


184352 
740365 
305043 
010443 
295726 
300167 
285703 
081002 
295704 
884744 
004767 
122722 
200303 
220109 
193325 
129324 
888303 
119322 
5807¢6 


Vea. 











22eMARe73 16105 PAGE 6606 
° BHI ERROVS 
aooe14 mov RS), OFREE( RS) 
CLR ond) 
MOV R4,0(R3) 
FOUNOLNETST (SP)6 
177422 ump RETLNO 
MAKFLITS Ts’ RS 
BNE CALNRM 
Ts? R4 
BEQ GLTZERO 
174674 CALNRM} SR PC,NOKM 
000374 MOVE =A PLITs (RID 
SWAB RS 
GMP RL,RO 
BHIS TRNER 
Move R3,(RLI6 
SWAB RS 
MOVB RS, (R10 
BR LUT COMN 
22eMARe73 16105 PAGE 67 
vJFNOF = SNOSTK 
[qesewencngcccccesseessecesccetenesesctocses 
1 SUBROUTINE fUPRACK! CALLED BY JSP PC 
' PACKS STRING STORAGE TOWARO HIGH CORFE 
' R®@ UNUSED 
' R1L,R2,R3  PRESFRVED 
’ R4 UNUSED 
’ RS MUST POIVT TO USER AREA 
) SP GOES 1 NEEPER AFTER JSR 
UPPACK} MOV RE, e(SP) 
MOV R2,0(SP) 
MOV R3,0(SP) 
CLR (SP) 
MOV WESTRIRSI ARG 
MOV WEFREECRS) ,R2 
MOV R2,HISTR(RS) 
UPPLOOPICLR (SP) 1GET END OF THE NEXT STRING 
ayse e(RL),¢SP) 
BNE YPPNZKO sCLAST BYTE CONTAINS THE LENGTH) 
UPPBADS CMP. RL LOSTRIRS) 
BHI VPPLOOP 
MOV R2,LOSTRERS) 
1ST (SP)e 
MOV (SP), RS 
MOV (SP)o,R2 
MOV (SP) oy Rt 
RTS Pg 
UPPNZROISUB (SP) ,RY SAPORESS BACK PTR 
CLR RS 
BSB CRY ARS 
SWAB RS 
8186 CRAKS sGET IT IN RS 
SWAB RS 
cece RY 
BIT RS,as HCHECK REL TO SYMBOLS 
aEQ 196 
DEC RS 
apo (RS), RS yYES, ADD BASE OF SYM Yaa 
cMP RS,POLCRS) IMAKE SURE IT#S NOT TOO WY 
BHIS —- UPPBAD 
cMP R3,SP yIN STACK IS OK 
BHIS vPPGooo 
CMP RS,ARKAYS(RS) HIN ARRAYS IS GQ00 
BHI UPPBAD 
CMP RO PHIFREEC RS) HIN FREE STORAGE 1S BAO 
BHI YPPGOOD 
CMP R3,LOFREE(RS) 
BHIS UPPBAO 
cur R3,¢R9) 
BLO UPPBAO sGBELOW SYMBOL TABLE 1S Ba0 
UPPGO0Ds ADD #4, (SP) yGOOM STRING, HOVE IT UP 
cmp CAS) RS 
BNE uPPBAg H(DONCY GARBAGE COLLECT IT) 
400 (SP), Kt 
sue Ri, (RS) 


BASIC. 


$250 
5251 
5252 
5253 
5254 
5255 
35256 


BASIC, 


5257 
5258 
5259 
5260 
5264 
5262 
5263 
5264 
5265 
5266 
52607 
5268 
5269 
5278 
5272 
5272 
5273 
5274 
5275 
5276 
5277 
52378 
5279 
5280 
528) 
5282 
5283 
5284 
5285 
5286 
5287 
5288 
5289 
5298 
529. 
5292 
5293 
5294 
5295 
5296 
5297 
5298 
5299 
5308 
5304 
5382 
5303 
5304 
5305 
5306 
5307 
5308 
5309 
5340 
5314 


MACXL1 


MACX11 


320702 
920704 
220786 
929710 
320714 
020716 
320722 
820724 
920730 
920732 
820736 
920748 
322742 
920744 
320746 
820758 
920752 
823756 
920768 
929762 
020766 
820778 
820772 
820774 
322776 
821928 
824002 
221926 
621018 
21912 
921014 
221920 
g21822 
321024 
821038 
321032 
24036 
321048 
321044 
921946 
321858 
321052 
821856 


321060 
321262 
321066 
824970 
321374 


vee. 


ye2s 


305092 
495903 
005074 
122927 
201775 
124927 
193427 
121027 
101024 
020327 
194405 
2a5290 
@95702 
982764 
085222 
280757 
2046767 
005946 
112026 
162746 
962604 
085503 
205702 
001745 
205202 
289743 
122927 
304026 
205722 
281903 
712702 
280733 
303000 
122927 
304775 
124927 
193405 
121927 
191022 
995209 
082765 
122027 
281409 


395046 
124927 
281056 
320165 
BOL453 


22aMARe73 


22mMARC7S 


080048 
280068 
000072 
014630 


474460 


9o0008 


800856 


190000 


200040 
oengea 


000071 
999056 


980495 
260020 


16185 PAGE 6704 


aoo 
“ove 
bec 
aGcT 
BR 
1 ENOC 


16425 =PAGE 68 


' 
’ 
J 
) 
' 
VALS 
CLR 
CLR 
CLR 
NUDIGITICMPB 
BEQ 
cMPB 
alo 
CMPB 
BHI 
cMP 
BLOS 
INC 
TST 
BLT 
INC 
BR 
CANFIT) JSR 
CLR 
MOVB 
sus 
a0 
aoc 
TST 
sea 
INC 
BR 
NOTDIG) CMPB 
BNE 
TST 
BNE 
MOV 
8R 
DOTROT! BGT 
DOTIGNOICMPB 
BEO 
cmPB 
8L0 
curs 
BH 
INC 


aR 
PASTOOTICMPB 
Bea 
DOTBADy 
NOTDOT] CLR 
CMPB 
BNE 
CMP 
8EQ 


R2y (RZ) 
e(RZpe(R2) 
csr) 

104 

UPPBAQ 


SUBROUTINE ‘VAL? 


CALLED BY JS 
CONVERTS AN ASCII STRING AT (RQ) 





R7 





TQ A VALUE IN R3,R4, ANDO 
AN EXPONENT IN RZ 


R2 

RS 

Ra 
CRO) O, HBL 
104 

CRO) 88 
NOTOIG 
(RO), #E9 
NOTOIG 
RS, #14630 
CANF IT 

Re 

R2 
NUDIGIT 
R2 


NYDIGIT 
PC,MPYTEN 
wo (SP) 
(RO) 6, (SP) 
060, (SP) 
(SP)o,R4 
RJ 


R2 
NUDIGIT 
R2 


NYDIGIT 
(RO)op me, 
NOTOOT 

R2 

oorROY 
#400080,R2 
NUOIG)T 
DOTIGNO 
CRO) 4, #8, 
a4 

(RO) AIG 
PASTOOT 
(RO), 89 
PasToor 
RO 
DOTIGNO 
CRB) Opa, 
OOTBAG 


e(SP) 

OCR) ate 
NOEXPON 

RA LINE (RS 
NOEXPON 


HDEC PLACES+100942 OR TRAILING ZERDES, 
HHIGH ORDER OF 32 B17 INTEGER, 
yLQw ORDER OF S52 BIT INTEGER, 


JIF HIGH WORD GREATER THAN THIS 
ITHEN CANT FIT ANOTHER OIGIT IN 32 BITS, 


JCANT FIT DIGITS IN MANTISSA, BIT ITS 
AFTER POINT SO NEEONT COUNT THEM, 
HCANT FIT OIGITS IN MANTISSA SO MUST 
KEEP TRACK OF TRAILING FEROFS, 


JAMU ADO IN THE DIGIT, 


SFITS IN MANTISSA, 
JFITS IN MANTISSA 3UT AFTER POINT SO 
SCOUNT DECIMAL PLACES, 


sO0OT COMES AFTER SHORT NUMRER SO GET 
VREAMY TO COUNT DECIMAL PLACES) 


HOOT COMES AFTER FULL MATISSA WITH 
STRAILING ZEROES SO IGNORE MARE DIGITS, 


SOOT COMES WHILE IGNORING TRAILING 
HAFTER POINT WITH FULL MANTISSASERROR, 


tNO (El AFTER THE NUMBER 
JTF ITS THE FIRST THING ON THE LINE IT 
IMUST RE A LINENO SO fE4 IS TLLEGAL, 


Seed 


BASICL 


5312 
5313 
5314 
5315 
5316 
5317 
5318 
5319 
5328 
5324 
5322 
5323 
5324 
5325 
5326 
5327 
5328 
5329 
5330 
5331 
5332 
5333 
5334 
5335 
5336 
5337 
5336 
5339 
5340 
5344 
5342 
5343 
5344 
5345 
3346 
5347 
5348 
3349 


BASICL 


535¢ 
5351 
5352 
5353 
5354 
5355 
5356 
5357 
5358 
5359 
5360 
5361 
5362 
5363 
5364 
5365 
5366 
5367 
5368 
5369 
5370 
5371 
5372 
5373 
5374 
5375 
5376 
5377 
5378 
5379 
5380 
5381 
5382 
5383 
5384 
5385 
5386 
5387 
5388 
5389 
5390 
5394 
5392 
5393 
5394 
5395 
5396 
5397 
5398 
5399 
5400 
5404 


MACKXA 


821076 
821198 
21104 
821126 
B21112 
B21114 
321120 
821122 
921124 
821138 
821134 
621136 
322142 
021144 
921150 
821152 
621154 
0214156 
021160 
822164 
921166 
021174 
622176 
821209 
821202 
921204 
21218 
021212 
821214 
B21216 
824222 
821224 
821226 
821230 
824234 
321236 
021248 


MACX11 


021242 
021244 
921246 
021250 
921252 
21254 


821306 
921310 
21312 
821314 
821316 
321329 


821352 
821354 
021356 
021360 
21362 
821364 


vo2s 


285200 
1212927 
804774 
122927 
201406 
124027 
901003 
205200 
312716 
122027 
904775 
124927 
183423 
121827 
101020 
411646 
086316 
396316 
366616 
986316 
942766 
062616 
095946 
112016 
962616 
162716 
380747 
895716 
882903 
942716 
085416 
AB5782 
802983 
442782 
905422 
262602 
499207 


VO22 9 22eNAR7S 


021256 
921325 
821256 
900008 
921256 
999000 
#21256 
921396 
824305 


024322 
824351 
824322 
200000 
821322 
980009 
21322 
821352 
822353 


B21366 
924425 
021366 
200028 
424366 
cages 
221366 
024426 
922425 


22eMARe73 16165 PAGE 6804 
ING RO 
090040 Cupe CRO), 88) 
Bea 106 
880055 CMPB (RO) Oo, ate 
Bea EXPOIG 
ee005s CuPS (RB) Rts 
BNE EXPOTG 
INC RO 
1980008 MOV #309088, (SP) 
98040 EXPOIG) CMPB CAG), BL 
REG 184 
agoneo cMPa (RO), ee 
8,0 EXPOUN 
080071 CMPB (RO), #09 
BHI EXPOUN 
MOV (SP), 0¢SP) 
aS (SP) 
ASL CSP) 
090002 ado 2¢SP),¢SP) 
aS, (SP) 
877777 «=geEEe2 ayc 877777 ,2¢SP) 
aod (SP) 0, (SP) 
CLR =(SP) 
mova (RO)O, (SP) 
400 ($P)4, (SP) 
geese SUB #18, (8P) 
BR EXPOIG 
EXPOUN| TST (SP) 
BGE NOEXPON 
190008 Bye #108000, (SP) 
: NEG (9?) 
NOEXPONITST R2 
BGE ExPOK 
190008 arc #409000,R2 
NEG R2 
EXPOK{ ADO (SP) o,R2 
ars PG 
16105 §=PAGE 69 


4 
} SYSTEM 3/0 BUFFERS ANO HEANERS 
U 


’ 
} pApER 
’ 


PRBFHO} 


PROUF 
PRBEND 


4 
} paper 


' 
PPBFHD} 


PPBUF 
PPBEND 


1[PNOF = SNOPTP 


’ 
} LINE PRINTER 


U 
LPBFHO! 


LPeUF 
tPseno 


TAPE READER 

* pRByF jiBeTRY 
+ PREEND 
WORD PRBUF 
od 8 
»WORD = PROYF 
WORD @ 

s, 

=, eSPROSZ 

8,01 

EVEN 

TAPE PUNCH 

* peour 
e PPBEND 
;WORD = PPBUF 
> a 
WORD = PPBUF 
WORD oo 

, 

8, +SPPBS2 

s,e1 

EVEN 

sENOC 

vIFNOF = SNOLPT 
bd LP8YF 
2 LPBEND 
,WORD =| PBUF 
e a 
WORD LPBUF 
sWORD 

‘, 

©, oSLPBSz2 

aed 

rEVEN 

,ENOC 


1BEND 
sOCETL 
sBGET2 
sBPur 
sOFSPEC 


yOSTRT 
1BFND 
sOCETL 
sBGET2 
sOPUT 
1BFSPEC 


sBSTRYT 
1BEND 
1BGETS 
sBGET2 
s9ryr 
JBPSPEC 


BASICL 


5402 
5403 
5404 
5405 
5426 


BASICL 


ADOINT 
ADOZER 
ALLNOA 
ALOG 
ASSIGN 
BEND 
8, 
BOMBNE 
BPUT 
BUFTP 
CALL M2 
CALLA 
CARRET 
CHKCHR 
CLMNLP 
CLRFRE 
CNCFLG 
COLUMN 
cos 
DEFOUN 
OJMOON 
DIMSCL 
OOCHAR 
DOTBAD 
ECHOSP 
ED] MP 
EOTMVY 
EDIRLC 
EDISKI 
END 
ENOSQY 
EREXP 
ERRAGL 
ERROEE 
ERREXP 
ERRMIX 
ERROV2 
ERRPDS 
ERRRUN 
ERRSXA 
ERRSX4 
ERRSX8 
ERRTR7 
ERSQR 
EVAL 
EXPQIG 
EXPOK 
FF 
FIXCL2 
FLE 
FNCHK 
FNRCOM 
FNRSSC 
FORGOG 
FORNEX 


MACX11 


MACX11 


807438 
937519 
287610 
eneeee 
883222 
988992 
280049 
019862 
089010 
010206 
023122 
803230 
820196 
910224 
809492 
818508 
980106 
908034 
eneres 
802506 
982692 
002462 
o14494 
021060 
000104 
001744 
GA1632 
804700 
001274 
O83254 
917700 
911666 
Gyse12 
004040 
812516 
011650 
020344 
283666 
902634 
12674 
911966 
886234 
820338 
987734 
619616 
821130 
821236 
099014 
8135250 
13276 
843162 
B13144 
843132 
204620 
084412 


Ve2s 22eMARS73 


921426 
Bdagag! 
9oo0ee! 
724426) 
JOaeeL 


Vo2u 22eMARw73 

ADOOVF 

ADSTKL 

ALLOC 

G AMATCH 
ATAN s 
8FSPEC s 
BOMS 
BOMBNX 
BSYRT #8 
CALL 
CALLNM 
CALNRM 
CCEXIT 
CHKISE 
CUMNPP 
CLALOO 
CNOFLG 3 

6 COMGHK 

G COSFN 
DEPGOT 
OJMGOT 
O1VvL00 
OO{TNO 
OOTIGN 
EDICHG 
EOEMME 
EDLOVE 
EDIRLO 
EDISRC 
ENOAB 8 
cor 
ERLOG 
ERRARA 
ERROEF 
ERRFNY 

G ERRNEX 
ERROVS 
ERRPOS 
ERRSSY 
ERRSXY 
ERRSXS 
ERRSXD 
ERRTRB 
ERSTAR 

id EXECUT 
EXPOUN 
EXPTEN 
FILLCH s 
FIXRET 
FLINE 
FNFN 
FNREPL 
FNSWAP 
FORGTL 
FORNOL 


16105 PAGE 78 
ENOAB oy 
rCSECT 
BEGIN 8, 
; 8, eENOAB 
1ENO 
16405 PAGE 7804 
097458 aQOPOS 
817326 ALLEXT 
087556 ALLOCL 
017550 arce 
eeeeen G AYNFN 
809012 BGETS 
807742 BOMBOO 
913082 BOMBOK 
008090 BUFCLR 
003012 CALLCK 
003474 CALLP 
020654 CALOG 
O19322 COMES 
918324 CHKOSE 
900490 CLMNTT 
010442 CLROK 
008107 COOE 
B10336 COMES 
011792 CR 
862550 DELMSG 
082544 OTMLOO 
049564 OLVTEN 
011490 DOMSG 
224024 DOTROT 
201418 EOICON 
824262 EDIMOD 
881436 EDIPAS 
881736 EOIROO 
801390 err 
021426 ENDCR 
803254 ERAOD 
827734 ERPOG2 
887726 ERRARG 
882542 ERROIM 
BB5164 ERRFPY 
805144 ERROVR 
820550 ERRPOL 
842670 ERRPOS 
O43742 ERRSS2 
883178 ERRSX2 
011650 ERRSX6 
@12122 ERRSYN 
906242 ERRUFN 
811666 ERSXio 
202654 EXITa2 
21212 EXPFN 
828360 FACS 
800112 FILLCO 
0135252 FIXTSY 
013254 FULT 
@12700 FNNOCO 
B4seeo FNRLUP 
612724 FOR 
B84568 FORLOO 
024336 FORONE 


007524 
097744 
oo2300 
011650 
a41724 
waeeus 
010014 
019142 
010152 
033070 
0a3nd2 
42644 
087073 
849352 
090056 
012470 
080046 
007076 
oaoa1s 
007200 
wa2254 
019500 
045526 
o24022 
004472 
ooeda 
204340 
go1620 
081400 
047706 
011606 
M1166 
007734 
202534 
eeoece 
011606 
011120 
211404 
811254 
085452 
00404 
041690 
o13e46 
004506 
007404 
842752 
ooaged 
000110 
043230 
811052 
o13024 
013100 
O04134 
094342 
284276 


ADOSTK 
ALLLOO 
ALLOC? 
ARRAYS 
SECIN 
AGET? 
ROMBJM 
SPOL 
AUFEMP 
FALLS 
ALLY 
CANFIT 
CEXP 
CLEAR 
CLRECH 
ALRVAR 
COLo"c 
fOMTAB 
CRLFME 
MEVERR 
AIMNON 
MOALLO 
NOPYT 
FECHORA 
EOIGRO 
EOIMAY 
POLPUT 
FOTSAM 
FOITL 
ENAGUO 
ERCHAN 
FRPOGL 
FRROAT 
ERROLV 
FRAGA 
FRROVY 
FRRPN2 
FRRRET 
FRRSS3 
ERRSXS 
ERRSX7 
ERRTRN 
ERRANO 
FERSX12 
EXP 
FXPNEG 
FAC2 
FILUNO 
PIXUP 
FLY 
FNNUME 
FNRSNU 
FORGO 
FORLTL 
FORSK] 


807370 
397600 
882432 
goon12 
OnGuB4R 
anenge 
910126 
810636 
215442 
20310" 
BA3132 
28752 
012656 
oe1r64 
806732 
810424 
Bo52u6 
G17582 
O87478 
O17"44 
a02z54 
202444 
006262 
907052 
BY1956 
OA1%02 
981434 
0166" 
B01222 
017668 
B10410 
@11762 
O4u642 
o12230 
924046 
go1ei4 
211662 
024126 
O14776 
0137356 
805236 
820436 
gnaags 
910404 
eeaane 
020402 
aagns2 
@OG111 
O13174 
813302 
@131740 
213160 
904622 
OA4972 
O043506 


S 


BASICL 


FORBER 
FPPSAV 
FUNRET 
GETCHL 
GET2BY 
GOTECH 
GSBCTR 
TOEV 
TFL EQR 
TFNUME 
ILyTco 
IMMSTM 
TNPEOL 
TNPNGU 
INPSTO 
INT 
INTS 
INT2A 
uNTS 
TSLNO 
ITABLE 
KBHWO 
KEYWOS 
LEVLIT 
LEV2LT 
WIENDUN 
LINGET 
LITGOM 
LITOK 
LITZER 
LOCLOO 
LOGFN 
LPSENO 
LPINT 
LSTCHA 
LSTFLB 
GSTILa 
LSTLIN 
LSTNEX 
LSTSPE 
MAKEI2 
MAKLNO 
MSGCOM 
NEXENO 
NEXLTL 
NOCNC 
NOQML 
NOROOM 
NOTIT 
NOWRAP 
NUMBIG 
NYUMP IX 
NYMFMS 
NUMNEG 
NUMPOS 


BASICL 


NYMSTT 
010803 
OTABLE 
PC 
PNOGO 
POWUP 
PPBUF 
PRB 
PREC2 
PREOT 
PRI IMP 
PRISEM 
PRITB 
PRNTOE 
PRG 
PUSH 
PYTCCO 
QYOTPA 
READGO 
READY? 
REMPAC 
RETRY 
RNOCT 
HUN 
RISAVE 
RSSAVE 
SAVCHA 
SCANPN 
SJNFN 
SK [PTX 
SLASH 
SPECME 
SS2SAV 
STOCOM 
STOSTR 
STPRO 
S,8102 
TABLE2 
TABL 
TOL 4EN 
TKS 
TPHD 
TRAN 
TRNER4 
TRYECH 
TSTSy 
va 
UAQMP 
VATST2 
UA12B 
UAL? 
UALTF 
UA23 
UAg 
UPARRO 


MACX11 


804576 
813334 
012056 
813452 
013370 
886770 
= 928032 
2 089077 
003472 
003552 
041042 
802232 
086240 
086220 
806136 
014004 
B14074 
844132 
844232 
029692 
19422 


§ 989192 


009404 
044516 
914554 
015540 
B14344 
020516 
915622 
920504 
044730 
011746 


= 821425 


907256 
045200 
915306 
815236 
015154 
845122 
015206 
020512 
0290554 
015476 
085070 
085862 
062672 
086014 
016670 
829294 
016636 
016222 
916024 
916528 
016052 
816060 


MACXi4 


016866 
002136 
018416 
5%000007 
017146 
887340 
s 021322 
8 177552 
911372 
807174 
885452 
905434 
005550 
807036 
= 209208 
014256 
16724 
047644 
086314 
901140 
820064 
017510 
8 909970 
Be2224 
§ 909046 
3 900052 
011658 
617124 
011674 
817234 
011972 
006702 
2 929026 
8173008 
017642 
911658 
806604 
911416 
017038 
882030 
8 177568 
= ongioe 
017354 
820544 
806734 
011624 
2 009056 
812536 
812552 
812342 
012412 
012472 
812690 
612250 
612126 


a 


Veer 


Ve2a 
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FOUNOL 
FRSTOU 
GCWAIT 
GETVAR 
GOEXEG 
Goro 
HORSTU 
IF 
IFLGTR 
IFSEQ 
IQITS 
INI TBF 
INPGOO 
INPOK 
INPYT 
INTEXT 
INTLA 
INtS 
INT? 
TSNUM 
ITSIN 
KBTOUN 
LE? 
LEVPLU 
uF s 


LINE 8 
LINRUB 
LIVOMV 
LITSHA 
LNOSRC 
LOCNO2 
LOSTR #8 
LPBFHO 
LPOFF 
LSTCHK 
STFLI 
LSTIL2 
USTLNO 
LsTPc 
LSTSRC 
MAKEOK 
MINYS 
MSGERR 
NEXF IL 
NEXT 
NODIG] 
NOQUOT 
Nosyas 
NOTKWO 
NOWRP 
NYUMOIG 
NUMFLT 
NUM UMP 
NUMNOR 
NUMPRS 


820636 
915532 
843576 
043604 GC 
ab6216 
003754 
046740 
083316 
803676 
823466 
gi18g4 
843746 
886262 
006384 
805650 
847422 
044106 
o14140 
a44242 
820310 
047098 
886626 
gas2ie 
844514 
o80e12 
gage2e 
944374 
045664 
045674 
820560 
014756 
0eBg72 
821352 
907322 
015074 
015266 
945250 
015350 
915044 
045250 
020530 
011470 
045466 
g20012 
004644 
820150 
840716 
043734 
920042 
843434 
836314 
946422 
@47452 
046154 
916064 


22eMARe73 = 46185 


OOEV = 900076 
OPERAN 040640 
OUTO1B =A 7B24 
POL s 900084 G 
POP 044278 
PPB = 177556 
PPERR 007242 
PROEND ® 921305 
PRECS O11364 
PRUBOT 895336 
PRIMOR 995350 
PRISJ 805506 
PRITBQ 925600 
PRNTOL 025228 
PR? 8 B00S40 
PUSHF B11634 
PUTCHA 916676 
READ 606246 
READOY 906376 
REAFIN 886426 
RESREG 817104 
RETURN 824060 
RNOGOT 282596 
RO 8x000000 
R2 3X000082 
R4 8X000004 
SAVE 082442 
SCRATC 201054 
SKIPEO 047168 
SKIPOL 017156 
SOPRAT 911658 G 
SQRFN 011710 
STAR 021542 
STOLNO 920614 
STOSVA 011650 
SUBINT 817332 
$,0102 986622 
TABLES be2016 
TAB? 017836 
TBLSEN © BL1a92 G 
TPB 8 177566 G 
TPINT 806642 
TRANGY 017492 
TRNFN 047734 
TRYKWO 817456 
TSTs2 11632 
v2 = 900060 G 
UANJMP 012532 
UAd 012152 
YALRC 812352 
UAGTA 812424 
UALY 012510 
UA4 O12202 
UINTEG #11542 
USRARE 8 eseeee G 


FOUNOV 
FUNCTI 
GETOYT 
GETX 
GONOSA 
GOTOFN 
MIFREE 
TF COMP 
TFLLIR 
IFSGY 
WwUT2 
INITSC 
INPLOO 
TNPPC 
INPYES 
INTFN 
INTSB 
INT6 
TOUNT? 
1Svar 
JMPRDY 
KBINT 
LEVFLY 
LEVPOS 
LIMIT 
QINEIN 
LIsT 
LITEVA 
LITSTO 
LOCALO 
LOCSS1 
PAR 
LPaUF 
PS 
LSTCRL 
LSTFN 
UStump 
QSTLNX 
QSTPRO 
LSTTEX 
MAKEST 
MPYTEN 
MSGODE 
NEXGO 
NOCHAR 
NOEXPO 
NORM 
NOTOIG 
NOTNOW 
NUOIGI 
NUMOIV 
NUMFM4 
NUMLPS 
NUMOK 
NUMSGN 


PAGE 7003 


OFF TYP 
OPRATO 
oured2 
POS{ZE 
POWOWN 
PPBEND 
PPINT 
PRBFWD 
PRECS 
PRICM 
PRINCR 
PRISTR 
PRITBL 
PRS 

PS 
PUSHS 
PUTIT 
READBA 
READY 
REASRC 
RESTOR 
RETVAR 
RNOL 
ROSAVE 
R2SAVE 
R4SAVE 
SAVREG 
SETLFE 
SKIPHI 
SKIPO2 
sp 
SORT 
START 
STONOS 
STOTXT 
SUBSTK 
TAB 
TABLES 
TABS 
TERMIN 
TPEN 
TPNXT 
TRANVA 
TRNPC 
TRYNUM 
TYPE 
3 
UATSTA 
UAdo 
VALo,5 
UAL78 
UA2R 
vas 
UMINUS 
VAL 


@2g222 
O44706 
O43374 
o43406 
enens2 
o21126 


= Beee42 


B83542 
803622 
903672 
911024 
843704 
0859736 
065732 
905672 
o12100 
OL4424 
O44100 
281194 
829416 
8033342 
886470 
044542 
014632 


844370 
ee22e0 
044404 
045700 
014654 
644666 
811094 


§ 622396 
2 477534 


015142 
815130 
045342 
045400 
045002 
@45224 
941690 
645436 
0455¢2 
005206 
0434672 
021224 
645594 
621082 
911434 
Hid 
016259 
0363576 
046444 
O16246 
845700 


006700 
044272 
010402 
= 680006 
697330 
® 621354 
087204 
21242 
641356 
605326 
685652 
054676 
085634 
2 177550 
#477776 
244302 
O467D4 
ogesyo 
O81076 
296422 
BO3742 
29202 
= 980064 
= 099044 
= oag0d0 
2 00054 
8417002 
oo7044 
os7224 
O47194 
8K000086 
Ss Geease 
083034 
047270 
B29874 
047312 
= 690r11 
049796 
844400 
811400 
807006 
886670 
817406 
047504 
047450 
006710 
= pegB02 
842562 
842202 
@12304 
042442 
612570 
642240 
019650 
828702 


6 


FPPRES 
FUNOK 
RETCHA 
GEraay 
eosur 
ROTONE 
WISTR 
TFLENO 
1FLOOP 
IGNOSE 
IMMER 
TNPEXD 
INPNEW 
INPRTR 
INPY"4 
INTRTS 
INT2 
IN?7 
TQWAIT 
1Tag 
«aco 
KEYA 
LEVFME 
LEVALT 
LINA 
LINENO 
LISTSV 
LITNAR 
Lirtst 
LOCGET 
LOFREE 
LPe 
LPERR 
Lsras, 
USTEAL, 
LSTILB 
LSTK¥O 
LS?LO0 
LSYPTR 
LSTVAR 
MAKELI 
“SG 
MSGSIIP 
NEXGTL 
NOCHR2 
NOQOM 
NORNOO 
NOTUOT 
NOTSYM 
MUMALN 
NUMEX] 
MUMPM2 
NUMLPS 
MUMOUT 
NUMSHF 


940 
OPRFN 
PASTNO 
PLUS 
POWLP 
PPAFUD 
PPS 
PRAYF 
PRECS 
PRICOM 
PRINT 
PRISTL 
PRITES 
PRS 
PYRINT 
pyrayT 
PUTITI 
PEAODU 
PEAOYS 
REENAG 
RETLNO 
REVRSE 
ANZ 
RL 

R3 

P5 
SAVRGL 
SIN 
SKIPRT 
SKIPS5 
SPARE 
SS4SAV 
STARS 
stop 
STOVAR 
SYMBL 
TABLES 
TARLS 
TOLLEN 
KA 
Peo 
yPS 
PRENRA 
TRYACN 
TSTSTK 
TYPES 
UAASR 
WATSTQ 
UAGBA 
VAL? 
uaq7n 
Wan 
ae 
UNARY 
VAPRBLE 


O13306 
O12024 
813450 
013362 
203754 
14ers 
ooon7e 
903450 
O8342n 
an265e 
901750 
886478 
205764 
905754 
905730 
814136 
814126 
914220 
814312 
813620 
006942 
onge7e 
914004 
14560 
9143552 
ovauso 
ga2a7e 
Ai5974 
015612 
0144629 
200014 
177316 
007314 
915474 
815432 
015260 
215062 
915006 
@15316 
g15412 
820844 
g15474 
826746 
9a5052 
@67250 
ov6noo 
916310 
a21960 
282778 
016240 
816576 
916394 
016954 
015746 
816246 


o02100 
012116 
21052 
B11534 
067342 
821306 
177554 
21256 
811550 
825356 
025156 
225906 
905444 
gue14e 
G07104 
316604 
820230 
806332 
081972 
13946 
820266 
212022 
BO0766 


2000004 
2%002203 
3X%000205 


a17752 
eeneen 
417242 
g1745¢ 
990113 
aoge24 
O11506 
303276 
317244 
aooaus 
002718 
guss2n 
202766 
177362 
g47e22 
17764 
817772 
317306 
o11is2n 
206724 
a12524 
g12542 
G12320 
g12492 
912452 
a12916 
g12222 
011474 
311072 


BASICL 


VARNOS 
VERNUM 
XCHAR 
sqR 
SPOLSH 
sSBR 
VAIN 

1 COMMA 
10M 
EN 
£0 
1FOR 
1c? 
vTNPUT 
rhiST 
MINUS 
1040 

1 RANDO 
:RETUR 
RUN 
1SEM1 
15QR 
STOP 
TEXT 
,UPARR 


MACK Voes 


611262 
oa04n 
013518 
weeses 
eoecen 
oneten 
200272 
BAG243 
o0p215 
800254 
009254 
080203 
000253 
089297 
800277 
800234 
900392 
820216 
900213 
900300 
808236 
089267 
098214 
099377 
909227 





a ano 


ERRORS OEYECTED! 2 


BASICL MACX22 8 ve2i 


RUN@TIME} 72 SECONOS 
CoRE USEO! 4x 


22aMARa7S 


VaRSAY 
VONESS 
SAOR © 
SLPOS2 
SPPBS2 
SSTKS2 
CALL 
COS 
,0QU0T 
ENO 

1 EXP 
GE 
uF 
cINT 
1h0G 
NE 
PRYS 
+ READ 
1 RND 
,SAVE 
1 SGN 
,SQyoT 
,SVAR 
1 THEN 


22eMARe7S 


16105 


888822 
B1126n 
aeneen G 
900040 
B00a30 
600290 G 
GaR226 
288266 
000256 
ea8292 
oao274 
220246 
300296 
900274 
089272 
000250 
080232 
808222 
8OR264 
GO030% 
009275 
800257 
177777 
800242 
021426R 


16185 


PAGE 7804 


VaRSRe 
vrw0ss 
SOVR 
SMLR 
spRasz 
ABS 
:CLEAR 
;OATA 
£6 
,E0F 
iFLIT 
,G0SUB 
sTRITs 
hE 
ihPAR 
NEXT 
1POUND 
:REM 
sRNOL 


PAGE 7005 


620162 
@11252 
eaeeee 
one 
8o0030 
889273 
Oagse4 
280223 
099247 
oag225 
809374 
Bag204 
099375 
aog244 
9992539 
909234 
998203, 
gag220 
809203 
477775 
gag265 
oa92s0 
009276 
oag24a 





a1414352 
014330 
aeooee 
aeaaas 
angen 
avgz2s 
900262 
gagzz2t 
200245 
goazer 
023262 
900205 
200376 
gee2108 
gog252 
177776 
gnoz.2 
028217 
900237 
920303 
O20z34 
goe24y 
920235 
gng233 


ADDINT 
apoove 
ADOPOS 
ADOSTK 
AQDZER 
AOSTKY 
ALLEX] 
ALLLOO 
ALLNOA 
ALLO 
ALLOA 
aLLoce 
AL OG 
AMATCH 
ARGS 
ARRAYS 
ASSIGN 
ATAN 
ATNFN 
BEGIN 
BENO 
BFSPEC 
BGETS 
UGET2 
BL 


8Ome 
80mMB00 
BOMBUM 
BOMBNE 
BOMBNX 
BOMBOK 
BPOL 
BPUT 
BSTRT 
BYFCLR 
BYFEMP 
BYFTP 
CALL 
CALLA 
CALLCK 
CALLML 
CALLM2 
CALLNM 
CALLP 
CALLX 
CALNRM 
CALOG 
CANFIT 
CARRET 
CCEXIT 
COMES 
CEXP 


CHKCHR 
CHKISE 
CHKOSE 
CLEAR 
CLMNLP 
CLMNPP 
CLMNTT 
CLRECH 
CLRFRE 
CLRLOO 
CLROK 
CLRVAR 
CNCFLG 
CNOFLG 
CODE 


COLONG 
COLUMN 


ComCHK 
COMES 
COMTAB 
cos 
COSFN 
CR 


CRLF ME 
OEFOUN 
OEFGOT 
DELMSG 
OEVERR 
OJMOON 
OIMGOT 
OyMLOO 
OIMNON 
OIMSCL 
OlVLOO 
OLVTEN 
OOALLO 
DOCHAR 
OOLTNO 
OOmMSG 
DOPUT 
OOTBAD 
OOTIGN 
OOYTROT 
ECHOBA 
ECHOSP 
EDICKG 
EOLCON 
EDIGRO 
EDIyMP 
EDIMME 


2231 
2243 
2246 
1562 
2247 
48379 
23519 
22848 
2285 
972 
944 
957 


4899 
79 
72 

1873 


2787 
5404qn 
3588 
3o2e 
3598 
36Ge 
2988 
5296 
221 
2417 
2421 
2427 
24168 
2439 
2748 
Jers 
3578 
643 
3664 
2928 
1867 
1095 
41168 
1121.8 
11308 
1122 
11028 
1429 
5182 
3382 
5273 
4979 
2504 
2096 
3385 


2088 
885 
a93 
6468 
3678 
3668 
3258 

20708 

2605 

26048 

2607 
646 
34848 
3498 
3178 

4859 

1607 

76 

2408 

2539 

2198 

4889 

63 

2785 
297% 

4857 

2126 
9308 
924 

2103 
684 
928 
922 
9140 
915 
969 

26488 

26478 
954 

3934 

2918 

43028 

2023 

5305 

5295 

5292 

2094 
3478 
7354 
7588 
756 
827 
O94 


22498 
22468 
22598 
22298 
22568 
4839 


2294 
22888 
22768 
gaye 
963" 
3186 
49240 
3Oo3# 
314s 
11638 
3184 
318.8 


3667 
293% 
3656 
3658 
1238 
53135 
24038 
24208 
24418 
24348 
2429 
24378 
27458 
3663 
3669 
653 
36738 
2456 
19808 
19960 
1155 
1124 
1133 
eer 
104 
11558 
51840 
33978 
S2798 
49828 
2583 
24158 
33998 


25008 
1768 
1605 
868 
877 
876 
326 
20778 
262746 
2625 
26248 
883 
349 
359 
318 


16298 
3248 
4297 
25448 
24178 
4882 
3176 
31768 
660 
4866 
2148 
1012 
10230 
2120 
4625 
10238 
9320 
934 
9218 
972" 
2654 
4349 
9678 
39368 
2928 
4305 
2025 
53260 
52968 
52958 
21098 
348 
742 


7618 
84on 
696 


2973 


4842 


40308 


“3397 


sas 


4376 
2033 
4579 
4583 
1245 
5324 


4574 
4578 
2822 


24798 


12538 


2505 


3949 
253a8 
25408 
1915 


1024 
657 


912 
655 
2026 
682 


325 
4298 


48848 


4639 


974 
978 


4454 


3944 
2925 


2027 
35303 


7038 


4837 


2627 


2142 


1679 


4583 
24508 


2597 


4648 
4647 
875 


zoo." 

4836 

4296 
697 


657 
4299 


1189 
4978 


40598 


983 


3947 
29498 


20298 


2065 


2629 


2146 


1736 


4584 


2518 


To13 


{038 
4642 
870 


658 
4301 


1195 


2165 


4174 


2513 


4704 


2022 
913 


1606 
4309 


1742 


2189 


4412 


2549 


1846 


3905 
1047 


1639 
4on0 


1803 


3692 


4864 


2518 


2407 


4627 
1186 


1677 


1855 


3696 


4893 


2328 


4298 


1759 


1792 


2443 


3698 


4896 


23228 


1897 


1702 


2439 


3727 


4943 


1947 


1716 


2529 


4624 


496 


3809 


4729 


3949 


4626 


4996 


3946 


1745 


3956 


4629 


5266 


ages 


2407 


4122 


€O0 M00 
EOtmov 
cOIMvy 
EQIOVE 
EOIPAS 
&OLPUT 
EOIRLC 
EDIRLO 
EOTROO 
EDISAM 
DISK] 
EDISRC 
EIT 
EOuTL 
ENO 
ENDAB 
ENOCR 
ENDQUO 
ENOSOU 
€or 
ERACO 
ERCHAN 
EREXP 
ERLOG 
ERPOO2 
ERPO1L 
ERR4QWO 
ERRAGL 
ERRARA 
ERRARG 
ERROAT 
ERROEE 
ERROEF 
ERROIM 
ERROIV 
ERREXP 
ERRFNY 
ERRFPY 
ERRGO 
ERRMIX 
ERRNEX 
ERROVA 
ERROV2 
ERROVS 
ERROVR 
ERRPO2 
ERRPOS 
ERRPOS 
ERRPOS 
ERRPOL 
ERRAET 
ERRRUN 
ERRSS1 


ERRSS2 
ERRSSS 
ERRSX2 
ERRSX2 
ERRSX3 
ERRSX4 
ERRSX5 
ERRSX6 
ERRSX7 
ERRSX8 
ERRSX9 
ERRSXA 
ERRSYN 
ERRTR? 
ERRTRE 
ERRTRN 
ERRUFN 
ERSQR 
ERSTAR 
ERSX412 
ERSX12 
EVAL 


EXEGUT 
EXIT92 
EXP 
EXPOIG 
EXPOUN 
EXPFN 
EXPNEG 
EXPOK 
EXPTEN 
Facy 


FAC? 


FF 
FILUCH 
FILLCO 
FILLNO 
FIXCL2 
FLUXRET 
FIXTST 
FIXUP 
FLE 


7498 
7628 
ores 
723 
7218 
709 
8268 
829 
8a58 
757 
7068 
699 
O8oK 
684 
1849 
54028 
4924 
4922 
4930 
1968 
2232 
2544 
31618 
23838 
SO5oe 
3194s 
1449 
3425 
2287 
73 
1792 
1336 
9948 
933 
2983 
3257 
1228 
82 
1329 
73 
1538 
TI3# 
793 
31458 
31648 
3058 
1209 
34049 
2955 
73 
1366 
18208 
3749 


2879 
29290 
1045 
1535 
3756 
2775 
888 
1294 
1255 
1778 
3207 

34078 
73 
4968 
1808 
872 
1148 

2382 
2975 
1482 
2542 
75 
2874 
878 
2135 
63 
5316 
5324 
2788 
5402 
5344 
5076 


2252 
2812 
3305 
3885 
4394 


2242 
2815 
3289 
3682 
4168 
2968 
3528 
71 
3518 
3599 
3584 
3582 
22398 
3697 


754 
784 
640 
7438 
725 
728 
839 
435 


780 
741 
722 
704 
6858 
11858 
5405 
49350 
49278 
49330 
11868 
$2634 
2558 
3184 
3187 


14638 
34878 
2289 
23848 
1896 
13440 
1904 
938 
32798 
33498 
1115 
259 
13508 
Seeo78 
1532 


3044 
S174 
3283 
Sa47a 
1273 
3443 
29628 
1299 
1372 


3754 


2893 
4035 
1097 
1548 
3769 
28258 
1263 
43i4 
12638 
4774 
3240 
3418 
984 
5079" 
16568 
1886 
2789 
$179 
31628 
15078 
25578 
4166 
2885 
1819 
2137 
3183 
3318 
3326 
31834 
5106" 
33478 
50998 
3268 
2253 
2815 
33288 
3974 
4402 
32748 
2244 
2884 
3309 
3886 
4396 
897 
353 
3598 
352 
35978 
3592 
35940 
358p0 
3oide 


731 
7458 


o5e8 


i908 
747 
737" 
849 


2553 


3498 
2294 
3487 
19268 


1908 
943 


1217 


4341 
50898 


3194 
12998 
3439 


2745 
13898 


3765 


2897 
4039 
1099 
45998 
37748 
2883 
1359 
1325 
1269 
4842 
32438 
352 
1149 


4920 
3205 


3284 


1202 
3195 
1936" 
2139 
3399 
53218 
53398 


5105 

327 
2254 
2876 
3318 
3998 
4408 

328 
2249 
2896 
3323 
3975 
4398 
2072 

331 
2974 


35988 


749 
889 


25598 


3304 
2302 


1028 
945 


22128 


4543 
5145 


26538 


3767 


29008 
4041. 
1106 
2642 


2095 
$507 
4327 
12714 


ye5ow 
sod. 


4958 
3445 


4211 
3233 
io43 
2144 


5338 


4275 
2287 
2892 
3444 
3994 
4778 
4274 
2259 
2903 
3443 
3992 
4408 


2060 


£192 


3383 
2305 


953 


1137 


4545 


2869 


37778 


2904 
4067" 
{149% 
{709 


2922 
{599 
13598 


{8990 


4964 
34868 


1277 
3447 
1975 
21448 


1499 
2262 
2944 
3583 
3996 


1423 
2256 
2945 
3585 
3993 
4483 


2262 


2307 


959 


11488 


15908 


2962 


3777 


1159 
4715 


4859 
1363 


1925 


4966 


1403 
3506 
1175 


1424 
2263 
2956 
3594 
4000 


4422 
2259 
2953 
3759 
3998 
4446 


2074 


23558 


963 


3447 


1165 


2557 
1394 


4966" 


1415 
3744 
1320 


1490 
2264 
2964 
3748 
au 


4492 
2268 
2968 
3766 
4444 
4779 


966 


34ae 


1173 


2825 
1399 


4977 


4427 
3757 
1340 


4491 
2429 
2966 
3764 
4151 


1493 
2428 
2974 
3833 
4145 


968 


1295 


32124 
140. 


5o72 


19a 
1374 


1495 
2434 
2979 
3649 
4152 


1497 
2434 
9996 
3859 
4447 


971 


1207 


3243 
1442 


9144 


1629 
1514 


1532 
2435 
2997 
3843 
4165 


1553 
2432 
3226 
3868 
4448 


976 


3427 
1426 


1724 
$581 


1564 
2436 
3225 
3851 
4472 


1563 
2545 
3266 
3861 
4153 


YAS# 


3774 
1434 


2941 


1794 


1585 
2543 
3258 
3862 
4171 


1986 
2en7 
3262 
3674 
4154 


4729 


27398 
1847 


1826 
2896 
3284 
3878 
4172 


1728 
2878 
3268 
3876 
4164 


2847 
1926 


2238 
2810 
3292 
SERS 
4371 


1827 
2814 
3235 
3879 
4447 


aed 


FLINE 
FULT 
FUX 
FNCHK 
FNFN 
FNNOCO 
FNNUME 
FNRCOM 
FNREPL 
FNRLUP 
FNRSNU 
FNRSSC 
FNSWAP 
FOR 
FORGO 
FORGOG 
FORGTL 
FORLOO 
FORLTL 
FORNEX 
FORNOL 
FORONE 
FORSK! 
FORZER 
FOUNOL 
FQUNOV 
FPPRES 
FPPSAY 
FRSTOY 
FYNGTI 
FYNOK 
FYNRET 
GGWAIT 
GETaBY 
GET2BY 
GETBYT 
GETCHS 
GETCHA 
GEYYAR 
GETX 
GOEXEC 
GONQSA 
Gosye 
GOTECH 
GoTo 
GOTOFN 
GOTONE 
GSBCTR 
WORSTY 
MIFREE 
WISTR 
TOEV 
IF 


TE CQMP 
IFLEND 
IFLEQR 
IFLGTR 
TFLLTR 
TF\,OOP 
LF NUME 
IFSEQ 
IFSGT 
IGNORE 
Waits 
the 
ILITco 
IMMED 
IMMSTM 
INT TOF 
INtTs¢ 
INPEND 
INPEOL 
TNPGOO 
INPLOO 
INPNEW 
TNPNGU 
INPQK 
TNPPC 
INPRTR 
INPSTO 
INPYT 
TINPY®L 
INPYES 
INT 
INT? 
INTLA 
INTA8 
INT? 
INT2A 
INTS 
INTO 
INT7 
INT 
INTS 
INTEXT 
INTEN 
INTRTS 
IOINIT 
1OWAIT 
ISUNO 
TSNUM 
ISVAR 
1Tas 
TTABLE 
ITSIN 
JMPROY 


904 
2753 
3613 
3530 
2862 
3484 
35688 
35468 
3444 
35158 
3549 
35318 
34168 
1859 
1585 
1502 
15048 
1437 
1503 
1452 
1448 
1424 
14368 
1586 
5155 
S026" 
2237 
2233 
4309 
3175 
321g 
3215 
3714 
2261 
2086 
3657 
369g# 
36898 

75 
36948 
1845 
1334 
1854 
2984 
1252 
2764 
3937 

3238 
4641 

3150 

3498 

3448 
1853 


1233 
1235 
12518 
1286 
1267 
12328 
1203 
1242 
1264 
10358 
2749 
2754 
2ei1 
705 
859 
2469 
645 
18418 
1772 
1836 
17738 
17828 
1831 
1781 
17728 
47798 
4829 
1954 
1765 
1754 
77 


38398 
3838 
3846 
3844 
365.8 
3830 
3855 
3625 
3873 
3648 
4684 
2794 
3829 
669" 
3717 
5152 
4876 
4974 
3709 
2538 
4628 
1187 


1324 

26128 
36168 
35558 
34008 
34978 


34838 
3556 
35548 


3486 
$3948 
1509 
15358 


14398 
15088 
44720 
1446 

14330 
1433 

15188 
51768 


2984 
2976 
43068 
3177 
S2i3a 
32220 
37360 
2189 
2083 
36598 
3718 
3936 
{163 
3709 
18478 
13398 
13238 
29868 
1257 
28028 
39598 
326 
4o4ee 
316 
343 
703 
12028 


1239 
12430 
1285 
43078 
12878 
1237 
12688 
1244 
43050 
1968 
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2033 
2182 
2426 
2538 
2626 
3293 
3427 
3551 
3849 
3864 
4999 
4387 
4452 
4515 
48456 
4945 
4986 
5266 
5315 


747 

751 

886 

944 

977 
1143 
1251 
1396 
1455 
1489 
1534 
1577 
1623 
1723 
1842 
4955 
2177 


2322 
2823 
3239 
3636 
3831 
4935 
4448 
4413 
4576 
4747 
4857 
4952 
5968 
5135 


767 

824 

861 

932 
1846 
1221 
1245 
1396 
1461 
1544 
1776 
2251 
2452 
2551 
2776 
2924 
3327 
3437 
3535 
3659 
3734 
3849 
4333 
4419 
4169 
4596 
4695 
4941 
5at2 
5347 


729 
794 
1126 
1337 
1537 
1832 


4604e# 


739 

817 
1228 
415144 
28463 
2198 
2478 
2540 
2607 
3294 
34A3 
3553 
3811 
3926 
4iet 
4390 
4487 
4918 
4870 
4947 
49ag 
5268 
5347 


7B 

755 

896 

947 

a2 
1195 
1268 
1409 
1487 
1499 
1537 
1576 
1025 
1776 
1843 
1956 
2185 


2526 
2834 
3389 
3662 
3832 
4286 
4454 
4424 
4578 
4748 
4869 
4956 
50a9 
5137 


768 
828 
862 
924 
1647 
1130 
1284 
1397 
1473 
1696 
41777 
2252. 
2453 
2954 
2777 
2926 
3599 
3449 
3959 
36460 
3735 
3645 
4034 
4125 
4178 
45nd 
4743 
4902 
5046 


730 
876 
1127 
1564 
1938 
1834 


749 

819 
1234 
1316 
2069 
2202 
2431 
2947 
2633 
3298 
34495 
3554 
3812 
3927 
4423 
44n4q 
4460 
4520 
4872 
4949 
4999 
5279 
5319 


718 

764 

93 

948 
LOR 
1138 
1272 
1441 
1459 
1494 
1539 
1579 
1649 
1741 
1875 
1958 
2277 


2352 
2836 
3392 
3663 
3833 
4477 
4152 
4492 
4579 
4732 
4064 
4957 
5079 
5139 


772 
O34 
894 
935 
1269 
1136 
1252 
1398 
1476 
1608 
1793 
2240 
2454 
2746 
2778 
2978 
3324 
3444 
3554 
3664 
3736 
385 
4038 
4127 
4176 
4514 
4775 
4937" 
5171 


763 
828 
1132 
1365 
1946 
1835 


747 

823 
1248 
1677 
2072 
2276 
2483 
2554 
2634 
SSAS 
3497 
3585 
5819 
5928 
441 
4442 
4472 
4523 
4874 
4954 
4993 
5274 
9321 


712 

785 

9v6 

959 
1005 
1146 
1276 
1423 
1472 
1492 
1540 
1582 
1669 
1750 
1809 
1959 
2279 


2473 
2848 
3478 
3667 
3834 
4129 
4153 
4494 
4581 
4731 
4868 
4960 
SORD 
5144 


7714 

as2 

976 

936 
1070 
1142 
1254 
1472 
1477 
1718 
1818 
e264 
2455 
2748 
27481 
2933 
5376 
$442 
3952 
S670 
$737 
SB64 
4943 
4129 
4178 
4528 
4777 
4938 
S134 


744 
811 
1154 
1367 
1547 
1637 


RSSAVE 
R4 


R4SAVE 
RS 


READ 
READBA 
REAOOU 
READGO 
REAOOU 
READY 
READYS 
READY2 
REAFIN 
REASRC 
REENAB 
REMPAC 
RESREG 
RESTOR 
RETLNO 
RETRY 
RETURN 
RETVAR 
REVRSE 
RNOL 
RND2 
RNOCT 
RKNOGOT 
KUN 
SAVCHA 
SAVE 
SAVREG 
SAVRGI 
SCANPN 
SCRATC 
SETLFE 
SIN 
SNFN 
SKIPOL 
SKIP@2 
SKIPAS 
SKIPEO 
SKIPHI 
SKIFPRT 
SKIPTX 
SLASH 
SOPRAT 
SP 


1895 
1953 
2451 
2552 
2938 
3666 
39998 
4096 
4337 
4435 
4485 
4684 
5043 
5114 
5180 
3318 
2748 
1016 
2042 
2651 
3329 
3866 
4274 
4443 
4618 
4912 
5139 
3328 
2758 
694 
789 
875 
1071 
1368 
1479 
1529 
1688 
1777 
1924 
2972 
2249 
2314 
2435 
2654 
2884 
2997 
3388 
3534 
3639 
3821 
3885 
3992 
4153 


4301 
4606 
4779 
5173 
1065 
1982 
19168 
19838 
19278 
647 
6538 
6648 
1988 
1898 
3697 
4905 
460938 
1062 
5064e 
4887" 
1958 
5027 
3389 
81 
81 
3388 
926 
864 


865 
3821 
2012 

e864 

6448 
2098 

63 
2784 
47320 
473.8 
47308 

706 
4737 
4739 
47508 
2948 

77 

2768 

1114 
1154 
1265 
1495 
1557 
1585 


1897 
1956 
2453 
2648 
2957 
3667 
3994 
4097 
4339 
4436 
449g 
4885 
5945 
5123 
5186 

332 

707 
1159 
2965 
2739 
3362 
3884 
4322 
4445 
4614 
4922 
$154 

333 

648 

697 

798 

aa. 
41074 
1379 
1486 
1538 
1635 
1782 
1927 
2074 
2258 
2354 
2436 
2632 
2892 
3239 
3309 
3583 
3728 
3633 
3886 
3993 
4154 


4329 
4607 
4835 
5175 
1889" 
1913 


1952 
1954 
6548 
683 
1029 
19488 
19478 
37120 
4959 


13198 
5179 
4888 
13628 
SQ6se 
33888 
3368 
3378 
339 
98o8 
9128 
sev2ws 
agen 
3925 
2058 
892 
867 
21268 
3174 
34740 
4734 
474g 
4736 
724 
47478 
47538 
4752 
2983" 
3oa5ea 
644 
1419 
1208 
1266 
1497 
4558 
1586 


1899 
1956 
2454 
2650 
3283 
3009 
3992 
4998 
4341 
444g 
4496 
4887 
5946 
5126 
5489 
se2y 

735 
4245 
2066 
2744 
3363 
3887 
4326 
aaa7 
4925 
4944 
5477 
3027 

641 

783 

794 

vis 
4448 
4397 
4487 
4546 
4677 
4793 
£937 
2978 
2232 
2404 
2459 
2633 
2696 
3228 
3328 
3585 
3712 
3843 
3902 
3996 
4499 


4374 
4640 
4059 
5340 
1923 
1920 


990 
2204 
4762 
1960 


4970 


4094 


337 
338 
989 


4374 
2u29 
A7L68 


a7ay 
4748 


838 


644 
4120 
i210 
1272 
1498 
4559 
1771 


1981 
2088 
2455 
2682 
3392 
3796 
3993 
4099 
4343 
4442 
4538 
4889 
5047 
35147 
5199 
3397 

743 
1288 

967 
2954 
3364 
309g 
4330 
4459 
4627 
4946 
5182 
3639 

642 

745 

605 

948 
4144 
1492 
1488 
1552 
1702 
48n2 
4947 
2982 
2253 
2405 
2479 
2636 
2983 
3225 
3323 
3591 
3734 
3856 
3983 
3998 
4404 


4389 
4692 
4863 


19378 


909 
9088 


4972 


4897 


988 
2602 
3982 


4389 
2156 


930 


654 
1126 
$297 
1274 
1499 
1561 
1772 


£983 
222 
2480 
2655 
3394 
3792 
4028 
4262 
4352 
4aa4 
4574 
4896 
5048 
5148 
S92 
3399 
749 
{272 
2069 
2976 
3365 
4029 
4338 
4464 
4685 
4947 
5265 


644 

729 

866 

949 
1162 
409 
i489 
{553 
i702 
1887 
2012 
2129 
2254 
2406 
2543 
2806 
2944 
3226 
3368 
3648 
3736 
3654 
3925 
4008 
4165 


4394 
4647 
4973 


1939 
5298 


49754 


981 
4628 


4604 
2175 


1235 


664 
{135 
1218 
4275 
4504 
{563 
{779 


1914 
2239 
2482 
2896 
3508 
3794 
4026 
4265 
4354 
4446 
4575 
48968 
5949 
5150 
5264 
3626 

758 
2604 
207% 
2984 
3374 
4927 
4349 
4478 
4697 
4921 
5283 


654 

733 

809 

936 
1186 
1449 
1499 
4559 
1783 
4948 
2013 
2156 
2256 
2407 
2545 
2807 
2915 
3258 
3366 
3623 
3737 
3860 
3926 
4085 
4467 


4394 
4628 
4995 


1199 


5078 


2634 


46a5e 
46830 


1438 


687 
1138 
1249 
1276 
4508 
1564 
1788 


1910 
2245 
2483 
2902 
3540 
3940 
4a2y 
4267 
4362 
4458 
4576 
4999 
5050 
5152 
5272 
3638 

817 
4805 
2077 
2995 
3377 
ag2y 
4342 
4499 
4875 
4929 


659 

734 

81k 

980 
4274 
4428 
1492 
1564, 
4726 
4820 
2044 
2157 
2257 
2408 
2548 
2806 
29355 
3260 
3369 
3624 
3748 
3861 
3930 
4429 
4168 


4390 
4698 
4999 


2444 


4957 


oey 
4139 
4220 
1265 
4510 
1565 
1792 


1917 
2255 
2508 
2916 
3626 
3976 
4031 
4269 
4363 
4462 
4578 
4999 
5064 
5154 
5284 


820 
1896 
2096 
9999 
3396 
4932 
4344 
4498 
4883 
4948 


656 

747 

819 

984 
1275 
1424 
1492 
4563 
4728 
41618 
2824 
2175 
2259 
2428 
2604 
2818 
2956 
3262 
3397 
3625 
3758 
3862 
3932 
4144 
4170 


4398 
4691 
5043 


3905 


47330 


698 
1140 
1221 
1305 
1515 
1566 
1809 


1919 
2258 
2511 
2917 
3638 
3978 
4036 
4278 
43n4 
4466 
4579 
Sur, 
5965 
5156 


as2 
4897 
2170 
3278 
342 
4998 
4353 
4522 
4885 
Sing 


657 

748 

$33 
1006 
1349 
1422 
1493 
1564 
1729 
1876 
2076 
2176 
2268 
2426 
2642 
2692 
2964 
3268 
3399 
3626 
3764 
3874 
FIRS 
4145 
4a7n 


44rd 
4698 
5945 


4629 


4743 


708 
1144 
1224 
1596 
1916 
1967 
187 


1921 
2265 
2516 
2999 
3696 
3984 
4040 
4272 
4309 
44067 
4581 
5003 
5866 
5160 


gag 
1614 
2173 
3214 
3438 
4103 
4366 
4526 
4889 
3127 


698 

763 

891 
1935 
1332 
1436 
1495 
1572 
1749 
1827 
2098 
2199 
2262 
2428 
2603 
2813 
2906 
3284 
34u1 
3627 
37066 
3876 
3946 
4147 
4172 


44n2 
4716 
5063 


4745 


746 
1145 
1236 
1391 
1517 
1568 
18144 


1947 
2278 
2524 
2921 
3658 
3982 
444 
4348 
4418 
44459 
4584 
5995 
5267 
5173 


955 
2015 
2176 
3223 
3586 
4263 
4446 
4528 
4993 
5129 


664 

774 

852 
1016 
1334 
1444 
1497 
1575 
1756 
1644 
2959 
2201 
2263 
2429 
2604 
2814 
2968 
3285 
3428 
3635 
3aa9 
3878 
3974 
4148 
4296 


4443 
4763 
5064 


4752 


759 
1146 
1243 
1392 
1518 
1580 
1845 


1948 
2296 
2522 
2932 
3062 
3984 
4046 
4524 
4426 
4473 
4686 
5012 
5068 
5175 


968 
2635 
22@33 
3227 
3594 
4264 
4421 
4930 
ayaa 
S134 


669 

773 

653 
1047 
1535 
1460 
1498 
1985 
1742 
1846 
2668 
2238 
2264 
2431 
2027 
2845 
2970 
3209 
3441 
3636 
3614 
3879 
3975 
4149 
4297 


4416 
4779 


$112 


621 
1151 
1247 
1484 
1519 
1582 
1846 


1950 
2524 
2547 
2934 
3663 
3986 
4249 
4324 
4431 
44"9 
4696 
5226 
5099 
5176 


962 
2037 
2279 
3253 
3628 
4266 
4434 
4531 
4976 
5437 


6R2 

775 

872 
1836 
1336 
1461 
1499 
1586 
1763 
1893 
2262 
2242 
23583 
2432 
2629 
2635 
2971 
3294 
3443 
3637 
3812 
3882 
3992 
4151 
4298 


4418 
4772 


5147 


bsg 
1152 
1249 
1485 
1555 
1983 
1832 


1951 
2325 
2548 
2936 
5665 
59RD 
4054 
4327 
4432 
44n4 
4772 
5048 
D107 
9177 


gag 
2339 
2323 
3314 
3642 
42458 
a44y 
4544 
4978 
5138 


Ca) 
731 
874 

1038 

1364 

1478 

1919 

1587 

1766 

1895 

2066 

2244 

2376 

2434 

2632 

2873 

2996 

335 

5518 

5638 

3a19 

3883 

3992 

4152 

4299 


4674 
4778 
2148 


BAL 
1153 
1252 
1494 
1556 
1584 
1834 


SPARE 
SPECME 
SQRFN 
SRT 
SS1SAV 
SS2SAV 
STAR 
STARL 
START 
stocom 
STOLNO 
STONOS 
STOP 
STOSTR 
STOSVA 
STOTxT 
STOVAR 
STPRO 
SYBINT 
SYBSTK 
SYMBOL 
S$, 0104 
$,8102 
Th 

T2 

3 

TAS 
TABL 
TAB2 
TABS 
TABLS 
TABLES 


TABLE2 
TABLE4 
TABLES 
TBLAEN 
TBL4EN 


TBLSEN 
TERMIN 
TKB 
TKS 
TPS 
TPCN 
TPCO 
TPHO 
TPINT 
TPNXT 
TPS 
TRAN 
TRANLY 
TRANVA 
TRFNBA 
TRNER4 
TRNFN 
TRNPC 
TRYAGN 
TRYECH 
TRYKWO 
TRYNUM 
TS?si 
TSTS2 
TSTSTK 
TYPE 
TYPEL 
UAy 
VALe 
UALZA 
UALS 
UASBC 
VALO,5 
VAL2 
UAL? 
UAZT7A 
VAL78 
UAL70 
UAZ7F 
UAL? 
UA2d 
VA2l 
yA2s 
Yad 
VAS 
VAB 
UA9 
UAASR 
UAQMP 
VAN GMP 
UATSTS 
VATST2 
VATSTA 


1843 
2352 
2925 
3282 
3248 
3394 
3516 
3679 
4019 
4033 
4358 
4484 
4688 
4849 
5329 
3534 
20698 
2786 
63 
3208 
3218 
2947 
29828 
69 
4774 
5449 
4774 
1059 
49218 
3006# 
49788 
75 
79 
4835 
1284 
3108 
2032 
20398 
78 
78 
78 
2948 
4614 
4627 
3927 
1608 
1044 
1061 
29468 
858 
74 
1044 
858 


74 
2952 
2828 
68 
68 
2092 
2095 
3454 
239 
2864 
2838 
685 
48638 
48648 
4946 
5136 
4907 
4878 
48868 
2068 
4873 
4867 
29938 
2992 
2977 
20720 
2064 
3249 
3259 
3298" 
3299 
3306 
3299 
3313 
3267 
3325 
33328 
3332 
3335 
3341 
3328 
33504 
3316 
32638 
3261 
32708 
3269 
33352 
3316 
33628 
3335 
3341 
33728 


1944 
2353 
2923 
3183 
3259 
3395 
3517 
3673 
4928 
4262 
4359 
4523 
4689 
4844 
3338 


2097 
31788 
3178 
321 
322 
29758 
2999 
203 
4776 
51560 
47758 
11948 
4926 


4984 
1174 
3ocge 
48588 
1592 
342 
205548 
2340 
3334 
3348 
3358 


46378 
46558 
39618 
16468 
19488 
1062 
2947 
8638 
2774 
10688 
688 


2774 
29608 
2016 
2810 
2848 
20948 
20988 
346 
29568 
206548 
2045 
1813 
4913 
4865 
4948 
5142 
49438 
4883 
4982 
20788 
4875 
4a708 
2998 
29958 
2985 
2986 
2073 
3254 
S289" 
3384 
33058 
33068 
3295 
33184 
33234 
33278 
3339 
33350 
33408 
33468 
3376# 
3373 
33798 
3286 
32668 
3280 
32848 
33608 
33359 
3366 
33668 
ARID 
3384 


1926 
2403 
2944 
3186 
3252 
3402 
3528 
3089 
4327 
4263 
4361 
43543 
4690 
3073 
3333 


2103 


1409 
44920 


espe 
47788 


1420 


1569 
2036 


334 
335 
336 


1049 
4063 
2948 
B64 
27628 


26058 


2041 
2038 


2082 


2085 
4550 
4932 
5074 
49548 
5144e 


48858 


2299 
48788 


29948 
2093 

20758 
S2s7H# 


3380 


3510 
3282 
3319 


3564 
3371 


1955 
2405 
2953 
3203 
3263 
3446 
3529 
3694 
40314 
4268 
4362 
4972 
4691 
5077 
5332 


2104 


3449 
4488 


1588 


2963 


4863 
4762 


4056 


10646. 


2949 
865 
2784 


3721 
2075 


2479 


4655 


4934 


3188 


2110 


3332 


3320 


33648 


{959 
2647 
2954 
3243 
3266 
3423 
3531 
3702 
4832 
4278 
4363 
4585 
4692 
5148 
5333 


2107 


1486 
1489 


1833 


48346 


4973 
1766 


1051 
{065 
2958 

866 
2785 


4637 


4953 


33428 


3367 


2231 
2653 
2956 
3214 
3312 
3438 
3532 
3726 
4033 
4297 
4387 
4588 
4693 
5478 
5334 


1487 
4498 


1945 


3063 
14782 


1952 
1866 
29514 

867 
2786 


4967 


3378 


222 
2656 
2957 
3243 
3372 
3440 
3554 
3882 
4942 
4304 
4388 
4629 
4694 
5286 
5339 


4499 
41559 


47638 


1053 
1067 
2952 

366 
2787 


544s 


2248 
2739 
2993 
3216 
3376 
3442 
3580 
3883 
4043 
4309 
4473 
4622 
4695 
$284 
5336 


4587 
1561 


{354 
1966 


2788 


2242 
2744 
2993 
3247 
3348 
3499 
3584 
3895 
4944 
4347 
4474 
4634 
4696 
5282 
8327 


3736 
1572 


1055 


2789 


2276 
2743 
2996 
3248 
3359 
3544 
3595 
3886 
4045 
4323 
4475 
4683 
4697 
5283 
5339 


3756 
1575 


1896 


2794 


2277 
2744 
2997 
3220 
3398 
3510 
3593 
3888 
4047 
4328 
4476 
4684 
4698 
5397 
5341 


4770 
3737 


1057 


2283 
2670 
3a74 
3272 
3594 
3943 
3627 
3eag 
4049 
4832 
4477 
4085 
4ar4 
5326 
5342 


37466 


1056 


2292 
2684 
3176 
3223 
3392 
3514 
3639 
4071 
4252 
4345 
4478 
4646 
4836 
5527 
5347 


4772 


12589 


2292 
2698 
3178 
3224 
3393 
$515 
3664 
4018 
gz 
4356 
4a4a7g 
4607 
4838 
2328 


1062 


UINTEG 
UMENUS 
UNARY 
UPARRO 
USRARE 
VAL 
VAROLE 
VARNOS 
VARSAV 
VARSRC 
VARSS 
VERNUM 
VONESS 
vTWOSS 
WIRET 
XCHAR 
' 


1485 

,AMPER 
rATN 

CALL 
1ClLEAR 
1GOLON 
1 COMMA 


1$0S 
sQATA 


10QV0T 


»EOL 


4158 
3788 
4578 
4568 
3798 
4320 
4068 
3808 
4488 
4308 
76 
414s 
4008 
4128 
3818 
3048 
4530 
3988 
4248 
3828 
3868 
3908 
3888 
3878 
383% 
4248 
4234 
76 
3753 
4518 
452s 
3838 
3525 
4548 
4028 
433a 
4258 
3978 
4278 
4198 
39648 
4058 
3848 
3058 
4348 
4018 
4598 
4068 
4048 
3998 
3958 


61 


29668 
2757 
29648 
324ae 
640 
3074 
28338 
2847 
320 
5904 
26688 


2994" 
29040 
39068 
37038 
2048 
2388 
774 
1241 
1918 
3526 
4527 
$322 
432 
395 
429 
393 
649 
424 
4078 
3483 
427 
392 
399 
386 
4u9 
412 
410 
44 
375 
394 
3738 
1673 
4868 
4u7 
439 
2752 
423 
376 
au 
377 
378 


446 
379 
940 
942 
388 
433 
429 
384 
454 
434 
417m 
445 
404 
413 
382 
967 
454 
399 
422 
383 
387 
394 
389 
388 
3846 
425 
424 
40348 
3768 
452 
453 
695 
3612 
455 
423 
434 
426 
398 
428 
420 
397 
426 
385 
1398 
448 
402 
1098 
4e7 
405 
429 
396 
2235 
2987 


2013 
52628 


2vi4e 
14082 
5815 


205 
2408 
776 
1248 
1949 
3704 
4529 
5366 
573 
484 
567 
553 
512 
408 
3755 
503 
551, 
547 
999 
508 


007 
82 
374 
4698 
4936 
586 
569 
3984 
555 
527 
494 
537 
325 


504 
523 
956 
958 
544 
575 
499 
524 
009 
574 
418 
502 
478 
498 
534 
2328 
615 
468 
514 
543 
684 
549 
545 
603 
539 
559 
597 
404 


614 
643 
746 
4014 
647 
436 
977 
561 
474 
585 
540 
472 
535 
605 
1947 
379 
2744 
47268 
533 
529 
2743 
476 


3544 


2059 


$462 
5045 


2068 

2438 

779 
1253 
2284 
3907 
4535 
53678 


5119 


2612 
488 


1952 
923 
921 

3096 


798 
482 
744 

4983 

1164 

4993 

4903 

4452 
4%6 


1330 
4254 


1344 
2748 
2758 
492 
856 
478 
1294 
2756 


588 
1459 


2758 
1602 

925 
4904 


2772 
489 


738 
4138 


2645 


2926 
1994 
4425 


1625 
4948 
1252 
14as 


2924 


2157 


1479 


207 

2498 

783 
1289 
2309 
4328 
4858 
$368 


1769 
952 


1623 


722 

686 
i780 
{206 
4135 
2768 
{534 
{258 


5115 
1299 


3982 
$986 
1204 
3128 

546 
2928 


41296 
4187 


3976 
1764 


548 


834 
4168 


1695 


2936 
1622 


4938 
1288 


2924 


2476 


1546 


2088 

2568 

792 
1309 
2312 
4048 
4862 
5379 


973 


a9g2 


826 
975 
4837 
1268 


4735 
4109 


4322 
1348 


5431 
4437 


14256 


937 


2934 
1316 
4742 


4728 


958 


874 


4746 


4948 


4944 
1308 


2938 


2i9y 


4798 


2av 

237 

607 
1499 
2628 
4094 
4899 
53808 


4615 


4934 


873 
982 
1843 


4276 


518> 
4740 


2919 


e747 


1268 


ioey 


3978 


4908 


96> 


4072 


4779 


4944 


4979 
5423 


2942 


24a4 


1618 


2188 

2568 

815 
{550 
2637 
4108 
4945 
$384 


1675 


927 
1172 
4885 


1498 


4906 


$117 


$133 


1292 


2754 


1726 


1445 
500. 


4916 


3734 


2130 

2618 

818 
156¢ 
2649 
4479 
4939 
5396 


1928 


1018 
1376 
1899 


1544 


2836 


2823 


1549 
5250 


4947 


4763 


2238 

736 

622 
1636 
2779 
4397 
4ga4 
53978 


1835 


1448 
1382 
1947 


2930 


349 


2680 


2420 
S129 


4935 


224 
736 
625 
1646 
2805 
4368 
4987 
5398 


4839 


1953 
1423 
1924 


2932 


3555 


2894 


2676 
5150 


2258 

744 

872 
1684 
sera 
a5n4 
4997 
5472 


1902 


3818 
1433 
29497 


3502 


3738 


3e76 


2614 


226 

752 
1223 
1717 
3436 
4010 
5267 
544 


1919 


4090 
1484 
3511 


3239 


2644 


2308 

766 
12277 
1804 
35%7 
4912 
3297 
Sansa 


1922 


4119 
1629 
4ge8 


5497 


$435 


SERVEC 
sir 
SLONGE 


Supesé 
SMLR 

SNOLPT 
SNOPOW 
SNOPTP 
SNOSTK 


SPOLSH 
SPPaSZ 
SPRUSE 
SPRORG 
SSOR 

SSTKS2 


BASICL 
2 


@ weveusn 


” 


64 = 2232 
59-2994 
986 989 
1594-4594 
2414 «2589 
3492-39590 
1935397 
6g 2979 
253 253 
215 219 
243 246 
2" 436 
1415-4429 
2365 «2609 
3a20 00-3923 
3558 89-3743 
5007-3047 
58-3866 
95 «8389 
99 5367 
94 262 
62 = 3889 
82 ay 


MACX14, VOzi 


2975 
3254 

995 
4753 
2563 
39535 


3334 
2171 
2194 
2124 

447 
1629 
2617 
3052 
3759 
5029 


22eMARa73 


2983 
3378 

998 
1756 
2854 
4068 


3337 
2464 


2150 

5a, 
4633 
2639 
3149 
3773 
5039 


15142 


3179 3184 3487. 3257 
3587 3595 ; 

1024 1924 454¢ 1345 
i969 1852 £929 4932 
2857 3043 3016 3165 
4071 4291 4060 4663 


3384 
2577 2588 4649 4649 


2458 = 2571 2574 2585 
795 4382 4.392 1168 
{652 1796 4799 1829 
2763 «= -2794 2019 2827 
3190 3197) 32293235 
4022 496 4958 4182 4185 
5852 5159 = 5465 5195 


PAGE 2 
BASIC/PTS PaRTLegaSict 
DECeLi@LPTBARAsLAL 
COPYRIGHT 1973 


DIGITAL EQuipMENT Comporation 
MAYNARO, MASSACKYSETTS 71954 


1954 
4939 
$168 
5089 


53%6 


2548 
1177 
1661 
2639 
34e3 
4192 


1594 
1942 
3271 
5aB3 


3903 
1213 
1905 
2849 
3449 
44087 


1381 
2356 
3274 
5098 


4638 
1279 
1962 
2864 
3430 
4546 


1344 
2559 
3354 
5093 


4644 
1571 
2296 
2873 
3446 
4745 


1464 
2385 
3354 


5356 
1576 
2515 
2687 
3523 
A782 


1467 
2358 
Sang 


1475 
2529 
29n7 
$537 
4786 


BASTCL 


12 
12 
1s 
14 
15 
16 
17 
18 
19 
28 
22 
22 
23 
24 
25 
26 
27 
28 
29 
38 
34 
32 
33 
34 
35 


BASIC 


36 
37 
38 
39 
40 
44 
42 
43 
a4 
45 
46 
47 
46 
“9 
52 
34 
32 
53 
54 
55 
36 
57 
56 
59 
68 
63 
62 
63 
64 
65 
66 
6? 
66 
69 
78 
74 
72 
73 
74 
75 
76 
77 
78 
79 
88 


MACX11 = VO24 


MACXi1l = -V@2i 
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HTITLE BASIC, VOGLA EDIT #61 (REF) 03/01/73 
’ SOURCE FILE #2 
sASECT 


BASIC CoNsisTs oF JHREE MoDULES! 
e si°bastee : LATERPRESER WITH SYSTEM 170 


3] BASICH » USER AREA AND ONCERONLY CODE 


ORIGINAL PAPER TAPE VERSION AY) LEN ELEKMAN 
MODIFICATION ANQ CoMMENTS RAY! 20¥ FOLK 


COMPLETION ANO FURTHER 
CoenenTe’ AY ANN STANKARO 


eee ee er 


15144 PAGE 4 


J PEOOHHPDEOHOHEOHOSHDESHOH ELE HHSHOHHDEEO OOOH OEHEOE 
OT err iriirrrerirrirrtit yy 
J enseeseeoses : 
J oeeesereonee 





GLOBALS! ASSY, PAPAMS,) 
DESCRIPTION; LOW CORES 
GENERAL TABLES, 

CONSTANTS, STORAGE 










Deerevensenneore SOOO SHOR OHOEHEDEE ORE SEOOHEOD 


I 
1 GLosals 
' 


} o=FpMpeit 
’ 
+GLO8L = SPoLsH 
1GLOBL SIR 
1GL08L SHUR 
1GLO8L SOVR 
1GLOBL SAOR,SSER 
1GLOBL SIN,COS,SQRT, ALOR, ATAN,EXP 
1GLOBL = SERVEG 


5 
1 esBASIC2 
J 


+GLOBL TPB, KS 

+GLOBL START 

1GLOB8L USRAREA 

+GLOBL FILLCO 

eGLOBL LIMIT, POL, ARRAYS, POSIZE 
+GLOAL ERRPOW, ERRMIX, FRRSYN, ERRAKG 
1GLOBL TABLED, THLSEN 

1GLO8L EVAL, GETVAR, STOVAR, MSG 
+GLOBL COLUMN, FACi, FAt2, ,RPAR, ,LPAR 
164084 INT, MAKEST, OPRATO, SQPRAT 
1GL08L =, COMMA, TL, T2, 73, ,EOL 
+GLOBL NYMOUT, NUMSGN, ARGB, STPRO 
1G08l, SAVCHAR, VAL ,NORM 

1G408, RNOL, RNDZ 

1GLOBL SSIKS2, EXRFPU 


2) FPMPei, © MATH PACKAGE CONDITIONAL J#E0 FOR USE IN BASIC 


BASICL 


81 
82 
83 
84 
85 
86 
87 
86 
89 
98 
94 
92 
93 
94 
95 
96 
97 
98 
99 
100 
1283 
102 
193 
184 
105 
106 
187 
108 
129 
412 
243 
112 
44s 
414 
445 
116 
447 
118 
119 


BASICL 


126 
122 
122 
123 
124 
425 
126 
127 
128 
129 
138 
131 
132 
4133 
434 
435 
436 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
452. 
152 
453 
154 
455 
156 
157 
458 
159 
468 
161 
162 
163 
164 
165 
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' 
1 ASSEMBLY PARAMS, 


U 
SStKS2 
' 
SPRORG 
' 
SPPBSz 
’ 
SPRBSZ 
) 
SLPBS2 


LTENOF 
2200 
+ENOC 


vIFNOF 
2408 
sENOC 


TFNOF 
236 
,ENOC 


TFNOF 
330 
,ENOG 


sUFNOF 
340 
,ENOC 


SNopTp © No 
PAPER TAPE 


SNOLPT © No 
SLONGER © LONG ERROR MESSAGES! DEFINE Yo GET LONG, 


SSYKS€ ISIZE OF STACK 


iOVTES 


SPRORG JPROG, OAIGI” AFTER VECTOR SPACE 


SppBsé spp RUFF, 


Suze 


SPROS JPAPEReTAPE READER BuFF, SIZE 


SupBsé JLINEepRINTER AUFF, SIZE 


PAPER JAPE] DEFINE 


To ELIMINATE CoDE For HIGH spEED 


LINE PRINTER! DEFINE To ELIMINATE LINE PRINTER CODE 


EXPLANATORY ERROR MESSAGES’, 


SNOSTR © No STRINGS! DEFINE Tt ELIMINATE STRING VARIASLE CQ0E 
SNoPOW © No POWER FAIL{ DEFINE Yo ASSEMBLE WITHOUT 


POWER FATL/RESTART ROUTINE’, 


MACXI1 yee. 22eMARe73 45148 PAGE 6 


HO? POOPI! 


RS POINTS==> 


erUSER AREA MAP 
HIGH ADDRESSES#e-e-wenencennses 


1 GOSYB POINTERS! 
1 26 FN POINTERS! 
1 REAQ POINTER ! 


pe wwctcerecenecas 


1 pusH : 
1 DOWN ‘ 
rows? ! 
oe Peer 
rae 

ARRAYS 





! 
' 
! 
2 
{ 


! SYMBols ! 
eden werecesooace 
! A 

! vin ot 
YINterp, of! ! 
t Cooe . ! 
bq wweececesecncny 
1 USER * 
{ LUNE ! 
i SYFFER ! 


ogee quceqeoepony 
1 USER 1/0 BUFF! 
1 ANO BUFF’, HOR,! 
t SPACE (TTY) 1! 
pnweccewcesaneces 
} SER AREA ! 
! STORAGE CELLS ! 
' : 


bn eecesececcceces 


CeeLIMITCRS) NEEDED 
<eePML (RS) NEEDED 


POSIZE(R5) NEEDED »& 
(POL (RS) @ARRAYS(R5) /2@STACK (INTERRUPT) 


! <e*ARRAYS(H5) NEEDED 


<eeCODE (RS) NEEDED 


CeeLINE (RS) NEEDED 


BASICL 


166 
167 
168 
169 
170 
272 
472 
473 
174 
175 
, 476 
177 
178 
179 
188 
183 
182 
183 
184 
185 
186 
487 
188 
169 
198 
192 
192 
193 
194 
195 


BASICL 


196 
197 
198 
199 
208 
201 
202 
205 
204 
205 
206 
207 
208 
209 
210 
24a 
212 
213 
214 
215 
216 
237 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
2268 
229 


238 
234 
232 
233 
234 
235 
236 
237 
238 
239 
240 
242 
242 
245 
244 
245 
246 
247 
248 


MACX12 


MACX11 


808008 
800804 
080816 
ogee14 
800820 


aonees 


830838 
980054 


00004@ 
880042 
909050 
888056 


200869 
200064 


990879 
300874 


408208 


VO2a 


vead 


oeeons 
AOOLOT 
300804 
398026 
700010 
OOAGrte 
700014 
788816 
000829 
310328 


ooeged 


987562 


200030 
200932 
788934 
188036 


800040 

90. 
A90808 
800920 
909928 


980068 
306722 
BBAG64 
387074 
200870 


987336 


300874 
987436 


989208 
767540 


22eMAR@73 


22sMARe73 


991976 
090000 
890808 
oesnee 
980008 


181 
090808 
808808 


998208 
200208 


290200 
990298 


298208 


15444 


’ 
j 
5 
1 
U 
' 
' 
I 
' 
' 
’ 
' 
4 
1 
5 
‘ 
' 
U 
‘ 
U 
4 
' 
' 
5 
U 
‘ 
' 
i] 
U 
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eo 


CODE AREA CoNTAINS gira oF CoDE AYES WHICH CoMpRIse 

que COMPILED CODE TO AE INTERPETEN, THE SYNTAX SCAN OF THESE 
CODE BYTES {S FACILITATED BY THE JUNICIOUS PLACEMENT 

OF CERTAIN OF THESE COOE BYTES TO SF CALLEO ‘TOKENS!, 

IF THE HIGH BIT OF A TOKEN IS ON 

If 1S a SYSTEM SYMBOL (S,SYM), (SEE TABLE, BELOW,) 

HIGH BIT OFF SIGNALS TOKEN aS THE HIGH ORDER SYTE OF A WURD 
(LOW ORDER BYTE FOLLOWS TOKEN) USED AS AN ADDRESS OFFSET INTO 
TWE USER SYMBOL TABLE (USPTR), 


esSYMBoL TABLE ENTRIES 


ARE MADE FoR LINE NUMBERS, SCALARS, UMERIC ARRAYS, ANN 
STRINGS, AS SHOWN SIN ORDER)! 
LINENQ 177779 


179776 477777 


ADORESS VALVE ADDRESS 
MAXSS1 


VALUE 
8 MAXSS2 
VARNAME VARNAME 


ADORESS 
MAYSS4 
MAYSS2 
STRINGNAME 


eoGENERAL REGISTER YSAGE 


RL Its BASIC EXECUTION pC 
R4 1S THE EXECUTION STACK NEPTH 
RS 1S THE POINTER TQ THE USER AREA 


PAGE 8 
INTERUPY VECTORS ANY LOWEST CORE 

29 
ome START sRESTART Ay LOC, #2 
a4 
+ 12,0 tTIMF Out, BUSS ERROR 
#12 
rs 12,8 PRESERVED INSTRUCTION 
ey4 
. 19240 pOEBUG, TRAP yEC, 
=20 
e BOMB, s1OT TRAP VEC, 
324 
tIFNOF SNOPOW 
. POWQWN,@ pPQWER FAIL/RESTART 
,ENOC 
ay POF SNOPOW 
e 172,08 THALT ON POWER FAIL 
sENOC 
a32 
ra 172,80 sEMT TRAP 
a34 
e 192,80 sf 7RAPE TRAP 

eolSYSTEM! AREA 
548 

ERNuM| , BYTE OO4,°A SVERSTON NUMBER 

+ BO, 20,4, 4,% 


ec INTERUPT VECTORS 


568 

* KBINT PRS KEYAOARD 

264 

. TPINT PRS HTELEPRINTER 
76 

vIFNOF SNOPTP 

ry PTRINT,PR4 sHSP, PT, REACER 
574 

. PRINT PR4 HHSP, PT, PUNCH 
1ENOC 

,IFOF = SNOPTP 

. 3,8, 012 

yENOC 

8280 

vIFNOF = SNOLPT 


+ LPINT, PRS 


BASIC, MACX12 Voes 22eMARe73 15144 PAGE Bei 


249 1ENOC » 

250 sIFOF = SNOLPY 

251 . 8,0 

252 ,ENOC 

253 300249 ' 8248 

254 990248 290242 se0008 + 10298 iPIRA 

255 300244 i 9244 

256 900244 3209086 saoDeD . ERRFPY,o IFLOATING POINT TRAP 

237 

258 380439 , SSPRORG JSTART oF CODE (MAY HAVE To CHANGE, 
259 } DEPENOING UPON ATTACHED UFVS,) 
260 


BASICL MACX14 VO@2i 22aMARe73 1514, PAGE 9 


264 , 

ose 1 GENERAL ASSIGNMENTS: VARIABLFS, GUOBALS, ETC, 
6 ' 

204 

265 J eeREGISTER ASSIGNMENTS 

266 , 

267 289008 RO 5x2 

268 BOAG81 RL xd 

269 AOGBS2 Re 8x2 

278 988023 RS ax3 

271 190094 R4 5x4 

272 088905 Rs ax 

273 280006 sP 8X6 

274 380907 PC 8X7 

275 1 

ore J esDEVICE REGISTER CONSTANTS 

27 ‘ 

278 177562 TKS 8177560 

279 177562 KB 8177562 

280 . 177564 YPS 8177564 

283 177566 "TPB 8177566 

282 177559 PRS 2477550 

283 177552 PRB #177552 

284 177554 PPS 6477554 

285 177556 PPB 0477556 

286 177514 LPs 8177514 

287 177516 \Pe 477516 

286 J 

289 J eeGENERAL CONSTANTS 

290 } 

29% 800011 TAB ait 

292 280012 LFe a42 

293 28044 FF eye 

294 300043 CRe 815 

295 088040 Bus 840 

296 179776 Ps 8477776 

297 200149 PRS 9440 SPRIORITY LEVEL 3 
298 890200 PRE #200 

299 000340 PRI 8348 

308 477775 +SCALAR 8477775 USER SYM, TABLE FLAG FOR SCALAR 
304 177776 ~NVAR = 8477776 JFLAG FOR NUMERIC ARRAY VARIABLE 
302 177777 ,SVAR 0477777 JFLAG FOR STPING VAR, 


303 


BAS|CL MACX11 


304 
305 
306 
307 
308 
309 
310 
3a 
312 
313 
344 
315 
316 
317 
318 
349 
328 
323 
322 
323 
yaa 
325 
326 
327 
326 
329 
330 
334 
332 
333 
334 
335 
336 
337 
338 
339 
340 
344 
342 
343 
34a 
345 
346 
347 
348 
349 
350 
3354 
352 
353 
354 
355 
356 
357 
358 


BASIC, 


359 
368 
364 
362 
363 
364 
365 


MACX11 


390400 
980402 


veed 


980008 
968802 
agaees 
288006 
200089 
200012 
580016 
300816 
998029 
98gR22 
980024 
0898026 
800859 
2880382 
808034 
8800S6 
90849 
390842 
800946 
908946 
200058 
890952 
200054 
800056 
890860 
888862 
009064 
899066 
888679 
200072 
AOBB74 


096076 
200077 
990100 
980102 
oe0104 
900196 
280187 
2090130 
290144 
090122 
aee11s 


Seeea9 
880802 
980004 
880006 
300018 


Vo2s 
BB0012 


990000 
408008 


22uMARe73 


22uMARe73 


15044 


15044 
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' 
J eeUSER AREA STORAGE CELL OFFSETS 
U 


SYMBOLS ® a CANTAINS ADOR OF THE Flest syMBol, 
LIMIT . SYMBOLS+2 1CONTAINS ADUR OF HIGHEST WO OF USER AREA 
POL s LIMITe2 CONTAINS AONR OF EMPTY STACK 
POSIZE # POLe2 SCONTAINS LOW LIMIT OF STACK 

ARRAYS 8 POSIZE42 HCONTAINS ADOR OF WIGHEST WORD OF ARRAYS 
WIFREE ® ARRAYSe2 CONTAINS ADOR OF HIGHEST FREE WORD 
LOFREE ® WUFREGO2 ICONTAINS ADOR OF LOWEST FREF WORD 
CONE s LOFREE+2 HGONTAINS ADOR OF INTERPRETIVE CODE 
LINE s CODES2 HCONTAINS ADOR OF USER LINE BUFFER 
VARSAV 8 LINES? sVAR SAVE FOR ASSIGNMENT 

SS{SAVE ® VARSAVe2 sSSt SAVE FOR ASSIGNMENT 

SS2SAVE ® SS4SAVES2 pSS2 SAVE FOR ASSIGNMENT 

LINENO 8 SS2SAVEs2 SCONTAINS THE LINE NUMBER 

GSBCYR 8 LINENO+2 CONTAINS S3*DEPTH OF ACTIVE GOSUBS 
COLUMN 8 GSBCTKe2 yHAS ADOW OF COL CT FOR CURKENT DEV 
CLMNTTY # COLUMNS? HLAST TTY COLUMN TYPED 

Faca s CLMNTTY 2 HHIGH ORDER FLOATING VALUE 

Face 2 FAC1 82 tLOW ORDER FLOATING VALUF 

ROSAVE ® FACoe2 JPLACE FOR R@ WHILE IN FPMP4y 
Risave « ROSAVE+2 sONTTO R21 

R2SAVE ® RLISAVES2 HOLTTO R2 

RISAVE © R2SAVEe2 VOITTO RS 

R48AVE 8 RSSAVES2 1OITTO R4 

Th s R4SAVES2 ySHOPT TERM TEMPORARY 

72 s TLe2 sOrTTo 

13 s T2e2 sOLTTO 

RNOL s T3e2 HISTORY OF KND 

RNOZ * RNDLo2 yOITTo 

RNOCT a RNOQ*2 JRANPOMIZER 

LOsTR s RNOCTe2 sLOW LIMIT OF STRING STORAGE 

HISTR 8 LOSTRe2 HHIGH LIMIT OF STRING STARAGF 


} eeTHESE NEXY TWO MUST BE LO BYTE ANDO HI 
f) OF SAME WORD 


BYTE, RESPECTIVELY, 


OUTPUT DEV CODE (TTYsa,PTs2,LP24) 
pINPUT DEV COOE (TTYs0,P8#2) 
HHOLMS START OF TELEPRT AUFF HOR 
tHOLAS START OF KBD BUFF HOR 

SAMNOR OF NEXT ECHO CHAR (IF 'ONe@) 
sleC! FLAG, NON@@ IF PENNING 


oLrtTo 


ooev . HISTRe2 

TOEV . ODEV4y 

TPHO s OOEVe2 

KBWO s TPHDSZ 

eCwOSP « KOHDe’ 

CNEFLG @ ECHOSP42 

CNOFLG 8 CNCFL GOL sle0e FLAG, 
FILLCO 8 CNOFL Got IFILL eCOUNT 
FILLNO © FILLCOes INO OF FILL CHARS 
FILLCH 8 FILLNGed pCWA® REFORE FILL 
SPARE LJ FILUCHeS ) CSPARE BYTE] 


’ 
1 eet/o9 BUFFER HEADER OFFSETS 
' 


Osere 96 wna) STARY oF BUFF, 
BENO 52 JIBENO(R1) ENO OF BUFFER 
aGers s4 JOGETLCRL) FIRST GET POINTER 
BGET2 26 1BGETZCR1) SECO"D GET PTR, 
BPUT #10 PBPUT(RLD PUT PTR, 
PAGE 1001 
BFSPEC 12 JEFSPEC(RI) SPECTAL WORQ + USE PARTIF, TA DEV. 


’ 2 
} e°SYSTEM VARIABLES 
1 

CLMNPP} ,WORO = 8 
CLMNLPY ,WORD @ 


JPAPER TAPE PUNCH COLUMN POSITIQ" 
JLINE PRINTER COLUMN POSITION 


BASIC. 


366 
367 
368 
369 
370 
374, 
372 
373 
374 
375 
376 
377 
378 
379 
3389 
3a. 
382 
383 
384 
385 
386 
387 
388 
389 
390 
394 
392 
393 
394 
395 
396 
397 
398 
399 
400 
404 
402 
403 
404 
405 
406 
407 
408 
409 
410 
441 
412 
413 
414 
415 
416 
447 
448 
419 
420 


BASICL 


424 
422 
423 
424 
425 
426 
427 
428 
429 
430 
434 
432 
433 
434 
435 
436 
437 
438 
439 
440 
aay 
442 
443 
446 
445 
446 
447 
448 
449 
450 
454 
452 
453 
454 
455 
456 
457 


MACX11 


MACXY2 


vei 


880224 
280252 
286283 
200234 
988235 
920206 
806207 
488210 
M8022 
880222 
980213 
800214 
880245 
388216 
880217 
088220 
880221 
888222 
age223 
880226 
880225 
880226 
888227 
080250 
29254 
200232 
eg0233 
Be02546 
980255 
892236 
080237 
208249 
800244 
089242 
480243 
308244 
990245 
088246 
308247 
200230 
089234 
898252 
200253 
900254 
009295 
880256 
080257 
680260 
380263 
408262 
280263 


yeas 


090264 
880265 
ABO266 
BOR267 
AB8278 
980274 
298272 
480273 
AGB274 
388275 
880276 


300277 
688300 
880304 
880382 
280303 
880326 
820325 
280306 


000307 
282310 
088314 
208312 
200343 
900374 
820375 
488376 
#20377 


15144 PAGE 12 


} wo SYSTEM TOKEN DEFINITIONS 
' 


' Ls 20% BEGINNING oF SEQUENCE YSEO BY ‘KEywOsf AND ‘7ABLE4? 
eas 
s ' 
1GOSUB= ,FORSL 
1GOTOs ,GOSUB+L 
Ps ,GOTOs 
INPUTS TF ed 
iueve 4 INPUTed 
NEXTs \LETS 
PRINTS \NEXT#d 
‘RETURNS PRINTSd 
 SfOPs ihe 
DIMe =, STOP+s 
TRANOOHe  DIHok 
IRESTORS, RANOOMSS 
(REM® —|RESTORSS 
\OEFs © ,REM#4, 
READS ,DEF#d, 
ce 
'EoFs, 'GALLei JENO OF SEQUENCE USED AY /TaBLEd: 
PERS®\E0Fs 
WPARROS AMPERSOL BEGINNING OF SFQUECE USED BY /TAGLE2¢ AND OPR PREC, 
SPARS = ,UPARROoL 
{SLASH® ,STARSE 
PLUSs ,SLASHOL 
taNNuse 'geaRven 
'TERMa IMINUS#1SEND OF SEQUENCE USED RY I TAHLE2! 
(SEX, TERMOS 
(RPARS SEMI 64 
‘70s \RPARSS 
SPEPE 1064 
THEN =, STEPOL 
COMMAS , THENSS 
1LEs | COMMAS 
1EL8 bEod 
‘Gea yEL ed 
,EGs GEot 
‘NES, EG#d 
‘ENS yNE#t 
eee. ote 
s 
ee tet sEND OF SEQUENCE USED AY OPERATOR PRECEDENCE 
LPARs ,£Q¢4 
\OQUOT= \LPAReS 
SQuOTs ;DQUOTes 
‘COLON #,SQUOT#s, 
POUND , COLON: 
POUNDea 
LANDS ENS, JBEGINNING OF SEQUENCE USED sy ‘TAaLESr 


15444 PAGE it0% 


sRNOe = RNOL ot 
iStN® = RNOOL 
,COSs »StNed 
,SQRe COSe, 
sATNa »SQROL 
,EXPs ATNOL 
hQG2 EXPod 
sABSs —  L0Ge4 
INTs ,ABSo4 
SONs =, JNTod 
Tabs eSGNet 


VTFNOF  SNOSTR 
‘hEN® =, YABSt 
‘ASCH | LEN#S 
LCHRSs ,ASCod 
\PoSs =, CHRS#4 
1SEGs ee 
8 
"Sthe \VAL#L END OF SEQUENCE USED AY (TABLES! 
‘LISTs ,S7Re1 jBEGINNING OF SEQUENCE USED aY /TARLEAe 
VENOC 


;[FOF  SNOSTRK 
sLtSTs , TAGeL 
vENOC 


RUNS a tSTet 
SAVES, RUNS 
;OL08  ,SAVESL 
De 
te thas SEND OF SEQUENCE USEM BY (TABLES! AND ¢KEYwOSe 
\FLIts $76 
rILI?is 375 
VICIT28 376 
TEXT. 9377 


BASIC, 


458 
459 
468 
462 
462 
463 
404 
465 
466 
407 
468 
4609 
478 
a7y 
472 
473 
476 
475 
476 
477 
478 
479 
489 
483 
482 
483 
484 
485 
48 

48 

488 
489 
490 
494 
492 
493 
494 
495 
496 
497 
498 
499 
508 
382 
382 
303 
5e4 
505 
506 
307 
508 
509 
518 
54a 
512 


BASIC, 


Sus 
514 
515 
516 
517 
518 
519 
520 
524 


522 
523 
524 
525 
326 
527 
528 
529 
330 
531 


332 
533 
534 
535 


536 
537 
538 
539 


540 
544 
542 
543 
544 
545 
546 
347 
548 
549 
550 
554 
552 
553 
554 
555 
556 
557 
558 
559 
560 
564 
562 
563 


MACX11 


000404 
300405 
800406 
9o04n7 
080419 
260414 
900412 
090413 
800414 
80n415 
300416 
300417 
990629 
090422 
896422 
0898423 
808424 
206425 
880426 
080427 
888439 
000432 
900432 
BB8434 
808435 
800437 
290449 
agaes2 
890443 
090445 
880446 
090459 
098451 
898453 
009454 
800455 
900456 
080457 
288469 
000464 
080462 
300463 
989464 
090465 
880466 
008467 
898479 
000473 
380472 


MACK42 


980473 
Oo0474 
800475 
800476 


390502 
826503 
288506 
080587 
980514 
989515 
820516 
090522 
980523 
990527 
390530 
890535 
308536 
900544 
800545 
380552 
889553 
200554 
989562 
880563 
386578 
900571 
308572 
800608 
980601 
920606 
880607 
888619 
080613 
308614 
308628 
08621 
388626 
800627 
920634 
3Q9635 
908642 
880643 
880645 
380646 
588652 
080653 
380656 
820657 
380663 
908664 
980678 
BO0674 
800675 
880676 


yo2s 


053 
232 
55 
234 
852 
238 
057 
231 
136 
227 
359 
255 
O54 
237 
134 
204 
46 
226 
973 
236 
O34 
243 
836476 
244 
975 
244 
836476 
246 
o75 


$ 
037074 
250 
076 
258 
a74 
232 
076 
233 
075 
234 
042 
256 
O47 
237 
972 
260 
943 
264 
133 


Ve2s 


255 
135 
237 
142516 


210 
aia 
206 
187 
040 
225 
347506 
203 
040 
240 
242516 


242 
252040 
242 
04g 
240 
241 
347507 
204 
122 
116 
213 
DAFA 
207 
120 


042506 
224 
122 
222 
134 
223 
193 
224 
196 
262 

347122 
263 
122 
264 
123 
265 

247523 
266 
125 

267 

952104 


22emARe7S 154944 PAGE 12 
’ 
} weKEYWORD TABLE 
U 
’ ENTRIES ARE ORDERED RY THEIR FREQUENCY oF 
’ OCCURRENCE, ALPHA KFYWOP0S START AT /KEVAL, 
' 
KEyWOS) ,ASCII fot 
:BYTE =, PLUS 
rASCIL fel 
iBYTE = MENUS 
sASCIT fae 
‘BYTE «=, STAR 
rASCIS ft 
:BYTE 1 Shas 
sASCII f8 
,BYTE =, UPARKO 
sASCIT C8 
+BYTE =, LPAR P 
sASCHL QF 
:BYTE  ,RPAR 
sASCIE tM 
sBYTE = EOL 
sASCIT 66 
:BYTE , AMPEKS 
sASCII Ge 
»BYTE =, SEMI 
sASCIT Gt 
:BYTE =, COMMA 
sASCI] Car 
1BYTE = LE 
o74 sASCIL fae 
BYTE hE 
sASCIT fae 
:BYTE =, GE 
976 sASCIL of ape 
BYTE =, GE 
sASCIT Cae 
:BYTE =, NE 
074 sASCIT 1 >G0 
,BYTE NE 
sASCIT 6G) 
iBYTE =? 
sASCIL 6 
BYTE 1S? 
sASCTL fae 
BYTE A) 
eASCTT MF 
»BYTE =, QQUOT 
sASCIY mee 
sBYTE =, SQUOT 
sASCIT Pye 
sBYTE =, GOLON 
sASCHI we 
: «BYTE =, POUND 
sASCIL * CP 
22eMARe73 135144 PAGE i202 
1BYTE = pW PAR 
sASCIT f)¢ 
BYTE RPAR 
220124 KEVAL =, ASCII RET ¢ SSTAPT OF ALPHA KEYWORDS 
1OYTE = LeT 
820106 vASCIL UF ¢ 
1BYTE «LF 
020117 047524 sASCIL #60 TO ¢ 
BYTE =, GOTO 
020122 sASCIL fFOR ¢ 
,SYTE =, FOR 
047524 04g sASCIL # TOF 
“« BYTE =, TO 
@52130 04g sASCIT ' NEXT # 
,BYTE = NEXT 
842519 320116 sASCII ¢ THEN & 
,BYTE =, THEN 
0521235 050105 ASCII 6 STEP ¢ 
,B8YTE =, STEP 
O52523 e2e182 +ASCIT =f GOSUB 
+BYTE =, GOSUB 
952105 051125 sASCII RETURNE 
BYTE RETURN 
952529 920124 sASCIT Ff INPUT ¢ 
:BYTE =, SNPUT 
044522 852116 sASCII PRINT ! 
:BYTE =, PRINT 
115 vASCIS ¢ REM! 
\BYTE =, REM 
829106 vASCIL fF OEF ¢ 
:BYTE =, OEF 
040905 920194 +ASCIL f READ ¢ 
BYTE eHEAD 
O52101 o26104 tASCIL (DATA 
»BYTE =, OATA 
846103 20114 eASCIT CALL 
BYTE CALL 
116 sASCIL fF FNE 
BYTE = FN 
024104 sASCIT RNDGE 
s8YTE =, RNOL 
042116 eASCIL /RNOS 
,BYTE —, RNO 
O47111 058 sASCIT SINCE 
:BYTE =, SIN 
024123 sASCIL ¢COScr 
:BYTE COS 
054121 0598 ASCII fSORG! 
,BYTE SOR 
024116 sASCIT fAYNGE 


BASICL 


364 
565 
566 
567 
568 
569 
378 
574 
572 
573 
574 
575 
576 
377 
578 
579 
580 
58s 
382 
383 
584 
585 
586 
387 
588 
389 
598 
59. 
592 
393 
594 
595 
596 
597 


598 
399 


600 
601 
602 
603 
604 
605 
686 
607 
608 
609 
618 
642 
612 
615 
o14 
615 
616 


BASTCL 


617 
618 
619 
629 
62a 


MACKi2 


380702 
983703 
9007087 
883719 
800714 
000715 
oea72, 
089722 
888726 
288727 
200733 
300734 
908749 


000741 
380745 
808746 
208752 
088753 
@88769 
200764 
080765 
000766 
888773 
800774 
891008 
@81081 
901206 


881907 
881913 
001014 
801222 
001025 
081026 
801934 
981935 
881236 
901842 
881943 
8912846 
801847 
801853 
081054 
801257 
881060 
O51864 
201865 
081070 
901872 
301974 
981075 
221108 


MACX12 


891101 


vo2s 


270 
185 
272 
247514 
272 
102 
273 
O47141 
274 


123. 


275 
948524 
276 


134 
277 
351504 
308 
123 
sey 
128 
302 
242523 
303 
940526 
304 
123 
305 


104 
215 
940522 
955112 
216 
342522 
105 
217 
852423 
214 
125 
222 
114 
386 
252522 
397 
849523 
sig 
137 
Sut 
123 
312 
193 
3135 


Voes 


22eMARD73 


050130 
024107 
054582 
324124 
047397 
824422 


247185 
224403 
051118 
054517 
022107 
024114 
951124 


046513 


242116 
425 


952125 


050127 
842116 
051513 

a6 
042526 
o424i4 
053103 
042524 


22eMARe73 


258 


a2ene4 


258 


030 


024044 


843 
046547 


851147 


124 


151944 


15141 


PAGE 1202 


1BYTE 
rASCEY 
BYTE 
‘ASCII 
1BYTE 
ASCII 
BYTE 
VASCIY 
BYTE 
ASCII 
‘BYTE 
VASCII 
BYTE 


s TFNOF 
sASCII 
BYTE 
sASCII 
BYTE 
sASCII 
GYTE 
sASCII 
sBYTE 
sASCIT 
BYTE 
sASCIT 
BYTE 
ASCII 
iBYTE 
2ENOC 


ASCII 
BYTE 
ASCII 


BYTE 
ASCII 


BYTE 
sASCIT 
sBYTE 
sASCII 
BYTE 
sASCHT 
BYTE 
ASCII 
1BYTE 
sASCII 
BYTE 
sASCII 
BYTE 
sASCII 
+BYTE 
sASCIL 
sB8YTE 


PAGE 1283 


:BYTE 
1EVEN 
E07 


1SGN ” 
Tagee 
TAB 


SNOSTR 
"HENCE 
ehEN 
‘ascet 
Ase 
'GMRS( 
sSHURS 
Poscr 
POs 
*SEGS(r 
SEG 
"Vaueet 
' valu 
'STRS (A 
SiR 


Qtm ¢ 
cOtM 
*RANOOMIZEs 


+ ANOOM 
ORESTORES 


+RESTORE 
‘SvoP! 
SOP 
‘ENDS 
ENO 
RUSTE 
ah tS? 
RUNG 
RUN 
‘SAVE! 
SAVE 
‘olor 
1940 
sere 
SCR 
"CLE! 
sSLEAR 


8 sEm0 OF TABLE FLAG 


BASTCL 


622 
623 
624 
625 
626 
627 
628 
629 
630 
634 
632 
633 
634 
635 
636 
637 
638 
639 
640 
644 
642 
643 
644 
645 


BASIC, 


646 
647 
648 
649 
638 
653 
652 
653 
654 
655 
656 
657 
658 
659 
668 
664 
662 
663 
664 
665 
666 
667 
668 


MACKXA1 


aw 
Na 
goi102 
094186 
oeti12 
881116 
391122 
303126 
004132 
801136 


MACKX12 


091348 
901144 
021150 
001154 
621160 
881166 
284172 
091176 
oox228 
284205 


801226 
801212 
981216 
881222 


801222 


Veen 


916705 
916506 
885965 
804767 
216506 
084767 
804767 
009402 


V¥@2a 


084767 
216506 
305865 
383965 
012765 
360565 
884167 

e415 
942522 

220 


916506 
004167 
@15 
826 


305965 


22mMARC73 


2900086 
9o0084 
ogo.o4 
007366 
990004 
014422 
037044 


22eMARG7S 


007344 
aeonas 
990126 
990076 
290036 
090834 
016254 

612 
042103 


890004 
916254 
g12 


898876 


OB88S4 


133, 


e812 


15141 PAGE 43 


' 

baseeeeee 
eevee 
Joaccee oe 
Jeaseceesenes 
Leavensesoese 









SOHSEHCOEHOSHHEHS ROLE RAEHOCEEO 


SOURCE FILE #2 
POSSHSSESHHSHHSESHSHTEOCHELOOS 
Poeseeeve 
eceseeeecaee 
MAIN FlLoW ROUTINES eOeeeeeereers 
eGetoesaasne 








PRASHSESOOHOSHHSHESOOHFSHHPOOESHECOEOHHOCHHHHSHEOOE 
POOCOHEOCEEOEOHEDRO OOOO ESOS ESEHTESEHESHTEOOHOOEHCDOD 


' 
J START © PROGRAM STARTING POINT 


' 

START MoV 
“OV 
cyR 
ysR 

SCRATYCHIMOV 
JSR 

CLEAR} JSR 
aR 


15144 PAGE 34 


USRAREA,RD 

POL¢RD), SP 

EGHOSP(RS) 

PC, BUFCLR CLEAR OUT ALL 170 RING AUFFERS 
POL(RS), SP 

PC, INL YSCR 

PG, CLAVARS 

READY 


fecrwcccecewnegecqucecnceesecscece lunes esereeerenscaceqcces 


' 
} READY = PRINT 


’ 
READYO! JSR 
READY} QV 
CLR 
CLR 
MOV 
ao 
usr 
BYTE 
sASCIT 
:BYTE 
1EVEN 
READY2) MOV 
JSR 
:BYTE 
:BYTE 2 
LEVEN 
TO{NIT) CLR 


*HEadye 


pC, BUFCLA ICLEAR ALL I/o RING RUFFFRS 

POL (RD),SP 

CNCFLG(RS) pfeCr AND #008 FLAGS 

ODEV(KS) 

ACLMNTTY, COLUMN( AS) ISET TO COUNT TTY COLUMNS 
RS,COLUMN(RS) =3 NOW 

RL MSG 

CALF 

#REAOVE 


POL(R9),SP 
RL, MSG 
CRLF OLF 


ODEVERS) CLR ODEV ANO [DEV BYTES IN HSER AREA 


BASIC, 


669 
670 
e74 
672 
673 
674 
675 
676 
677 
678 
679 
68g 
684 
682 
68s 
084 
685 
686 
687 
688 
689 
690 
694 
692 
693 
696 
695 
696 
697 
698 
699 
708 
784 
702 
703 
794 
795 
786 
707 
708 
709 
710 
741 
712 
723 
744 
715 
716 
747 
718 
719 
720 
724 
722 
723 


BASICL 


724 
725 
726 
727 
728 
729 
738 
734 
732 
733 
734 
735 
736 
737 
738 
739 
748 
744 
742 
743 
744 
745 
746 
747 
748 
749 
759 
754 
752 
733 
754 
755 
756 
757 
758 
759 
768 
764 
762 
763 
764 
765 
766 
767 
768 
769 
770 
74, 
772 
773 
774 
775 
776 
777 
778 


MACXL2 


801226 
881232 
881234 
961242 
081244 
891250 
801254 
881256 
884260 
Ob4264 
801266 
001270 
881272 
881274 
801276 
881309 
0013284 
881306 
604312 
8013516 
381320 
891322 
801326 
881338 
BB1334 
801336 
881342 
981346 
881350 
881354 
881356 
801360 
881362 
901364 
981366 
881379 
881372 
881376 
281408 
081402 
401404 
981406 
991412 
881416 
901420 
861422 
oo1424 


MACX41 


001426 
001430 
801432 
BBL434 
001449 
001442 
091446 
301452 
301456 
001460 
301462 
201464 
301466 
201479 
801472 
304474 
001476 
oB15eg 
avise2 
ag1504 
201506 
901512 
301516 
981529 
0814522 
ao1524 
001526 
801530 
801532 
OB1534 
381536 
201549 
901542 
801544 
201546 
201559 
391552 
001554 
081556 
301569 
981562 
001564 
801573 
201572 
201574 
204576 
301600 
824604 
201606 
301612 
201614 
281616 
391629 
304622 
381624 


vo2t 


3046707 
183906 
127527 
284336 
990167 
024767 
225202 
940146 
346504 
160116 
122128 
100427 
880380 
152198 
961508 
924027 
183011 
2465284 
021627 
M81013 
285016 
295060 
980437 
195765 
081334 
000167 
004767 
210194 
£21427 
001452 
121193 
180779 
005204 
280323 
152193 
861503 
821327 
193362 
821913 
184357 
201936 
004767 
12127 
004427 
111193 
180774 
005204 


vo2s 


280303 
152103 
361583 
224327 
103362 
162701 
316509 
816582 
324904 
104403 
224004 
194901 
905018 
885728 
385322 
383370 
160401 
280404 
205902 
161624 
016500 
216502 
m24004 
103404 
460122 
985720 
495322 
#03372 
883701 
180433 
881505 
310402 
964602 
318203 
969103 
112322 
M20315 
183775 
185742 
204404 
985202 
030227 
204401 
195922 
010215 
612322 
820365 
103774 
940265 
980404 
385822 
320203 
183775 
288453 
211508 


22eMARe7S 45541 =PACE 15 


014702 
09016 29e225 
017604 
820236 


080020 


177775 
900016 
989883 
a90ne2 
000877 


280300 
817622 


898225 


177775 


017556 
090225 


22eMARe73 15541 


477775 
oeoove 


280R04 
009052 


890004 
320032 


280003 


990024 
090214 


J qeccccccngucccconecosccngscesccccuasccaserosssosneesseucsecs 


e0ly © 


GET LINE, TRANSLATE INTg TOKENS, AND MQVvE LINE INTO 


SYMBOL TABLE, ARRAY SPACE, ANO STRING SPACE, 


OfTs JSR PC LINGET 

acc EDIT, 

CMPB @CODE(R5),#,£0F 

BNE READYS 

IMP DEVERR 
EDITL: JSR PC, TRAN 

INC RL 

“OV RL ,e(SP) 

MOV LUNE CRS) RE 

sys RY, (SP) 

Move CRY) OERO 

BM EOTMMEO 

Swap RO 

ese (RE)OgRO 

400 (RS), RO 

CMP (RO), #, SCALAR 

BHIS EQIMMED 

MOV CODEC RD) Ry 

cMP (SP), 83 

BNE EOYSRGH 

CLR CSP) 

CUR 2(R@) 

BR EO{SRGH 
EDIMMEOITSTB TOEV(RS) 

BNE EOIT 

UMP IMMED 
ED{SKIPIJSR PC,SKIPEO, 
EDLSRCHIMOV RY RS 

cMPa (Ri), 8, £0F 

cla) EDIPUT 

MOVB (RO) VRS 

aM} EQSSKIP 

INC RY 

was RS 

8188 CRY HARS 

460 (R53) RS 

cMP (R3) 18, SCALAR 

BHIS EDISKIP 

CMP (RB), (RS) 

BHI EOISKIP 

BNE EQIPur 
ED{PASSItUSR PG, SKIPEOL 

cMPB (RO). 8, EOF 

aco EDIOVER 

Move CRY) DRS 

BMI EDIPASS 

INC RL 

PAGE 1501 

Swag RS 

81s8 (RE) O,RS 

400 (R5) RS 

cMP (R3), 8, SCALAR 

BHIS EOIPASS 

SUB W2,R4 

MOV POLERS) RO 

MOV GSBCTHCRS) ,R2 
EDICHGy CMP CHO), R4 

ALOS 1e19 

CMP CHO) RY 

BHI 104 

CLR (RO) 

rst (RO)e 

OEC R2 

BGT - EOI CHG 
EDIOVER: SUB R4,R4 

BR 164 
EOIPUTH CLR RL 

sus CSP),RL 

MOV POL( RO) RO 

MOV GSBCTR(RS) ,R2 
EOLMODF ICMP (RO), KO 

BLO 1*4 

sya R4, (RO) 

TST (RO)s 

oec R2 

aGT EOTMOOF 

TST RL 

amy EQ}GROW 

BEO EOTSAME 
EDICONTIMOV R4,R2 

400 (SP) ,R2 

MOV R2,R3 

aoo RL,RS 
EDIMOVE MOVE (RI) oe (R204 

CMP RS, (R35) 

BLO EOyMOVE 

TST8 e(R2) 

BEQ 164 

INC R2 

alr R2,as 

SEO 14 

CURB (R2)@ 

MOV R2, (RD) 

MOV CRE) me (R20 

cMP R3,LOFREE(RS) 

aio 196 

MOV R2,LOFREE(RS) 

aR 104 

CUR (R2)¢ 

CMP R2,R3 

ele 104 

aR EOTSAME 
EDIGROWIMOV (R5),KO 


4 
U 
J 
) 
U USER CODE SPACE, WITH ALL ENTRIES MADE INTO USER 
4 
U 
€ 


JNORMAL INPUT QINE 
ICHECK EMPTY PROGRAM 
INQ, RETURN TO TTY LYPUT 
HYES, MEVICE NOT READY 


VIF THFRE ARE ONLY 3 BYTES THEN THE LINE 
ICONATINS LINENO,CR AND “EANS DELETE, 
VIGNORE [MM STMTS FROM NONeTTY 


yRA POINTS TO LINENO OF THE “EW LINE, 
yO¢S°) CONTAINS LENGTH OF THE NEW LINE, 


HIF A LINE IS CHANGED WHICH {S$ 
PREFFRENCEO BY THE READ POINTER, AN FY 
HPOINTFR OR & GOSUR POINTER THEN THAT 
JPOINTER MUST BE CLEARED 


IRL “OW 2 SCWARS TO CONTSACT, 

HALL REFERENCES BY THE READ POINTER 
sWHICH REFER TO LINES WHICH ARF MOVED 
HBECAUSE OF EDITING MUST GE PELOCATEN 


yR4 “OW © ADORESS AT WHICH TO INSERT, 


IMOVE OWN THE CODE, 
1R2 NOW POINTS TO BYTE AFTER THE ,EOF, 
yR2 “OW WAS THE NEW START OF THE SYMTAR, 


MOVE DOWN THE SYMBOLS, 


ICLEAR VACATED STRING STSRAGF TO ZEROES, 


Bes ty 


BASIC, 


779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
798 
794 
792 
793 
794 
795 
796 
797 
798 
799 
800 
ao 
602 
a3 
604 
805 
806 
807 
808 
029 
810 
612 
812 
613 
e146 
815 
816 
817 
818 
619 
622 
823 
822 
823 
826 
625 
826 
827 
828 
829 
830 
834 
832 
833 


BASIC, 


834 
635 
836 
837 
638 


MACX14 


081626 
281639 
681652 
801634 
001636 
904649 
891642 
081646 
0816590 
881654 
881660 
361662 


801666 
0916790 
081672 
881676 
981700 
881704 
904718 


091722 
881716 
081722 
001724 
804726 
081730 
091732 
384734 
891736 
881749 
004742 
oa1744 
881746 
003759 
091752 
801756 
001768 
084762 
001764 
981766 
801779 
691772 
881776 
oe2ge8 
aa2902 
og2904 
g92906 
oo2g10 
902012 
902014 
002028 
ag2e22 


MACKAY 


a82024 
982930 
202034 
882036 


ve2s 


105749 
281402 
985200 
1601869 
210003 
8e52e3 
842723 
164503 
266583 
820365 
184402 
900167 


819322 
995722 
820265 
103405 
084767 
120265 
183364 


916502 
910365 
0ee4e, 
014243 
820225 
101375 
840315 
123043 
810992 
860199 
000403 
124942 
920004 
184375 
826500 
948404 
812682 
980401 
122824 
999302 
692375 
121127 
004417 
121102 
190432 
195234 
680322 
132122 
264502 
222227 
183003 
319112 


Yeas 


162712 
284767 
980756 
000167 


22eMARe73 


888082 


o9eo14 
800812 


020712 


oeea72 


021254 
908072 


990014 


298014 


ogee20 


099225 


177775 


22eMARe73 


290082 
017154 


177204 


15941 


15044 


PAGE 1502 


TSTp 
BEO 
INC 
sye 
MoV 
Ine 
BIC 
su8 
apo 
cup 
aLos 
ERROV1t JHP 


a SPNOF 
MOV 
Ts? 
CMP 
80 
JSR 
cup 
AHIS 
sENOC 


EOtRoom mov 
MOV 


BR 
EDIMVUPEMOV 
cMP 
BHI 
MOV 
CURB 
MOV 
400 
BR 
MOVE 
cme 


aH! 
EDLSAMEDMOV 
MOV 
MoV 
SR 
MOVB 
oec 


BGE 
EDIRLC8iCcMPs 
LT 4] 


“Ove 
aM} 
INC 
Swas 
eyse 
400 
cur 
BHIS 
MOV 


PAGE 1503 


sua 
COIR, OCI USR 
BR 


EDL UMP) UMP 


e(RB) 

104 

Ro 

RL, RO 

AB,RS 

RS 

#4, R3 

(RS), RS 
LOFREE(RS) RS 
RS, HIFREE( RS) 
106 

ERROVe 


SNOSTH 
RS, R2 

(R2)6 
R2,LOSTR(RS) 
EDIROOM 

PG, UPPACK 
RZ,LOSTRERS) 
ERROVS 


OFREE(RS),R2 
S,LOFREE (RS) 
+4 

(RZ), CRS) 
R@, (RD) 
EQIMvyP 

R34 (R93) 

o(R3) 

RO,R2 

Ri, RO 

104 

(RO), e(R2) 
RO,R4 

a4 
GINE(KS) Ro 
R4, RE 
(SP)o,R2 

a4 


' 
(ABO, (4)e 
Re 


a6 
(RO), 8, £0F 
EQI UMP 
CRE) AAA 
EQTRLOC 

RY 


RZ 

(Rope, R2 
(RS), H2 
(R2)4,8, SCALAR 
EOIRLOC 

RE, CR2) 


m2, (R2) 
PC, SKIPEOL, 
EDTRLGS 
EOUT 


JR NOW POINTS PAST THE YEW WIGHEST AYTE 
sOF CODE, 


1R3 “OW WAS THE NEW START OF SYMTAB, 


URS NOW HAS THE NEW VALUF OF LOFREE, 
ICHECK TO SEE THAT THERE [JS FNOUGH 


HCMECK TO SEE THAT THE SPACE THAT WILL 
WBE USED 1S NOT OCCUPIED BY STRINGS 


INQ, MOVE THEM YP 
sTRY AGAIN 


IMOVE UP THE SYMTAS, 


HCLEAR THE POSSIALY USED FILLER 
yR@ “OW POINTS PAST OLO WIGHFST BYTE 


JOF SYMTAG, 
IMOVE UP THE COCE, 


IMOVE THE NEW LINE INTO THE ODE, 


BASIC. 


859 
840 
e414 
842 
843 
Bae 
a45 
846 
847 
848 
aa9 
850 
854 
e52 
853 
a54 
855 
856 
857 
858 
as 
860 
864 
862 
863 
864 
865 
866 
867 
868 
869 
870 
874 
872 
873 
874 
875 
876 


BASIC, 


877 
878 
879 
680 
883 
882 
883 
884 
885 
886 
887 
688 
889 
899 
692 
892 
9s 
694 
895 
896 
897 
898 
899 
988 
901 
982 
905 
904 
905 
986 
997 


MACKX4A2 


982042 
802044 
882058 
382054 
982268 
882062 
892264 
882076 
082972 
3B2076 
882199 
982104 
982106 
0021128 
082112 
902114 
892116 
082128 
882122 
082224 
082126 
082132 
982134 
382146 
982144 
882152 
802156 
802162 
882166 


MACX12 


022472 
882176 
ao2202 
282206 
822212 
802216 
982222 
982224 
302236 


302254 
382248 
302244 
802250 
082252 
982256 


882262 
802266 


382272 
282274 
882309 
882302 
802304 
382386 
382312 


ve2s 


342608 
085065 
316506 
316521 
295802 
154122 
162722 
286382 
929227 
104812 
362782 
468782 
964287 
800162 
888296 
300124 
802062 
177042 
177922 
860108 
820065 
103402 
980167 
112719 
912765 
295268 
885967 
085067 
200467 


vo2s 


816506 
864767 
004767 
024767 
284767 
122127 
801402 
080167 
300167 


004767 
384767 
120227 
903404 
804167 

14 
082262 
994767 
288167 


385204 
994767 
103778 
osf2o3 
801766 
204767 
300167 


22eMARe73 


890076 
080026 
agao28 
880306 
ogoos2 
ogong2 


088016 


820054 
9g0225 


15144 PAGE 16 


177775 «=38e838 


290036 
479216 
176214 
898554 


22emMARe73 


898004 
013352 
096574 
@16722 
06404 
@g0201 


8103524 
176772 


046674 
006444 
aeoen2 


815222 
O14 


814316 
176652 


012534 


214276 
176626 


| 9vcwconwesencccesseecencgscececnccceuseceseuenestocccccecece 


IMMED © IMMEDIATE MQDE GoMMANOS 


Dp IMMEDIATE ONLY COMMANDS ¢tRUN, LIST, SCRATCH, CLEAR, 


EXECUTE, 


) 
J 
‘ 
5 SAVE, AND OLD) AND SET UP OTHERS (UN@NUMYERED) FOR 
U 
1 
1 


MMED] MoV (SP)oeRD JRO NOW HAS # BYTES AN INPUT LINE, 
CLR OOEV(RS) STAKE ONLY THIS IMMED, COMM, FROM NON@TTY 
MOV POSJZE(R5),R4 
MOV LENECRS) Re 
CLR R2 
g1sB (RL) RZ 
sus My LIST R2 
ASL RB 
CMP R2,aTBL4ENNe TABLES 
BHI IMMSTMT 
aod 42,R2 
400 PG,R2 
ado CR2), PC 


TABLE41 ,WORO L[STe TABLES 
;WORD = RUN®TASLE4 
WORD SAVErTABLES 
;WORD =O De TABLES 


;WORD = SCRATGH* TABLES 
TBL4ENDS WORD CLEARe TABLES 


CIN (START# CODE, ABOVE) 
H(IN 4START! CODE, AROVE) 


IMMSTMT} ADO RE,RO 
CMP RO, CODE(RD) sSEE IF AN ‘EOF! CAN SE FIT ON THE LINE, 
ALO 196 
JMP ERRTRN 
Move # EOF, (RO) 
MOV # SCALAR, GINENO( PS) 
CLR by CEMNTTY(RS) PRE@SEYT ALL COLMN COUNTS 
CLR CLMNPP 
CLR CRMNLP 
uMP EXECUTE SSTART RUNNING, 


45144 = PAGE 47 


) FOLOf COMMANO 


OLor MOV POL (RI), SP 
JSR PG INI TSCR 
vsR PC CLRVARS 
JSR PC, SCANPNO 
vSR PC, CHKISET 
CMPB (RL) 4) #, EOL 
BE0 04,0892 
JMP ERRSX5 

00881) JMP EIT 

1 FSAVE" COMMAND 

SAVE! JSR PC, SCANPNO 
usr PC CHKOSET 
CmMPB R2,02 
BLE LISTSV 
vSR Ri, MSGOOEV 
BYTE «FF AFF AQ 
1 EVEN 

LISTSVI YSR PG, LSTPROG 
JMP READY 

s LIST! Command 

LIST? INC RL 
JSR PO FLINE 
Bcs LISTSV 
MOV (R2) R41 
BEO LISTSV 
JSR PC LSTLOOP 
UMP REAOY 


sFLUSH OUT SYSTEM 
HSCKATCH 


ySCAN OFF ftwe 
SCHECK ANO SET INPUT 
IMUSY END LINE RIGHT 


sTHIS MOES THE REST 


sSCAM OFF Pye 

HCHECK ANDO SETsUP OUTPUT 

TLINF PRINTER? 

HNOE LIST TAKES OVER 

sFOR LPT, START W/ 2 FORMeFEFOS 


1GET ADDR OF CODE LINE 
SIF UNDEF, NORMAL LIST 
ILIST PARTIAL PROGR 


Ne 


BASICL 


908 
909 
910 
912 
912 
913 
914 
945 
916 
947 
918 
949 
920 
922 
922 
923 
924 
925 
926 
927 
928 
929 
930 
933 
932 
933 
934 
935 
936 
937 
938 
939 
940 
944 
942 
943 
944 
945 
946 
947 
948 
949 
950 
954 
952 
933 
954 
955 
956 
937 
958 
959 
960 
964 
962 


BASICL 


963 
964 
965 
966 
967 
968 
969 
979 
973 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
9a4 
985 
986 
987 
988 
989 
998 
992 
992 
993 
994 
995 
996 
997 
998 
999 
1020 
1202 
1992 
1093 
1204 
4205 
1206 
1207 
1208 
12009 
1910 
1942 
1212 
1213 
1214 
1015 
1216 
4217 


MACKA4 


092316 
892322 
982326 
982338 
892332 
802334 
882336 
982348 
082344 
882346 
882352 
882354 
092369 
282362 
882366 
882379 
892374 
802376 
892400 
682404 
082486 
902419 
682412 
992414 
682416 
602429 
882424 
802426 
982439 
082454 
002436 
882442 
982444 
902446 
382459 
892452 
092454 
892456 
982462 
892466 
882479 
882474 
092476 
982528 
862582 
882506 
882549 
992514 
892516 
392529 
882522 
892524 
882526 
8825358 


MACXi1 


902534 
892536 
892542 
082544 
992546 
882552 
382554 
892568 
882564 
082566 
382572 
802574 
892576 


082609 
882686 
062614 
292620 
892622 
882626 


382638 


382633 
092634 
882636 


882644 


982642 
302646 
382658 
882652 
082656 
982668 
882662 
482666 
2382679 
382672 
092674 
802708 
402704 
202719 
002714 
882728 
202724 
282726 


vee. 


004767 
016501 
122102 
180406 
888302 
152182 
361502 
314265 
112192 
120227 
e1ais 
126227 
201530 
128227 
984504 
120227 
091557 
285303 
084767 
300759 
122122 
100586 
280302 
152162 
064502 
122127 
081298 
8859035 
121127 
004406 
122127 
094971 
112103 
108467 
880303 
099204 
152103 
012704 
122427 
01423 
124127 
291954 
995204 
395904 
124327 
901406 
122127 
201044 
124104 
180442 
SB8SH4 
995204 
152196 
122127 


Voas 


001934 
824227 
801434 
082403 
305762 
190925 
004767 
122127 
204718 
1241427 
804015 
865293 
080653 


316565 
152765 
122127 
281642 
980167 
290086 


942211 


TT) 
epoeed 
042441 


122127 
201372 
112122 
566582 
203722 
781365 
122127 
301362 
210112 
360642 
985965 
393067 
705967 
216506 
016501 
121127 
304018 
284167 


22eMARe73 


1514, PAGE 48 


1 FRUNE COMMAND 


806468 RUNS Jsr PG, CLRVARS 
000826 MoV COOE(RS) , Ry 
OIMLOOP I MOVE CRE) Og RZ 
emt OJMNONO 
SWAB R2 
BysB (RYO RZ 
ago (RB), R2 
299058 MOV (RZ), RINENO(RS) 
MOVE {RY} OyR2 
ege2i5 DIMNONO?CMPB R2,8,901M 
Bea DINGOT 
ago22, cMPs R2,8,0€F 
sea OGPGOT 
oge2i6 Cups R2,#,RANOOM 
Bea RNOGOT 
oge225 cmPa R2,8,£0F 
Bea OIMDONE 
oEec Ry 
016504 DEFOUN) JSR PG SKIPEOL 
BR OLMLoOP 
OIMGOTS MOVB (RY) OyRZ 
aM} ERROIM 
Swas R2 
arse (REO, RZ 
ago (RS), R2 
890255 céPe (RE) 0, #,LPAR 
BNE ERROIM 
CLR RS 
880375 CMPB CRO) @ ILITL 
BEO AWLOCL 
998376 cMPB CRY) Oy ® TLTT2 
ane ERROIM 
“ove CRA) RS 
Bm! ERROIA 
SWAB RS 
ALLOC14 INC RY 
Cer) (Rg) op RS 
477777 MOV og, Re 
890237 cure CRI), # REAR 
gee OOALL OC 
998245 cMPB (R428, COMMA 
ONE ERROIM 
INC RY 
CLR Rg 
090375 cure CRS BTLIFL 
SEO ALLOC? 
898376 curs CRE OM TLIT2 
@NE ERROIM 
MOVB (RO) AS 
BMI ERROIM 
swag R4 
ALLOC2q INC Ry 
aise (RY) gR4 
800237 CMPB (R4)o,8,RPAR 
22aMARe7S «15144 = PAGE 1804 
ane ERROIN 
177776 OOALLoci Cup (RZ), 8, NVAR 
ca) ERROIM 
Buy O[MSCLR 
og0004 TST 4(R2) 
aPL, ERROIM 
ge52sa OIMSCLRIVSR PG, ALLOC IVARCR2),SSLCR3S),SS204) 
BOG243 cMPB (RG) Oy, 4, COMMA 
a0 OUMGOT 
age2os cure OE R49 94, EOL 
BNE ERROIM 
INC RL 
ar OJMLOOP 
PRANOOMIZE STATEMENT 
880872 880064 RNOGOTI MOV RNDCT(R5) ,RNTLCRS) 
808001 882064 ayse WE ,RNQLCRDY 
aog204 GMPB (RL) 6) 8, EOL 
BEO OIMLOOP 
907716 uMP ERRSYN 
ERRDIMI TOT 
sJFNOF SONGER 
11> sASCIT ¢JOME 
eENOC 
LIFOF = SLONGER 
sASCIT ILLEGAL OfMe 
,ENDE 
:BYTE 2 
,EVEN 
ERRDEF! JOT 
sIFNOF = SLONGER 
12g ASCII NGOFN 
vENOC 
alFOr SLONGER 
sASCIL CS TLLEGAL OEFS 
,ENDC 
,OYTE 8 
vEVEN 
8g0262 DEPGOT) Cura CRO H EN 
BNE ERROEF 
MOVE (RL) +p RZ 
aeoees 400 POL (RD) R2 
TST (R2) 
BNE ERROEF 
900255 cure CRE Oem LPAR 
BNE ERROEF 
MOV R44 (2) 
OR OEFOUN 
299036 OIMDONEICLR CLMNTTY (RS) PRE®SEY ALL COLUMN COUNTS 
175474 CLR CLMNPP 
175472 CUR CUMNLP 
apage6 MOV POSIZE(RS5) Ra 
oeos6 MoV CODE( NS), Rg 
990225 cure (RO), 8 EOF 
ONE EXECUTE ISTART RUNNING, 
814922 ERRRUN} JSR RU gMSGERR 


BASICL 


1018 
1019 
1220 
1022 
1922 
4223 
1924 
4225 
4026 
1227 


BASICL 


1028 
1929 
1030 
1933 
1832 
1933 
1034 
1835 
1036 
1237 
1038 
1039 
1040 
1941 
1042 
1243 
1044 
1245 
1046 
4247 
1048 
4249 
1250 
1053 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1259 
1960 
1264 
1062 
1063 
1064 
1265 
1066 
1067 
4268 
1269 
1078 
41072 
1972 
4873 
1274 


MACXA1 


082732 


982735 
982736 


MACX12 


002742 
882746 
082752 
882754 
082768 
002764 
882766 
822770 
982774 
982776 
883e02 
003804 
883806 
O83010 
883012 
803014 
983016 
003229 
803022 
OO3024 
883826 
803839 
283032 
383034 
883036 
083040 
303042 
403044 
983846 
903058 
983052 
883054 
883856 
283860 
883062 
203064 
383866 
253072 
303074 
OB3876 
803102 


Vea. 


856116 


028 
300167 


Voi 


304767 
185765 
281404 
183965 
990167 
112102 
982935 
842702 
286382 
820227 
104115 
260702 
061207 
177736 
3003350 
381224 
301049 
284949 
280372 
282649 
280246 
004742 
882254 
081144 
200352 
177732 
177732 
29{026 
177732 
177732 
493346 
177732 
900074 
480330 
BOO302 
152122 
264502 
921227 
103075 
£11265 
908724 


22eMARa73 15542 PAGE 1802 


vIPNOF = SLONGER 
422 sASCIT \NPRN 

sENOC 
,IFOF = SONGER 
sASCII # NO PROGRAM! 
,ENDC 
sBYTE 2 
€VEN 

176244 une READYS 


22eMARe73 15442 PAGE 19 


CO oi a 





S EXECUTE » EXECUTE CuMMAND LINE 
, 


016222 IGNORE! JSR PG SK IPEOL, 
020126 EXECUTE: TSTS CNCFLGCRS) ploch WIT? 
8E0 NOCNC 
888106 CLRB CNCFLG(RS) 
176160 UMP READY 
NOCNCS MOQVB CRYO yR2 
aGE NOYSYM HITS A POINTER, 
177609 BIC #a20H RZ 
ASL R2 
eooa52 GMP RZ, #TBLLEND@ TABLFLe2 
BHT ERRSX2 INOT A STATEMENT WORD, 
400 PC,R2 
apo (RZ), PC HBRANCH THRU TAGLEL, 


TABLELS ,WORD  EXECUTE*TARLEL 
«WORD = ENDe TABLEX 
WORD FOReTASLEL 
+WORD = GOSUBeTARLEL 
WORD = GOTO TABLES 
WORD [FeTABLEL 
;WORD = INPUT@TABLEL 
WORD LETeTABLEL 
WORD = -NEXT@TABLEG 
WORD PRINT@TAALES 
WORD REYURNeTASLEL 
:WORD = STOPe TABLES 
«WORD = [GNORE® TASL ED 
+WORD = [GNORE® TABLE 
WORD) =- RESTORE * TABLES 
WORD = [GNORES TABLED 
1 WORD IGNORE @TABLEL 
+WORD = READ@ TABLEY 
sWORD = JGNORE® TABLES 
;WORD = CALL* TABLE 

TBLLENO!,WORD EOFeTABLES 

NO?SYM! SWAB R2 


BISB (RL) 4) R2 
400 (R5),R2 
477775 cue (R2),8, SCALAR 
BHIS ASSIGN INOT A LINENO, 
090030 MOV (R2)+HINENO(RS) $SAVE THE LINENO, 
aR EXECUTE 


ee 


BASIC 


1075 
1276 
1977 
1278 
1079 
1988 
1283 
4982 
1283 
jose 
1985 
1286 
1987 
1288 
1289 
1298 
1892 
1292 
1293 
ie96 
1995 
1096 
1297 
4298 
1299 
1208 
1193 
1222 
1203 
1104 
1105 
1106 


4297. 


1108 
1109 
2118 
2aaa 
1112 
1aas 
1214 
1415 
2116 
1227 
1118 
1219 
1428 
1122 
1222 
2223 
1424 
1225 
1126 
1427 
1128 
1129 


BASICL 


1130 
1432 
1132 
1453 
1134 
1135 
1136 
4137 
1138 
1139 
1148 
2444 
1242 
1243 
1244 
1145 
1146 
4147 
1148 
4449 
1150 
2452 
1252 
1153 
4154 
1155 
1156 
1157 
1158 
1159 
1260 
1261 
1262 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
4170 
14a72 
1172 
1173 
1174 
1175 
4176 
1177 
1478 
2379 
1280 
1281 
1182 
1183 
1184 


MACXL1 


883104 
0031198 
203112 
003114 
083128 
085122 
903124 


903126 
983132 
883154 


883136 
093149 


083142 
883144 
883146 
9035159 
683152 
883154 


063256 
883160 
903164 
883166 
883172 
883172 
003174 


MACX11 
983176 


983200 
893204 
883206 
903210 
O@3212 
983214 


383216 


083220 
993222 
803224 
083226 
883232 
BO32356 


083242 
383244 
283246 
283252 
283254 


303256 
383260 
293262 
883264 
983266 
293279 
893274 
303320 
283382 


883306 


803310 
993314 
893316 
303322 


803324 
883330 
303352 
BB3336 


383349 
283344 


veer 


204767 
183052 
612620 
s2ege7 
ao{eea 
122003 
112929 


813702 
004437 
810246 


105712 
ao4ase 


018846 
818346 
122022 
001034 
2835383 
801374 


164603 
062703 
882422 
eas404 
199722 
aaig23 
985303 


Veer 
AG1374 


262706 
*4L282 
204441 
829146 
710446 
318546 


204712 


222605 
242604 
022601 
800167 
820167 
200467 


9226233 
312608 
862716 
941682 
200759 


112122 
188766 
2160332 
152122 
361552 
204767 
122127 
901356 
704767 


183486 


122127 
901359 
904767 
480621 


122127 
281342 
384767 
488603 


3201265 
183014 


22eMARe73 


886272 


477777 


CITT ET) 


soeees 


22eMARe73 


289906 


177510 
911262 
007302 


290806 


012870 
299254 


286874 


eeo2e1 
845732 
908201 


815776 


@98B16 


15141 =PAGE 28 


1 TCALLS STATEMENT 


| 2 
CALLE 


CALLS 


CALLPIE 


4 
CALLCK} 
' 


CALLM2I 


CALLM21 


CALL "PROG" 6444) 


vIINOF = SNOSTK 


JSR PG, EVAL sEVALUATE FUNCTION NAME 
ace ERRSXS, 

MOV (SP)e,RO 

CMP RO, #477777 HCHECK NULL STRING 

8EQ ERRFNG VYES, ERROR 

Move (RO)S)RS HRB 1S STRING LENGTH 
MOVE CRBS (RODS sR 1S AOOR OF CHARS 
,ENOC 


L}FOF = SNOSTR 

MOVB = (RH) 0g RZ 
CMPB = R2,#, SQUCT 
REQ CALLE 

CMPB «RZ, #8, 0QUOT 
BNE ERRSXL 

CMPB (RA) 0,8, TEXT 


yR2 1S QUOTE CHAR 


ANE ERRSX1 

MOV R4,RO WR TS ADDR OF CHARS 
CLR R$ 

TNC RS COUNT CHARS IN R83 
TST8 (Rope 

ONE CALLP 

cMPa (Roe, R2 CHECK CLOSING QUOTE 
BNE ERRSXY 

DEC RS 

BEO ERRFNY 

,ENOC 

INIT TABLE SEARCH 

MOV #46, K2 

Bea ERRFNY JNO FUNCTIONS DEFINED 
MoV R2,0(SP) JSAVF ON STACK 

CHECK ENO TABLE 

TST8 (R2) 

geo ERRFNY 

CHECK THAT (RS) CHARS MATCH 

MOV RB, 0 SP) 

MOV AS,e(SP) 

CMPB CRODORCR2DO 

BNE CALLNA 

oec RS 

BNE CALLME 


CHECK THAT 40(R3) CHARS ARE 7 IN TABLE 
sus CSP),RS 


ao0 84,83 

Lt ERRFNG 
geo CALLX 

TSTB | (R2)% 

BNE CALLNM 
oe RS 


15144 = PAGE 2004 


' 
CALLXS 


ERRFNII 
ERRSX14 
y 

CALLNMS 


Ler? 
Lets 


ASSIGN) 


ASSSTRI 


1 VEQF? 
ENO} 
EOF! 


GNE CALL M2 
RETURN ANSWER 
aoo a6,SP sPOP STACK 
MOV (R272 
SEO ERRFNS 
MOV R4,e(SP) 
MOV R4,0(SP) 
MOV R5,0(SP) 
JSR PG, (RZ) 
MOV (SP) O,R5 
mov (SP) yR4 
MOV (SP) ,R4 
JMP IGNORE 
Ald ERRUFN 
uMP £HRSYN 
ADVANCE TO NEXT TABLE ENTRY 
MOV (SP)0,R3 
MOV CSP) ORO 
apo #0, (SP) 
MOV (SP), R2 
aR CALLCK 


STATEMENT ROUTINE 
MOVB CRY) O,R2 


amt ERRSX1 INOT A POINTER, 
Swas R2 

eyse (RL) eyR2 

agp (RS) ,R2 

JSR PC, GETVAR 

CMPB (R44, 8, £0 

BNE ERRSXL sNOT EOSIGN, 
Jsr PGEVAL 

1IPNOF SNOSTH 

acs ASSSTR 

sENOC 

Cure CRY) O18, EOL 

BNE ERRSXL 

JSR PC, STOVAR 

BR EXECUTE 


vIFNOF =SNOSTK 
CMPB (RE) ose, EOL 


BNE ERRSX} 
usr PG, STOSVAR 
BR EXECUTE 
sENOC 


OR ‘END! STATEMENT 


CMP RY, COVE (RS) 
BHIS JMPROY 


BASIC, 


1185 
1286 
1487 
1168 
1189 
1290 
1192 
1192 
1193 
1194 
1195 
1196 
1197 


BAS}CL 


1198 
1299 
1200 
1201 
1202 
1203 
1204 
1225 
14206 
4207 
1208 
4209 
1218 
4213 
4212 
1213 
1214 
1215 
1216 
4217 
4218 
1219 
1220 
4224 
4222 
1223 
4224 
4225 
1226 
4227 
1228 
41229 
4230 
4232 
1232 
1233 
4234 
4235 
1236 
1237 
4238 
1239 
1240 
1242 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
4251 
4252 


MACXAL 


883346 
993352 
083354 


383356 


883362 
893366 
883378 
803374 


803376 


MACX12 


903402 
883406 
003418 
003414 
303416 
083422 
803424 
803426 
883430 
083432 


883436 


883449 
883442 
O23444 
323446 
083450 
893452 
383456 
223469 
883462 
803464 
083479 
883472 
803474 
0035e9 
383504 
983506 
093510 
883512 
003514 
883516 
883520 
283522 
983526 
883530 
9835352 
BB3534 
803536 
983549 
083542 
993546 
883558 
983552 
883554 
203556 
903560 
083562 
803566 
803578 
983574 


Vea. 


204467 
015 
830 

283356 

700107 


204167 
O15 
952323 
TT) 
BOS376 
300367 


va2a 


006767 
103444 
421127 
103718 
124127 
104305 
020604 
193533 
112146 
984767 


103152 


812623 
812600 
812602 
910846 
385046 
820227 
201404 
152216 
205920 
629327 
804404 
154300 
062702 
762783 
480402 
122322 
804947 
395308 
802410 
485316 
202372 
122327 
881049 
493328 
282373 
200407 
@85716 
883405 
122722 
801056 
065316 
883373 
095726 
012690 
142102 
120227 
301403 
120227 
201013 


22eMARa73 


014188 
o12 * 

175644 

814066 


a12 
850417 


175542 


22ahARe73 


895774 
oen244 
009254 


895744 


177777 


477777 


ogoguS 
200803 


000840 


288048 


aoees2 
aoozes 


15142 


15144 


PAGE 2802 
JSR RL MSS 
iBYTE — CaF 
BYTE @ 
1EVEN 
vMP cor 
) FSTOPS STATEMENT 
STop1 ySR RA MSG 
:BYTE = -CRALF 
vASCII «STORE 
\OYTE 
EVEN 
JMPROY] JMP READY 
PAGE 23 
) TERE STATEMENT ROUTINE 
1Fy JSR PG,EVAL 
acc IFNUMER 
CMPB (RO), 8, LE 
8,0 ERRSXL 
CMPB CR), 8, EO 
BHI ERRSX1 
CMP SP,R4 
BLO ERRPDS 
“OVE CRL) oy a ( SP) 
JSR PC, EVAL 
vIFNOF = SNoSTH 
acc ERRMX4 
vENOC 
MOV (SP)4,R3 
MOV CSP)o, RD 
MOV (SP)4,R2 
MOV RO, e(SP) 
cua (Sp) 
CMP R2, hed 
80 1*4 
BIse (R2),¢SP) 
CLR RB 
CMP AS, Hed 
BEQ 1o4 
B1sB (R3), KO 
ADO #3,R2 
aoo #3,R3 
BR 1%6 
IFLOOP) CMPB CR3) a, (R206 
BNE 1FCOMP 
oec RO 
SLT TEWEND 
ogc (SP) 
BGE TFLoor 
CMPB CRI) o, #8L, 
BNE TECOMP 
oEec RO 
aGE 1949 
8R IFSEQ 
IFLENOT TST (SP) 
BLE 1FSEQ 
cMPe MOL (R2)6 
BNE IF COMP 
OEC CSP) 
ac’ 1042 
IFSeor TST (SP)e 
MOV (SP)4,R8 
IFLEQRI “OVE CRE) oy R2 
cMPB R2,#, THEN 
BEG hes] 
cMPa R2,#,G0TO 
NE ERRSX?7 


ae 


BASICL 


1253 
1254 
4255 
1256 
4257 
1258 
1259 
1268 
4263 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1278 
4273 
1272 
$273 
4274 
4275 
1276 
4277 
4278 
4279 
1288 
1282 
4282 
1283 
1284 
1285 
4286 
1287 
1288 
4289 
1299 
4293 
4292 
1293 
4294 
1295 
1296 
1297 
1298 
1299 
1300 
130% 
4302 
1303 
1304 
1305 
4306 
1307 


BASICL 


4308 
4509 
3518 
2522 
4312 
1513 
4314 
4315 
4316 
4347 
1518 


MACX42 


003576 
803682 
293604 
093619 
a03612 
883616 
893629 
883624 
283630 
993632 
883634 
803636 
803649 
803644 
893646 
003652 
003654 
903656 
003668 
093664 
0036798 
893672 


883676 


983700 
208782 
883706 
083719 
093712 
303714 
883720 
883722 
883726 
993738 
803734 
083736 
093742 
883744 
093750 
093752 
883756 


093762 


983766 
093778 
883772 
083774 
884908 
204902 


MACK12 


284006 
204010 
004014 
884816 
004022 
304024 
384050 
984932 
884036 
304844 


V2. 


128927 
304522 
129927 
01517 
222027 
284514 
090167 
080167 
282456 
005726 
822628 
389425 
121127 
103767 
121127 
101364 
320606 
183437 
816546 
816546 
112146 
004767 


198433 


012608 
884767 
001724 
892439 
412192 
120227 
901483 
120227 
901118 
120027 
304445 
120027 
204442 
120927 
304437 
000167 
900267 


808167 


85726 
342680 
122102 
120227 
881403 
120227 


Vo2t 


081060 
1420027 
01415 
120027 
801432 
120827 
804407 
800167 
942775 
080167 


22eMARe73 
999244 
990246 
098254 


1772120 
996714 


oge244 
098254 


oganez 
090040 


095504 


815542 


390242 
808205 
op8244 
oe9252 
590258 
476764 
096920 


007024 


990242 
808285 


22eMAReo73 


880246 
080253 
090250 
176704 


477777 
176676 


15142 


15444 


800004 


PAGE 2101 


cMPB 
80 
cMPe 
BEO 
cMPB 
BE 
ume: 
ERRSX74 UMP 
IFCOMP) 8LT 
1S? 
MOV 
8R 
TFNUMERSCMPB 
BLo 


cMPa 
OWS 
cup 
BLO 
MQV 
MOV 
move 
usr 


UP NOF 
ecs 
,ENOC 


MOV 
JSR 
Bea 
aur 
“OVE 
cure 
BEG 
CMPB 
BNE 
CMPB 
Bea 
cMPB 
8eQ 
cura 
BEO 
ume 
ERRPDS) UMP 


a TPNOF 
ERRMX45 UMP 
sENOC 


1FS¢Tt TST 
MQV 
IFUGTRY MOVE 
cure 
BE0 
cMPB 


TFLLYRY 


PAGE 2402 


BNE 
Cups 
BEo 
CMPB 
BEQ 
CMPB 
BEQ 
PLlg 
RESTOREIMOV 
uM 


(SP)e 

CSP) 4,RO 
IFLLTR 
(RL) 8 LE 
ERRSX7 
(RL) 8, £0 
ERRSX7 

SP ,R4 

ERRPOS 
FAG2(R5), (SP) 
FACL(K5),0(SP) 
CRY) en (SP) 

PC EVAL 


SNoSTR 
ERRMKS 


(SP)4,RO 
pes suasTK 
IFLEOR 
IFLGTHR 
CRY) Op RZ 
R2,8, THEN 


ht J 
R2,8,G0TO 
ERRSXO 
ROA LE 
GOTO 
ROA be 
GOTO 

RO a, NE 
GOTO 
IGNORE 
ERRPOL 


SNOSTR 
ERRMIX 


(SP)o 
CSP)e,R9 
CRY) Op R2 
R2,8, THEN 
eto 
R2,8,G0T0 


ERRSXO 

RO, 8, GE 

GOTO 

RO,#, GT 

GOTO 

RO, 8, NE 
GOTO 

TGNORE 

#04, PPOL(RS) 
EXECUTE 


BASICL 


43519 
1320 
4522 
1322 
1323 
1324 
1325 
4326 
4327 
4328 
4329 
1530 
4331 
4332 
1333 
1334 
1335 
1336 
4337 
1338 
1539 
1340 
4342 
1342 
1343 
1344 
1545 
1346 
1347 
4348 
1349 
1550 
4554 
1352 
1353 
1354 
1555 
1356 
1357 


BASICL 


13568 
1359 
1560 
4362 
4362 
4363 
1364 
1365 
1366 
1367 
1368 
1369 
4578 
4573 
1372 
1373 
4374 
4375 
4376 
1577 
1578 
1379 
1580 
4381 
1382 
4383 
1384 
4385 
1386 
1387 
15868 
1389 
1599 
1393 
1392 
4393 
4594 
1395 
1396 
4597 
1598 
1399 
1400 
2401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
4422 
1412 


MACKi1 


304058 
984054 
284856 
884262 
984064 
884966 
384079 
854076 
804129 
084104 
004106 
904112 
804116 
804120 
884122 
884126 
804130 
604134 


084136 


904141 
084142 
ao4144 


904347 
064159 


MACKAL 


804154 
994160 
884162 
884166 
884172 
064474 
984176 
884282 
884294 
084210 
884212 
004214 
084216 


884222 


804226 
284230 


984233 


304234 
824236 
004249 
884242 
094244 
904246 
284259 
994252 
084256 
284260 
084264 
804266 
884272 


884276 


304308 
084326 
384312 
384316 
384328 


Voar 


904767 
103435 
122127 
361052 
383712 
204425 
126427 
901915 
216503 
296383 
666583 
829365 
192896 
40135 
305265 
821204 
400167 
agage4 


O47397 


008 
300004 
946125 


208 
000167 


vo2d 


122127 
884373 
246503 
324327 
04445 
885303 
810365 
286323 
366503 
885713 
281405 
o1i3er 
280167 


680167 


880006 
041122 


000 


910146 
885316 
112122 
120742 
483332 
152102 
861522 
224227 
001734 
122127 
204334 
910265 
804767 


193754 


932765 
884767 
122127 
201314 
384767 


22eMARe73 


210768 


Gee20, 


477774 
880052 
080804 
299802 


ogoe3s2 
176642 


424 


126 


096370 


22emMARe73 


99203 
Bepese 
8980S3 
ageese 
992004 


476524 


88O564 


427 


177777 
090254 


agog22 
895194 


177777 
014742 
298240 


005056 


000206 


288024 


15144 PAGE 22 


1 'GosuB! AND ‘GOTO! STATEMENTS 
GosuBt 
Gofdr sR PC, FLINE 
acs ERRSKO 
CMPB CRY) oye EOL 
BNE ERRSX4 
TST (R2) 
Bea ERRGO 
CMPB #4(R1),8,GOSUB 
BNE GONOSAV 
MOV GSBCTR(RS),RI 
ASL RS 
400 POL(RD) RS 
CHP RS, LIMITERS) 
BHI ERROEEP 
MOV RA, CRS) 
INC GSBCTHIRS) 
GONOSAVIMOV CR2) RY 
HP EXECUTE 
ERROEEPS JOT 
vlFNOF = SLONGER 
sASCIL \GNON 
sENOC 
i UFOF SLONGER 
sASCIL 'GOSUBS NESTED TOO DEEPLYS 
VENOG 
,BYTE @ 
,EVEN 
ERRGOS 107 
LIFNOF SONGER 
eASCIT NULNN 
VENOC 
sSFOF = SWONGER 
sASCII UNDEFINED LING “UMBFRE 
ENO 
BYTE @ 
VEVEN 
ERRSX64 UMP EKRSX9 


15144 Pace 25 


} PRETURNS STATEMENT 
RETURNI CMPB (RL) 6) 8, £01, 


BNE ERRSX6 
MoV GSBCTRIRS),R3 
cup RI, 833 
B&Q ERRRET 
oec RS 
MOV R3,GSBUCTR(RS) 
aS, RS 
ao0 POL (RD), RS 
Ts? CR3) 
BE ERRRET 
¥ MOV (RS), RY 

JMP EXECUTE 
rIFNOF = SNOSTR 

ERRMXS1 MP ERRMIX 
1 ENOC 


ERRRET} SOT 
tTFNOF © SQOQNGER 
sASCIT \RBGN 
,ENOC 
LIFDF © SQONGER 
sASCII ‘RETURN BEFORE Gnsus! 


,ENOC 
BYTE DB 
EVEN 
y PFOR! STATEMENT 
FOR! MOV Ra,e(SP) 
OE (SP) (LOC OF THE # FORE) 
MOVE (RE) O,R2 
amt ERRSX6 
Swas Re 
8188 CRY) oyR2 
ado (RS) RZ 
cuP (R2),8,SVAR 
BEQ ERRSX6 
CMPB (R496, 8,60 
BNE ERRSX6 
MOV R2,VARKSAV(RS) = (VAR AF THE FOR) 


dsr PG EVAL 
1]FNOF SNOSTK 


ecs ERRMXS 

eENDC 

MOV Wed, SSLSAV(R5) SFORCE TD SCALAR, 
vsr PG, STOVAR 

CMPB {R4)o,#, 70 

SNE ERRSXO 

JSR PG, EVAL 


V{FNOF  SNOSTH 


See 


BASICL 


4443 
a4a4 
3415 
2426 
2427 
2418 
1419 
1420 
4424 
1422 
4423 
1424 
1425 
1426 
1427 
1428 
1429 
44308 
4434 
1432 
4433 
1434 
4435 
1436 
1437 
4438 
1439 
1448 
1443 
1442 
1443 
4444 
1445 
4446 
1447 
4448 
4449 
1458 
2433 
1452 
1433 
1454 
1455 
1456 
1457 
1458 
1459 
4408 
4463 
1462 
1463 
4464 
1465 
1466 
1467 


BASIC. 


1468 
1469 
1478 
1472 
1472 
4473 
1474 
1475 
1476 
1477 
4478 
1479 
4480 
1482 
1482 
1483 
1484 
4485 
1486 
1487 
1488 
1489 
1499 
1492 
1492 
4493 
1494 
1495 
1496 
1497 
1498 
1499 
45e0 
1504 
4502 
1503 
1504 
1505 
1506 
4507 
1508 
1509 
1512 
1913 
1512 
4513 
1514 
1515 
1516 
4317 
1918 
1519 


MACX22 
0946324 


904326 
884334 
884342 
804346 
884354 
084360 
884362 
984366 
084378 


884374 


884376 
064402 
084404 
394406 
894412 
a04ai4 
204429 
994422 
094424 
084426 
004439 
884432 
004434 
004449 
004442 
884444 
304459 
804452 
084456 
004469 
084464 
804466 
004479 
0894472 
894474 
984476 
894508 
994502 
884504 
884518 
694512 


984514 


994517 


MACX11 


904528 
904524 
394526 
004530 
884532 
804534 
204536 
004549 
304544 
004546 
094552 
006554 
304500 
004504 
804566 
304572 
304576 
304602 
804606 
904612 
304616 
304622 
304626 
904030 
304634 
004636 
494642 
084646 
304652 
004656 
004662 
304664 
004666 
304679 
204672 
304674 
394709 
304722 
004704 
a04718 
004714 
094728 
904722 
394726 
804739 
084732 
884736 
304744 
204746 


VOes 
193736 


016565 
916565 
885965 
012765 
124127 
81422 
122127 
004270 
304767 


183732 


124227 
801262 
095203 
8146503 
8e04e2 
804767 
141102 
100442 
085284 
809302 
152102 
964522 
824227 
103903 
341293 
121127 
091420 
121127 
2044290 
121127 
o0{333 
605203 
2af102 
198758 
35202 
380302 
152102 
961582 
020265 
994344 
opege4 


853526 


vo2. 


62704 
121192 
1907352 
295203 
888302 
152122 
864502 
220265 
804323 
122127 
0010590 
162702 
126623 
121621 
116522 
126521 
116521 
126521 
116523 
116521 
116521 
116521 
819316 
316546 
201902 
916516 
0165466 
236546 
004767 
084767 
901424, 
180408 
085726 
1804147 
a904a4 
206167 
085726 
180912 
912665 
125064 
105861 
909203 
160167 
495726 
385726 
116146 
116166 
912603 
100167 


22eMARe73 


898049 820024 
290042 898026 
000040 
880801 880042 
898202 
098241 


805806 


898203 


eeeese 
014558 


177775 


890225 
e021 
860203 


bgae22 


426 


22eMARe73 


099845 


agoe22 
oea2e, 


genet 
890003 


ogoo25 
oagez4 
o00e27 
888026 
ogoe4d 
090040 
392043 
990042 


080040 


090042 
098026 
agoues 
an4524 
014566 


235644 


000030 
477764 
177705 


176628 


477765 


177764 9900084 


475770 


15144 


15941 





oy cHPe 
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acs 
sENOC 


MOV 
MOV 
CLR 
MOV 
CMPa 
BEQ 
cMPB 
BNE 
JSR 


ap PNOF 
acs 
sENOC 


Cup8 
BNE 
INC 
MOV 

oR 
FORSKIPtySR 
FORLOOK MOVE 
BMI 
tNC 
SwaBs 
8188 
apo 
CMP 
SHIS 
MOV 
CMPa 
4.) 
curs 
BEG 
CmPB 
BNE 
tne 
MQVB 
aM} 
INC 
Swag 
BIsB 
a00 
CMP 
BNE 
yor 

cl FNOF 
sASCIL 
,£NOC 
,1FOF 
sASCLI 
sENOC 
,BYTE 2 


FORONE} 


FORNOLI 


ERR4WOt 


PAGE 2302 


1 EVEN 
ForRNEX?tADO 

MOVE 
But 
TNC 
Swag 
Bys8 
400 
CMP 
BNE 


BNE 
sys 
MOVE 
move 
MOVE 
“Ove 
“ove 
MOQy8 
“ove 
“Ova 
Move 
“Ove 
MOV 
“OV 
BNE 
“OV 
MOV 
MOV 
JSR 
JSR 
geo 
amt 
FORGYLNETSY 
amy 


BR 
ERSX49) JMP 
FORLTLMITST 
BPL 
FORZEROIMOV 
CLR 
CLRB 
INC 
ume 
FORGOGOITST 
FORGO! TST 
Move 
move 
MOV 
ump 
E07 


_ AGSP)) CRD 


ERRMXD 


FACL(K5) ,SSASAV(R5) 
FAC2Z(K5S),SS2SAV(RS)S(LIMIT OF THE FOR) 
FACL(RS) 

OL, FAG2CR9y 
CRA)» 8, EOL, 
FORONE 
(Roo, 8, STEP 
ERRSX6 
PO,EVAL, 


SNOSTK 
ERRMXS 


PASS'MFO STEP IS 1,3 


sCFAC HAS THE STEP) 


CRS), 8 EO 
ERRSX6 

ay 
LINENO(RS) RS 
FORLOOK 

PG, SKIPEO,, 
CRL) RZ 
FORNOL, 

RY 

Re 

(RY) 0, R2 

(R35) ,R2 
(R2), 8, SCALAR 
FORNOL 
(R2),KS 
(RL), 8, EOF 
ERR4WO 
(R4) 8, NEXT 
FORNEXT 
CR4))#, FOR 
FORSKIP 

Ry 

CRE) RZ 
FORSK{P 


HCTHE LINENG WHILE LOOKING) 


1THE CODE 1S NOW BEING SEARCHED 

}FOREWARO FROM THE (FOR? FOR A NEXT WITH 
HTHE SAME VAR, IF (EOF! OR ANOTHER (FOR! 
sWITH THE SAME VAR IS FOUND FIRSTIERROR, 


Ri 

RZ 

CRY) O)R2 

CR5) KZ 

RZ, VARSAVERS) 
FORSK JP 


SWONGER 
eFWNe 


SLONGER 
*FOR WITHOUT NEXTE 


#13,R1 

(RL) RZ 

FORSK|P 

RY 

R2 

(Ro) o,R2 

(R5),K2 

RZ, VARSAV(RS) 

FORSK iP 

CRO), 8, EOL 

ERSX49 

#44, RY 

JPUT ADDR OF THE 
CSP), ¢RLD¢ H47HATS WHAT THE 
SSASAVOL(RS), (CRIVSPPUT THE LIMIT 
SSUSAV(RS), (R1ID* 

SS2SAV*L(RS), (Ride 
S$2SAy(R5),(R1Ve 
FACLOI (RS), (RAYS 
FACA(K5), (R16 
FACZ02(R5), (RIe 
FAC2(K5),(RADe : 
R3,(SP) yPUT THE SEARCH LIJNENO ON THF STACK, 
FACS (a9) y2t3P) JPUT SGN(STEP) ON THE STACK, 

e 


t 

FAC2(R5), (SP) 
SS2SAV(R5),0(SP) 
SSASAV(RS),0(SP) 
PG,EVAL 

PC, SUBSTK 
FORGOGO 

FORL TAM 

(SP)¢ 

FORGO 

FORZEKO 

ERRSX> 

(SP)¢ 

FORGO 

(SP) op, INENOCRS) 
en4cRd) 

wU3S(RL) 


tFORl AFTER THE I NEXTS, 
24464 BYTES ARE FOR) 
AFYER THAT, 


HPUT THE STEP AFTER THAT, 


JPUT THE LIMIT ON THE STACK, 


1GET TWE CURRENT VALUE OF THE INDEX, 
}SUBTRACT THE LIMIT, 


RY 

EXECUTE 

(SP)e 

(SP)4 
43(R29, (SP) 
wh4CRE2,1¢08P) 
CHP) O RL 
TGNORE 


BASICL 


3520 
1524 
4522 
4523 
1524 
1525 
1526 
15327 
1528 
1529 
1530 
153% 
1532 
13533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1543 
1542 
1543 
4944 
1545 
1546 
1547 
15468 
4549 
4550 
1553 
4552 
14553 
1554 
4555 
4556 
1557 
1558 
1559 
1560 
1563 
1362 
19635 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1573 
1372 
4573 
1574 


BASICL 


1575 
1576 
1577 
1578 
1579 
1580 
1583 
1582 
1583 
1586 
1585 
3586 
1587 
1588 
1589 
1598 
1594 
4592 
4593 
4594 
1595 
1596 
1597 


MACXLL 


884752 
804754 
304756 
884769 
884762 
084766 
084778 
984774 
204776 
085902 
805004 
895906 
205018 
805812 
395814 
805816 
295820 
805822 
o95e24 
085926 
8059352 
285934 
905949 
885044 
085046 
205952 
905854 
295856 
985962 
805066 
085078 
885972 
005876 
895190 
085104 
005110 
095112 
885120 
905124 
005138 
885134 
805136 
885142 
005144 
905159 
805154 
085156 
805160 
005164 
905166 
005178 
305174 
005176 


MACX44 


805208 
885202 
925206 
095218 
805214 
905216 
995222 
805224 
8052350 
805234 
995242 
805246 
825252 


085254 


005257 
395260 


vo2s 


295802 
152192 
386302 
152122 
820265 
183134 
122227 
881126 
962703 
112123 
100525 
080383 
154103 
264503 
205301 
122122 
aesai4 
124122 
801112 
121227 
304107 
840365 
824327 
904595 
022327 
OB4404 
841303 
312365 
911365 
805304 
124146 
114166 
124146 
114166 
641665 
881983 
016665 
204767 
016546 
916546 
114146 
124166 
134146 
114166 
004767 
801417 
100404 
095765 
190423 
898403 
905765 
1290997 
105041 


va2s 


185042 
062704 
922626 
980167 
114146 
124166 
012602 
042665 
812665 
942765 
884767 
880167 
200006 


341116 


280 
900167 


22eMARe73 154844 PAGE 24 


' 
+ INEXY! STATEMENT 
Re 


NEXTH CLR 

Byse (RY) 6yR2 

SWAB Re 

8ysB (RL) o,R2 
200034 CMP R2,LOFREE(RS) 

BHIS ERRNEXT 
og02e3 CMPB (R2) 6,8, FOR 

BNE ERRNEXT 
000022 ano 640,R3 

nove (RYO pRS 

BM} ERRSXZ 

SWAB RS 

81SB CRO ARS 

ado (R35) ARS 

oEC Ry 

CMPB CRL) Op CRI) 4 

BNE ERRNEXT 

cups CRY), (R206 

SNE ERRNEXT 
090254 cure (R2),8,£0 

BNE ERRNEXT 
eeovz2 MOV R3,VARSAV(RS) 
177777 CMP (R3),8,SVAR 

BED ERRSX2Z 
177775 cup (RS)e,#, SCALAR 

BEO 1o4 

MOV (RS) RS 
000040 MOV CR3) Op FACLERS) 
agee42 MoV (R3) ,FAC2(RS) 

oec Ry 

: Move o(RL),e(SP) 

90802 MOVE eG Raga (SP) 

Move e(RL),e(SP) 
290003 MOVE eCRA) pL CSP) 
a900826 MOV 

BNE ro] 
B80RR2 g88826 MoV 2¢S5P),SS2SAVCRS) 
292476 JSR PG, ADYSTK 
090842 MOV FAC2(K3), (SP) 
900040 MOV FACLCR5), 0 (SP) 

MQOVB e(Ra)ge(SP) 
290002 MOVE (RIG CSP) 

MOVB e( RL) ,e(SP) 
808001 Move oCRA9 4 (SP) 
014274 JSR PC, SUBSTK 

BEG NEXGO 

amy NEXLTLM 
Og00z6 NEXGTLMITST SS2SAV(RS) 

BM} NEXGO 

BR NEXENQ 
BoeR26 NEXLTLMI TS? SS2SAV(R5) 

8p NEXGO 


4 
NEXENOT CLRB *(R4) 


22eMARe73 «151844 = PAGE 2404 


CLRB e(Rd) 


eeoeis 00 #45, R2 

cMP (SP), (SP)s 
175532 ume EXECUTE 

NEXGO} MOVE e(RL),e(SP) 

ogoges MOVE = (R42) QL CSP) 

MOV ($P)0, R41, 
ogouse MOV (SPO) FACLERS) 
290042 MOV (SP) oy) FACZ(RS) 
177777 agne24 MOV Hes, SS1SAV(RS) 
814026 usr PC, STOVAR 
173470 JMP IGNORE 


ERRNEXTIIOT 
tTFNOF SLONGER 
196 +ASCIT  \NBFN 
,ENDC 
1IFOF © SLONGER 


SOURCE FILE #3 


SJUST 70 PREVENT AN NXM TRAP, 


}SAVE VARIABLE ADDRESS, 


sPUT THE FOR VAR VALUE INTO FAC, 


sPUT STEP ON THE STACK, 


(SP),SS2SAV(P5) ;SAVE SGN(STEP), 


HTHROW AWAY INCREMENTED INDEy, 


ISTORE THE INCREMENTED INDEX, 


ASCII NEXT BEFORE FOR! 


,ENOC 
:BYTE 8 
1EVEN 


895260 ERRSX2) JMP ERRSXD 


Ol 


BASICL 


1598 
1399 
1600 
1602 
1602 
2603 
1604 
4605 
1606 
1607 
1608 
1609 
1619 
a6aa 
1612 
1615 
1614 
1615 
1616 
1647 
1618 
4619 
1020 
1623 
1622 
1623 
1624 
1625 
4626 
14627 
1628 
1629 
1638 
1633 
1632 
1633 
1034 
1635 
1636 
1637 
1638 
1639 
1648 
4044 
1642 
1643 
4644 
1645 
1646 
1647 
1648 
1649 
1650 
1653 
1652 


BASICL 


1653 
1654 
1655 
1056 
4657 
1658 
1659 
1668 
1663 
1662 
1663 
1664 
4665 
1066 
1667 
1668 
1669 
1678 
1672 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1683 
1682 
1685 
1684 
1685 
1686 
1687 
1688 
1689 
1699 
1693 
1692 
1693 
1694 
4695 
16096 
1697 
1698 
1699 
17280 
1704 
17282 
1703 
1724 
1705 
1726 
1727 


MACX11 


085264 
385270 
995272 
805274 
395300 
085302 
285304 
905312 
895316 
205320 
885324 
985326 
895352 
885334 
8053498 
895342 
805346 


905358 


985354 


085356 
8B5364 
895366 
085372 
885376 
285406 
805404 
995405 


885406 


085419 
805412 


005414 
085416 
385429 


MACXL 


095422 
095424 
325426 
385432 
985449 
005442 
305446 
005459 
205454 
905456 
003469 


005462 
085466 
085478 
805474 
085476 
925522 
085504 
305519 
985512 
205516 
905520 
005524 
305526 
095536 
395534 
285536 
305542 
085544 
685559 
885552 
985556 
30556g 
385564 
905565 


305566 
895579 
905574 
305576 
305608 
205604 
805606 
905610 
985616 
005622 
305626 


vo2a 


124127 
884916 
905201 
304767 
085702 
a04423 
426265 
124427 
201403 
122127 
881355 
124127 
204453 
121127 
804453 
121127 
601458 


094767 


183447 


927527 
191402 
884767 
984767 
820726 
894167 

040 

908 


990430 


005406 
080420 
200402 


812602 
805202 
281423 


V@2a 


895803 
154203 
962702 
427527 
103422 
384767 
112208 
384767 
885303 
993365 
498403 


494167 

940 
124127 
981893 
384767 
200444 
122127 
304927 
217509 
281438 
920027 
081425 
103403 
004767 
200421 
220027 
204416 
020827 
81413 
220027 
aai4ie 
04467 

349 

220 


000752 
124127 
891254 
205204 
124127 
701250 
305284 
142765 
260565 
103065 
588167 


22eMARe73 


890261 
093410 
895406 
80204 
200260 
800243 
808236 
goe2e4 


8O4926 


390034 


800248 
012340 


212974 


22eMARe7S 


OB0805 
200854 


898464 
813252 


012012 

ooo 
egozey 
090330 
0g0243 
og0034 


280070 


388076 
200052 
998034 
@08016 
414724 


828236 


998201 


429036 
238054 
020076 
175114 


800034 


080074 


068112 


200834 


45144 PAGE 25 


+ PPRINT? STATEMENT 


PRINTI Cpe 
BNE 
tne 
JSR 
TST 
BEO 
MOV 

COLONCHICMPB 
BEQ 
CMPB 
GNE 

PRNT@11 CMPB 
BEO 
CMPB 
BEO 
CMPB 
BEO 


,TFOF 
CMPB 
BE 
CmPB 
BEo 
cMPS 
Bea 
ENOC 


JSR 


av TFNOF 
scs 
ENO 


Cup 
BLOS 
JSR 

vSR 

, WORD 
JSR 
ASCII 
BYTE 8 
EVEN 
BR 


TABLS 8, 02 
» 
« 


1FNOF 
PRISTRI MOV 

INC 

HEO 


15144 = PAGE 2504 


cLR 
8{s8 
A00 
PRILOOPSCMP 
BLO 
JSR 
MOVB 
JSR 
OE 
BGT 
BR 
+ ENOC 


PRICMS yJSR 
1BYTE 
PRIBOTHICMPB 
BNE 
JSR 
BR 
PRIMOREICMPB 
BNE 
PRICOMMEMOV 
BEO 
CMP 
BEO 
BLO 
vSA 
BR 
CMP 
BEO 
cup 
BEQ 
CMP 
BEQ 
VSR 
sASCIT 
1BYTE 2 
,EVEN 
BR 
PRISEMIICMPB 
BNE 
INC 
PRITESTICMPB 
BNE 
PRIUMP? INC 
MOV 
400 
CLRB 
uMP 


vSFOF 
PRISTRy MOVE 

CMPB 
PRISJI BNE 
PRIST2; MOVB 


CRE) 0%, POUND HIS IT (PRINT BNE Vea! ? 
PANTOR 

Ry 

PC, CHKOSET CHECK CHANNEL AND SETeyP 1/0 
R2 HOEVICE CODE 

COLONGH 

TABLS5 (RZ), COLUMNERS) JNON®TTY COLUMN COUNT 
CRY), #, EOL 1DON'T NEED COLON IF NOTHING 
PRNTOL » FOLLOWS NUMBER 

(RG) oy", COLON 

ERRSX2 

(R41), #, COMMA 

PRICM 

(RL), 8, SEM! 

PRIBOTH 

CRE), 8, EOL 

PRIBOTH 


SnoSTR 
(R4),8,SQUOT WCHESK PRINT STRING 
PRISTH 

(RL), #8 ,00U0T 

PRISTK 

(HE) 8, TAB yOR TAR FUNCTION 
PRITS 


PC, EVAL, 


SNOSTR 
PRISTR 


OCOLUMN(RS) #74 
*6 


' 
PC,PRINCR 
PG, NUMSGN 
PUTCWAR 
R},MSGODEV 
‘ 


PRIBOTH 


CUMNPP 
CUMNLP 


SNOSTK C; 
{Spe cRe A - 
R2 

PRIBOTH 


R3 
oGRZ) ERS 

#3,R2 
®GOLUMN( RD), #119 
1*6 

PC,PRINCR 
(R2)4)RO 

PC, PUTCHAR 

RS 

PRILOOP 

PRIBOTN 


Ri MSGODEV 
Bue 
(RL), EOL 
PRIMOKE 
PC, PRINCR 
PRIJMP 
(RL) 4,8, COMMA 
PRISEM 
@COLUMN( RS), 28 
PRITEST 
RO, #78 
PRITEST 
eho 

PC, PRINCR 
PRITEST 
RO, #52 
PRITEST 
RO, 834 
PRITEST 
RO, #18 
PRITEST 
R4L,MSGODEY 
fF 


PRICOMM 
#(R1),8, SEMI 
PRNTBS 

R 


CRL),# £04 

PANTOL 

Ry 

eGLMNTTY, COLUMN( 95) JRE®SET TO TTY CALUM™ COUNT 
RD, COLUMN(R5) 

ODEV(KS) 

EXECUTE 


SNOSTR 

CRA OARS HSAVE OPEN QUOTE CHAR 2. 03 
(Ra jpe,a, TEXT yTEsT FOR TEXT BYTE 
ERRSX2 

CRE po R2 1GET NEXT CHAR 


BASIJCL 


37068 
1709 
2710 
a7.a 
4712 
1713 
1714 
4725 
1716 
4717 
4718 
1719 
1728 
4722 
1722 
2723 
1724 
4725 
1726 
1727 
1728 
4729 
1738 
4734 
1732 
4733 
4734 
4735 
4736 
4737 
1738 
4739 
1748 
1742 
1742 
1743 
1744 
4745 


BASIC, 


4746 
1747 
1748 
4749 
17508 
175% 
1752 
1753 
1754 
1755 
1756 
1737 
17568 
3759 
4768 
4762 
4762 
1763 
1764 
4765 
1766 
1767 
1768 
1769 
1770 
2773 
4772 
4773 
1774 
4775 
1776 
1777 
1778 
1779 
4788 
1781 
1782 
1783 
1784 
4785 
1786 
1787 
1788 
1789 
4799 
1794 
4792 
1793 
1794 
1795 
1796 
1797 
1798 
4799 
1890 


MACX11 


985632 
985636 
0956498 


395642 
885646 


MACX21 


095650 
005654 
085656 


925662 


095665 


285666 
805672 
985676 
095702 
085786 
085710 
085714 
005716 
085722 
885726 
985730 
885732 
285736 
905749 
985742 
025744 
805746 
985750 
805754 
085756 
0895762 
305764 
885770 
905772 
808776 
805777 


906089 
286002 
806006 
906010 
886014 
926016 


306022 
386926 


906038 
9860352 
206034 
306048 


voes 


004147 
045 
oo9 

383642 

903975 

80207 


ve2s 


920165 
101926 
204167 


946ad1 


CTT) 


080167 
195065 
105065 
121127 
284040 
105265 
205201 
1046767 
122127 
201159 
312746 
262716 
112122 
180543 
290322 
152102 
061582 
804767 
211603 
124327 
201053 
195765 
A01993 
004167 

g77 

gag 


910246 
204767 
193902 
200167 
942604 
216522 


21227 
981512 


310146 
518446 
216504 
122127 


22eMARe73 


811642 
B12 


898054 


22emARS7S 


880016 
814902 
316 


173334 
090062 
880077 
oozes 
ogoe2 
092760 
goo260 


090426 


7O7418 
8e02e2 
ao0eee 
811454 


910126 
098512 
a9ee22 


177777 


880020 
898815 


15144 PACE 2502 
8Ea PRISTS 
lad RZ RS 


8€0 PRIBOTH 
CHPB RZ, #, £0u, 


Bea ERRSX2 

CHP @COLUMNG RS), #149 
80 #6 

usr PG,PRINCR 

MOV R2,RO 

JSR PG, PUTCHAR 

BR PRIST? 


PRITBI STB (RU}e 
vsR PG, EVAL 
usr PGINT 


CMPB (RO)%,4CR 


HCHECK CLOSE Quore 
SCHECK END LINDO 


iGET FN VALUE 
HCOMPUTE # SPACES 


sRESET INPUT TO TTY 
HIS [7 CINPUT ANE 4,, 6? 


HCHESK CHANNEL ANO SET#UP INPUT 


CMPB (RL), #,RPAR 
ONE PRISJ 
MOVE FAC2(RS) RO 
sys OGOLUMN( RS) ,R2 
PRITBQs CMP R2, 872, 
a0 PRITS2 
sus #72, ,R2 
BR PRITSo 
PRITB11 OES Re 
BM} PRIBOTH 
MoV #84, R08 
JSR PG, PUTCHAR 
@R PRITAR 
,ENOC 
' 
PRINCRI JSR Ra MSGODEV 
:BYTE = CRLF 
,BYTE B 
vEVEN 
CLR @COLUMN( RD) 
RTS PC 
15444 PAGE 26 
) FINPUT! STATEMENT 
INPUT] CMP RY CODERS) 
BHI UNPYES 
vSr R4,MSGERR 
stFNOF SONGER 
eASCIT NUUNN 
,ENDC 
LIFOF «= SQONGER 
sASCIT CF ULLEGAL Nowe 
,ENOC 
s8YTE 2 
1EVEN 
wMP READY? 
INPYES) CLLRS TS¢R5) 
CURB TOEV(RS) 
CMPB (R4),8, POUND 
BNE INPY@2 
INCB T3CRS) 
INC RY 
JSR PG, CHKISET 
cMPa CRY) Op, COLON 
BNE ERRSXS 
INPY@L) MOV PG, a($P) 
INPPCE A00 WINPEOL*INPPC, (S?) 
INPLOOPIMOVE CHL) eR2 . 
BM} ERRSXY 
SWAB R2 
a1se (RY) o)R2 
a00 (R5),R2 
JSR PG,GETVAR 
INPRTRYIMQV {SP),K3 
CMPB CR3) 8, EOL 
BNE INPOK 
INPNEW! TSTB TS(RS) 
BNE NOGM 
JSR RA MSG 
sASCIT 678 
BYTE 2 
rEVEN 
NOQMH = MOV R4,0(SP) 
JSR PC LINGET 
Bcc NOQMS 
UMP ERRDATA 
NOQMi} MOV (SP) o,Rd 
“OV VARSAV(RS) ,R2 
sIFNOF SNOSTH 
GMP (R2),8,SVAR 
BEO INPSTK 
+ENOC 
MOV RL,eCSP) 
MOV R4,0(SP) 
Mov LUNE CHS) RL 


AOS 


BASIC, 


1824 
1602 
1803 
1804 
18085 
1826 
1807 
14606 
1809 
1810 
4612 
1012 
2645 
1844 
1815 
1816 
4817 
1618 
1619 
1820 
4823 
4622 
4823 
1824 
1625 
1626 
1827 
1826 
1829 
1830 
4833 
1632 
18335 
1634 
1835 
4836 
4837 
1638 
1039 
4840 
1843 
1642 
4843 
1044 
1845 
1646 
1847 
4648 
1069 
1858 
1853 
4652 
14653 
1654 
1855 


BASICL 


1656 
1857 
1058 
4859 
1868 
1864 
1862 
1863 
1864 
1865 
1866 
1867 
1868 
1869 
1870 
1872 
1872 
4873 
4874 
4875 
1876 
4877 
4878 
4879 
1880 
1883 
1882 
188s 
1884 


MACXAL 


906044 
896046 
086058 
806052 
286856 
886068 
886862 
886066 
926878 
306074 
306106 
806192 
806184 
966118 
806122 


086116 
096122 


96124 
886126 
096132 
086156 
986142 
886144 
996150 
886152 
806154 
986168 
006162 
886166 
886470 
306474 
086176 
886202 
006204 
086212 
096214 
206216 
996222 
886224 
886238 
806234 


986249 


086243 
306245 


886246 


MACX11 
386258 


686254 
986260 
906262 
906266 
806272 
986272 
986276 
086308 
986322 
886304 
806306 
886310 
096314 
096320 
086324 
886326 
086332 
986334 
8063356 
386342 
896346 


886350 
906352 


vezi 


084375 
10104 
905204 
620465 
181135 
124144 
020465 
181374 
422732 
304767 
212604 
922622 
226526 
a90724 
846582 


324227 
904729 


095203 
agsges 
203965 
121327 
084403 
404767 
990433 
819336 
204767 
811623 
424327 
ao4aas 
421327 
204037 
422127 
881655 
126127 
981026 
285726 
193765 
opran2 
995965 
200167 
004167 


854182 


015 
oe0 


200646 


voaL 
000167 


916503 
810302 
122327 
201375 
210246 
162716 
810346 
160216 
385316 
401416 
240602 
262702 
204767 
204769 
085726 
122127 
201324 
295726 
360267 
3142716 
200764 


800204 
300167 
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898816 


egoe20 
eoees4 
o134%2 
aoeoze 
geou22 


477777 


990040 
890942 
oop243 


610104 


915074 
998243 
099203 
099245 
177777) «eeeeos 


890877 
898036 
174512 
011204 


124 


o12 


BNE 
MoV 
INC 
CMP 
BHI 
Move 
CMP 
BHI 
MOVE 
JSR 
MoV 
MOV 
MOV 
BR 
UNPOK} MOV 


rIFNOF 
CMP 
Bea 
sENOC 


tn 
CLR 
CUR 
cMPa 
gea 
vSR 
8R 
INPSTO} MOV 
JSR 
MOV 
cues 
Bea 
CMPB 
BNE 
INPGOODICMPB 
BEG 
TNPEND} CMPB 
BNE 
tsT 
TS78 
BNE 
CLR 
GOEXEC ) UMP 
INPNGUDT JSR 
rT PNOF 
ASCIL 
sENOC 
VIFOF 
1 ASCIT 
,ENOC 
iBYTE 
:BYTE 3 
1 EVEN 
8R 


22eMARe7S «15141 PAGE 2602 


684270 


oa0020 
9eeo15 


889005 


pongo 
O10732 
013010 
aan24s 


177366 
177777 


013616 


ERRSX81 yMP 


1 TFNOF 
INPSTRE MOV 
MOV 
CMPB 
BNE 
MOV 
sus 
MOV 
sys 
DEC 
BE0 
MOV 
aoo 
vSR 
INPNNULIJSR 
TsT 
CMPB 
BNE 
TST 
vMP 
TNPNULL MOV 
@R 


vENOC 


INPEOL! ,WORD 
ERRTR8| UMP 


a4 
RLIRS 
Re 


R4, COUE(RD) 
ERRTRO 

o(RAD 064) 
RAgLPNECRD) 
106 

oy (Ad) 

PG, TRAN 

(SP) o,R4 
(SP)e,R2 
LINECRS), (SP) 
INPRTKY 
VARSAVERS) ,R2 


SNOSTR 
(R2),8,SVAR 
INPNEW 


RS 

FACA(KS) 
FAG2(RS) 
(R3) 8, COMMA 
INPSTO 

PG LITEVAL 
INPNGYD 

RS, (SP) 

PC, STOVAR 
CSP) KS 
(R3) 8, COMMA 
LNPGOOD 
6R3), 8, COW, 
TNPNGUO 
(Ru) e) 8, COMMA 
TNPLOOP 
PLORL2,#, EOL 
ERRSXY 

(SP)o 

JOEV (KS) sIF TTY INPUT, CLR COLUMN CUOIINT 
GOEXEC 
CLMNTTY(RS) 1} FOR SAME 
EXECUTE 

RY, MSGERR 
SLONGER 

\BRTN 


SKONGER 
*BAD UATASRETYPE FROM ERROR, ! 


CRoLF 


TNPNEW 


ERRSXD 


SNOSTK 
LINECRS) RS 
RS,R2 
(R3)o,#CR 
,04 
R2,0(SP) 
#3, (Sh) 
R3,0(SP) 


SPyR2 
#2,R2 
PC,MAKESTR 
PC, STOSVAR 
(SP)e 
(RO) oe, 8, COMMA 
INPEND 
(SP)@ 
INPYOL 
#et,(9P) 
INPNAUL, 


Eo 
ERRTRN 


ACG 


BASICL 


1685 
1086 
1887 
1688 
1889 
4890 
1893 
4892 
1893 
1694 
4895 
1896 
4897 
1898 
1699 
1908 
1903 
1902 
19985 
3904 
1995 
1986 
1997 
41908 
1909 
1919 
2922 
1922 
2913 
1914 
4915 
1916 
1917 
1918 
1919 
1920 
1923 
4922 
1923 
1924 
1925 
4926 
1927 
1928 
1929 
4930 
19314 
1932 
1933 
1934 
4935 
1936 
1937 
4938 
1939 


BASIC. 


1949 
1943 
1942 
4943 
1944 
1945 
1946 
4947 
1948 
1949 
1950 
4953 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1968 
1963 
4962 
4963 
1964 
4965 
1966 
1967 
1968 
4969 
19798 
297% 
1972 
1973 
1974 
1975 
1976 
1977 
1976 
1979 
1982 
1981 
1982 
1983 
1984 
1985 
21986 
4987 
1988 
1989 
1992 
199% 


MACXA1 


896356 
996368 
086362 
286364 
806366 
996378 
BB6374 
886409 
886402 
096406 
onedig 
886424 
386416 
896422 
856424 


096426 
896432 
086434 
986449 


006442 
306446 
006459 
906452 
806456 
006460 
606464 
986466 
886472 
006474 
986500 
806504 
096506 
906514 
886516 
806522 
896526 


086538 


986533 


886534 
806540 


806542 


MACXL1 


806545 


906546 
086552 
006554 
806556 
386562 
396566 
886579 
806574 
086576 
906600 
086682 
986606 
986618 
086612 


006614 
886616 
806622 
886624 
086626 
086630 
086632 
806634 
096656 
986649 
306642 
886646 
986650 
286652 
006654 
286668 
886662 
086666 
086678 
806672 
886674 
386798 
086782 
906704 
896786 
086718 
8896712 
906714 
986720 


vo2s 


112102 
198733 
880302 
152102 
264502 
204767 
317503 
301452 
829327 
004457 
121327 
904456 
122327 
01944 
121522 


120227 
aa1470 
120227 
801465 


094767 
808432 
818346 
8047607 
942603 
124327 
001408 
124327 
901020 
929375 
122127 
001724 
126127 
084255 
000167 
985075 
AS00084 


847517 


895075 
ogege4 


842192 


VO2d 


846503 
195713 
199482 
262703 
122327 
084746 
124327 
084752 
818146 
819382 
004767 
910103 
042602 
290757 


885203 
122327 
0813544 
019300 
125723 
001376 
122302 
9843357 
919346 
919046 
162716 
819602 
318346 
160026 
162746 
aeiaiy 
884767 
842603 
910326 
910600 
262703 
110043 
288308 
1130043 
290482 
803316 
912636 
004767 
300656 
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1 UREAD! STATEMENT 


096772 
oeanK4 


477777 
99e201 
Bg024s 


988256 
308257 


097606 


812576 
290204 
089243 


OBOR04 
600243 


477777 980201 
174224 
ape0e4 


104 


090804 


122 


READE Move 
BM} 
SWAB 
8188 
ado 
JSR 
MOV 
BEO 
CMP 
aco 
CuPs 
BEQ 
CcMPB 
BNE 

READGOTIMOVE 


vSFNOF 
CuPB 
BEG 
CMPB 
sea 
ENOC 


JSR 
BR 
MOV 
Jsr 
READDUNEMOV 
CMPB 
8EO 
cMPB 
BNE 
MOV 
CMPB 
BEO 
CMPB 
BNE 
JmP 
READOUTICLR 
ERRDATAISOT 
oJENOF 
sASCIT 
sENOC 
vIFOr 
sASCII 
sENOC 
BYTE 3 
EVEN 
READBADICLR 
ror 


LTFNOF 
sASC3T 
,ENOC 
LUFOF 
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880016 


290002 
age22s 


990225 


912362 


888377 


008003 


agooe2 
019364 


880803 


012414 


eASCII 
sENOC 
BYTE @ 
EVEN 
REASRCWIMOV 
REAFINOGTSTS 
BM! 
aoo 
CMPB 
SEQ 
CMPS 
BEQ 
MOV 
MOV 
JSR 
MOV 
MOV 
BR 


aT PNOF 
REaDOTH INC 
CMPB 
BNE 
MOV 
rsTe 
BNE 
CMPB 
BNE 
MOV 
MOV 
sus 
MOV 
MOV 
sus 
SUB 
BEO 
JSR 
MOV 
MOV 
MOV 
aod 
MOVE 
SWAB 
MOVE 
aR 
REANULL IOEC 
MOV 


0 

READSTRI WSR 
aR 
VENDE 


(Rape,R2 
ERRSXS 

Re 

(RE) O,R2 
(R5),K2 

PG ,GETvaR 
@POL (RS), RS 
ERROATA 

RS, #04 
REASRCH 
CR3) COU 
REAF INO 
{R3)%, 8, COMMA 
REAOBAD 
CRS) Ke 


SNOSTR 
R2,8,QQuore 
REAOOT 
R2,#, SQUOTE 
READOT 


pC rLITEVAL 
READBAO 
RS, 0(SP) 
PG, STOVAR 
COP) OyRS 
(R3),#, £0), 


2048 
(RS) 8, COMMA 
READBAD 

RS, OPOLCRS) 
(RL) 0,6, COMMA 
READ 
e4(R1),8,60L 
ERRSXS 
EXECUTE 
OPOL(RS) 


SLONGER 
\O00N 


SONGER 
‘QUT OF DATA’ 


OPDL(KS) 


SONGER 
\BORN 


SLONGER 


"BaD UATA READ! 


CODE(R5) »RS 
(R3) 

106 

42,23 

(R3) 0,8, DATA 
READGOT 
o4R3),#,E0P 
READOUT 
R4,0(SP) 
R3,RL 

PC, SKIPEOL 
R4,RS 

(SP) o,R4 
REAF INO 


SNOSTH 

RS 
CRY) 8, TEXT 
READBAD 
R3,RO 
(R3)¢ 

102 
(RID H PR? 
READBAD 
R53, 0 (SP) 
RO, e(SP) 
#3, (SP) 
$P,R2 

RS, 0CSP) 
RO, (SP) 
02,087) 
REANULL 
PC,MAKESTR 
CSP) 4) RS 
RYe (SH) 
SP,Re 
#3,R3 
RB, el KS) 
RO 
RO, e( RS) 
REAOSTR 
(SP) 
(SP)4, (SP) 
PC, STOSVAR 
READDYN 


JOe 


So 


Dd 


Sat oh 


BASICL 


1992 
1993 
1994 
1995 
1996 
1997 
1998 
1999 
2008 
2003, 
2002 
2083 
2004 
2005 
2086 
2907 
2008 
2009 
2030 
2043 
2012 
2013 
2034 
2015 
2016 
2047 
2018 
2019 
2028 
2023 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2038 
2033 
2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2048 
2043 


BASIC. 


2042 
2043 
2044 
2045 
2046 
2047 
2048 
2049 
2050 
2054 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2064 
2002 
2063 
2064 
2065 
2066 
2067 
22668 
2069 
2070 
2073 
2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 
2082 
2083 
2084 
2085 
2086 
2087 
2088 
2089 
2090 
2093 
2092 
2293 
2094 
2095 
2096 


MACX12 


986722 
806726 
096752 
096736 
086742 
906746 
896752 
996754 
086768 
936762 
086766 
986772 
806774 
887908 
2979082 
887986 
927918 
807014 
oo7820 
097922 
887926 
887858 
OB7B34 
887036 
307040 
807042 
387046 
987954 
687956 
887069 
887066 
087072 


MACX11 


307074 
07120 
807104 
807118 
987112 
907116 
887128 
807122 
827126 
9871350 
807132 
307134 
837136 
oe7149 
807142 
807146 
307150 
807156 
887162 
907164 
987166 


987172 
807176 
807200 
307204 
907210 
207212 
887229 


887222 
807226 
007238 
087232 
887234 
897236 
907249 
907244 
087246 
887252 
087254 
207260 


va2s 


084567 
936785 
836502 
032794 
113720 
942729 
884442 
120027 
001905 
185205 
004767 
990430 
120027 
093905 
165165 
081422 
0946767 
004767 
403047 
1859764 
ogiges 
110061 
080207 
105734 
180376 
342724 
122757 
109744 
180376 
242737 
842734 
088287 


vo2d 


004567 
916725 
125765 
304404 
105365 
305008 
200416 
842704 
260524 
908724 
204415 
4113400 
901412 
385244 
120065 
201903 
116565 
110037 
a0g207 
oosges 
316504 


304767 
193921 
816502 
104767 
183354 
940737 
ape2e7 


004367 
308428 
889422 
080424 
890404 
oBe744 
120927 
304003 
012724 
990730 
120027 
204342 


22aMhARe73 


812454 
8900006 
900102 
177304 
177562 
177608 
990e85 


990106 
092516 


090017 
990387 


094530 
o14974 


308012 
9ge0i2 


000308 
690807 


000101 
000128 


22eMARe73 


014762 
0080086 
080110 


000318 


908404 


aga112 
CTT FESS 
177366 


088302 
095752 


099100 
095749 


880428 


OOL554 


890083 
897525 


980017 


477366 


177560 


090110 


177564 


45144 PAGE 28 


PRASOSOSOOOHSOH HSH SEREREHEO OHHH DOCOHEOOSOSEHESOOHHCS 
SOCHOHOHOHOOHOHPROOHSHLOHOSTEOCSHDERO FEDS 





ye ocesoneesene 
ye INTERYPT HANOLERS POOoCeneonee 
Ve esesesensee 
ye O00 GCebeoees 

beoseeas a0ee 





KBIN? © KEYBOARD JNTERUPY SERVICE 


PASS ANY CHAR, 70 SUFF, EXCEP? O87 (IGNORE) 
AND BOS ¢f9C4} SET FLAG FOR LATER ACTION,) 
IF BUFF, FULL, IGNORE CHAR BUT ECHA BELL, 


Kew w eee 


BINT) JSR Rd, SAVRG! CAUSE RTI ON REG, RESTORE 
“OV USRAREA,RS 
MOV KBHOC KS), R4 KB RUFF, HOR, 
MoV eTPS,H4 
MOVE OsTKB,RG HGET THAT CHAR, 
aye 0477600,20 
BEQ KBIOUN SJGNORE ooo 
CMPB RO, #005 plecr? 
BNE KaCO 
INCB CNCFLG(RS) MARK COC! HIT 
JSR PC, BUFCLR HCLEAR ALL BUFFERS 
BR OoPYT 
KBCO! cuPe RO, #17 CHECK foot 
BNE DOPYT 
come CNOFLG(RS) 
BEO OOPUT JIF PRINT RESTORED, BYPASS 
JSR PC, BUFIP CLEAR TELEPRINTER BUFFER 6 
oopuTy; JSR PC, PUTBYT 
acc KBLOUN sGOT [% 
Ts?B8 BFSPEC(R1) 
BNE S$, 010} 
Move RO, BFSPEC(R1) 
Rvs PG 


Se1811 TST8 (RE) 
BP, $,0203 


NO ROOMS OO BELL 


aye 9400, (R4) dTEMP, CLR, INTER, 
MQVe 8007,087Pa pINSERT BELL 
$,6182) TST8 (R4) sWALT UNTIL QONE 
BP, $,0102 
KBIOUN} MOV 9482, 08TKS JRE*INIT, READER 
Mov #400, ¢R4) JENAPLE TPTR, FOR ECHO 
RTS Pg tWILL RESTORE REGS, ANO PTY 


PE TET PAGE 29 


' 
4 fpINy © TELEPRINTER INTERUPY HANOLER 
§ USED To PRINT OUT TEXT ANO ECHO TYPEeIN, 
1 TO HANOLE CASE QF PENDING REQUESTS Yo DO TEXT OUTPUT 
} AND ECHO, DOES THE ORDERLY THING BY FOLLOWING TRIS 
1 PRIORITY} 
' IF ECHOSP{R5) SHOWS NEED TO 90 2NO HALF OF PALRER 
' CHARS, FOR EGHO (0U, <C9><LF>), 00 FIRST, 
H IF TEXT MESS, IN PROGRESS, FINISH IT (TO <LFD>)) 
’ ELSE, ECHO, 
’ ELSE, TURN OFF INTERUPTS, 
' 
TPINT| JSR RD, SAVRGI HCAUSE RTI ON REG, RESTORE 
MOV USRAREA,RS 
ysve FILLCOCRS) 
BEO TPNXT 
cece FILLCO(RS) 
CLR RO 
BR TYPES 
TPNXTS MOV WECHOSP,R4 
400 R5,R4 HSAVED HERE THRUPOUT ROUTINE 
Ts? (Ra) SSPESTAL ECHO IN PROGRESS? 
BEG TRYECHO yNC 
SPECMESIMOVB O(R4)O, RO INEXT SP, ECHO CHAR, 
4) CLRECHO 
INC (RA) yPT, TO NEXT CHAR, 
TYPE!  CMPB RO FURL CH (RS) 
BNE TYPES 


MOVE FUGLNOCRS) FILLE (RS) 
TYPES! MOVE RO, OM TPB 


RTS PG RESTORE REGS, ANDO RETUR" 
CLRECHOICLR a(R4) 
TRYECHOIMOV KBHO( RS), Re INO MESS, © ECHO? 
JSR PG GET2BYT 
acc GOTECHO 
MSGSUP} MOV TPHO( HS), RY iTRY MESSAGE 
usr PC ,GET2BYT 
ece TYPE 1GOT ONE! GO 00 IT 
OFPTYPE BIC #400, 08TPS ICLEAR INTERUPT 
ars PG 
U 
GorECHot JSR RS, CHKCHR sCHECK THAT ECHO CHAR, 
BR PRNTOELL JLINE DELETE 
BR SETLFE HOCRDE CLFD aS ECHOSP 
BR ECHOBA PRUB OUT! OO ten 
GR TREN 
BR TYPE 
TPONI CMPS RO, #3 HCHEC fect 
BNE TPCO 
Mov BCCMES, (R4y 
BR SPECMES 
TPCOt = =CMPB RO, #17 CHECK Feoe 
BNE TRYECHO 


BASICL 


2097 
2098 
2099 
2208 
2403 
2402 
2205 
2304 
2305 
2206 
2307 
2198 
2429 
2210 


2213 
2112 
2213 
2114 
2215 
2416 
2ai7 


BASICL 


2218 
2119 
2428 
2422 
2222 
2423 
2424 
2125 
2426 
2227 
2128 
2129 
2138 
2233 
2452 
2133 
2134 
2135 
2136 
2437 
2158 
2439 
2440 
2142 
2442 
2143 
2444 
2145 
2146 


MACXi4 


087262 
887266 


887278 
807274 


007276 
087382 


887304 
887310 


097312 
867320 
887322 
8073525 
087327 
887338 
987332 


MACXL2 


8073356 
0897342 
087346 
087352 
897354 
007368 
807364 
007366 
887372 
887374 
087400 
087402 
907406 
097419 
007414 
907416 
807424 
087426 
007434 


vo2s 


812734 
890722 


812734 
080737 


022724 
oee714 


122788 
060734 


042049 
042195 
g15 
136 
008 
949536 
035 
BB9336 


vo2u 


304567 
842702 
095737 
100425 
113720 
942708 
804444 
122700 
04441 
122708 
381406 
894767 
103983 
120062 
280207 
912787 
880297 
052761 
588207 


22eMARe7S «615144 = PAGE 2904 


007338 
097342 
207322 
090357 
046105 

e12 


185 


g12 


MOV 
8R 


' 

PRNTOELIMQV ° 
BR 

i 

SEPLFE! Mov 
BR 

' 

ECHOBAI MOVB 
8R 


J 
OELMSG| 
852165 sASCII 


O88 CRLFMESI, BYTE 
COMES! ,ASCIY 
:BYTE 2 

COMES) , ASCII 

oe BYTE 

EVEN 


22eMARe7S 151414 PAGE 38 


011522 
823714 
177550 


177552 
177908 


980477 
e0e%2 
914206 
990032 
900221 
100908 


vbFNOF 


Beer rere 


TRINTI JSR 
MOV 
TST 
amt 
“Ov 
BIC 
BEG 
CMPe 
geo 
CMPB 
BEG 
JSR 
acc 
MOVE 
RIS 
177550 EXLTB2) MOV 
RTs 
geae12 PREOTY ats 
RTS 
+ENOC 


#COMES (RS) 
spECnes 


SOELMSG, (RO) 
SPECMES 


SGRLFMES, (A4) 


SPECMES 
wba RO 
TYPE 

* DELETED! 


035,032,008 
"eee 


coor 
945,032,000 


SNOPTP 


SY, AMOR, INTO ECHOSPERS) 


AIA 


PTRINT © PAPER*TAPE READER INTERUPT HANOLER 
CLEARS PARITY BIT, FLUSHES O90, RUBsOUT, AND <LF>, 

IF CHAR, WON? T FIT IN BUFF,, SAVE IN SFSPEC (LO BYTE), 
ON EOT OR OTHER ERKOR, SET HI BIT OF SFSPEC, 


RD, SAVRGI CAUSE RTI OM REG, RESTORE 
#PREFHO,R1 sFOR PuTayT 

@RPRS PERRORS? 

PREOT yYFS! TREAT aS EOT 
@SPRB,RO ICRARACTER 

#177600,R0 

EXiTae PIGNORE 682 (CANFT HAPPEN] ) 
#477,K0 RUB OUT? 

EX1Ta2 SIGNORE 

WRF ARO 

EX Trae PIGNORE LFES 

PG,PUTBYT 

EXITS sGOT IN 

RO,BFSPEC(R1)  J;SAVE THIS CHAR, 

PG RESTORE REGS, AND RT] 
aeons HRE@FNABLE READER 

RP 

EAHMBORASESREGI A) ysHOw ECT 

Pp 


ee 


BASICL MACX12 VO2ZL 22eMAR®7S 15142 PAGE 32 


2447 ,JFNOF = sNOPTP 

2346 ' 

2149 ‘ } ppINT © PAPER TAPE PUNCH INTERUPT KANDLER 

2198 H 

2353 1 ON ERROR» MAKE BFSPEC NgNeO', 

2152 ' 

2453 997436 284567 014420 PPINT! SR RS, SAVRG! sCAUSE RTI AFTER REG, RESTORE 
2154 987442 2136705 o900006 MOV USRAREA,RS 

2455 887446 012703 923760 MOV #PPBFHO, RY 

2156 007452 985737 177554 TS? esPPS 

2157 007456 190406 ami PPERR 

2458 087469 084767 005456 JSR PG, GETLBYT 

2159 287464 1093406 acs NOCHRE INOTHING TO GET 

2260 007466 1190937 177556 MOVB RO, eePPS 

2161 887472 090207 Rvs Pg SRESTORE REGS, AND ARTY 
2162 0907474 952761 060881 080812 PPERRI aS WL,BFSPEC(R4)  sIMOTC, ERROR 

2263 907502 285937 177554 NOCHR2} CLR oePPS SCLEAR INTERUPT ENABLE 
2164 387506 300207 RTS Pg 

2165 , 

2166 ,ENOC 

2467 


ZAIY 


BASIC, MACXaa Vo2. 22eMARe73 15144 PAGE 32 


2268 vJFNOF = SNOLPT 

2469 ' 

ain ; ) LPINY © LINE PRINTER INTERUP? HANDLER 

a74 ’ 

2472 «007510 004567 211346 LPINTE JSR R5,SAVRGL JCAUSE RTI AFTER REG, RESTORE 
2473 007514 2136705 8900006 MOV USRAREA,R5 

2474 «987528 232703 24024 MOV @QPBFHO,R2 

2175 «907524 998737 177514 TST oaLPs 

2476 087530 100406 BMS LPERR 

2477 «687532 394767 095404 JSR PG, GETIBYT 

2478 087536 193406 acs LPOFF SNOTHING THERE 

2179 «987540 110037 177516 Move RO, OMLPB VARITE CHAR 

oune 807544 000227 RTS Pg 

2282 ' 

2182 307546 952764 290004 o88842 LpERRI 81S #4, BFSPEC(R1) FRECORP ERROR 

2283 097554 JoSo37 177514 LPOFFL CLR Oars sTURN {7 OFF FOR AWHILE 
2184 0997560 290207 RTS PG % 

2185 ,ENOC : 
2186 

2187 


AIS 


BASIC, 


2388 
2489 
2298 
2292 
2492 
2193 
2194 
2295 
2396 
2197 
2496 
2199 
2208 
2203 
2202 
2205 
2284 


Basicy 


2205 
2206 
2207 
2208 
2209 
2212 
2214 
2212 
2213 
2214 
2215 
2246 
2247 
2228 
2219 
2220 
222% 
2222 
2225 
2224 
2225 
2226 
2227 
2228 
2229 
2238 
2234 
2232 
2233 
2234 
2235 
2236 
2237 
2238 
2239 
2248 
2244 
2242 
2243 
2244 
2245 
2246 
2247 
2248 
2249 
2256 
2254 
2252 
2253 
2254 
2255 
2256 
2257 
2258 
2259 


MACXL1 


887562 
887578 


997572 
887574 
807608 
807606 
887612 
007614 
607616 


MACX11 


987622 
887624 
997630 
0876352 
007649 
807644 
397646 
897650 
007652 
887654 
087668 
007662 
387664 
807666 
887672 
087674 
887788 
897702 
207704 
887706 
807718 
207714 
807729 
887722 
087726 
887732 
307746 
387742 
207746 
807754 
807756 
827762 
287766 
207776 


yeaa 


332737 
899908 


805ge0 
916705 
212737 
816506 
885322 
081367 
900167 


yeas 


242603 
804767 
094414 
812767 
384467 
316846 
a8ooee6 
816860 
213966 
805765 
880113 
985726 
322602 
066502 
102405 
316265 
80143 
180425 
604416 
005402 
185065 
110265 
2BO322 
119265 
105965 
362765 
080143 
295065 
242765 
286113 
105065 
110265 
289322 
110265 


22emMARe7S 15444 = PAGE 33 
vJFNOF =sNOPOW 
’ 
} POWDWN © POWER FAIL/RESTARY ROUTINE 


’ 
087572 880824 poWDWNI Mov SPOWUP, 0824 
WALT , 
' 
PowUpt CLR Ro FINITIALIZE Loop CouNT 
eoo000G POWLPT MOV USRAREA,RS 
897562 eBRDe4 MOV SPOWOWN, O9 24 
090004 MOV POLCRD),SP HWASTE TIME CAND INIT STACK!) 
oEc RB sCOUNT TILL OONE 
BNE POWLP 
171316 JMP READYY 
,ENDC 
s£0T 


22eMARS7S «15141 9 PAGE 34 





U SOURCE FILE #4 

JOROCREOO RDO ERECOMEDER EOE ENEEDEHOEHEOOEEREOROUODES 
EIS IIIT rere ririrrrrirtirrrtt 
benesneeoese densenseore 
)Beeeegoneae GLoSseD SYBROUTINES Heeeseeneen 
bepeoroovene Sevenarense 


IIIS rr yerrrrrriiitririirtryyy 
ITP rir rir ri riirittyyyy 


Demcenecwenwwesnnnecettcc econ canes nen severeccences 
SUBROUTINE *ADDSTK! CALLED BY JsP pC 

ADDS (SP), (SP) TO FACLIERS),FAC2(R5) WATCHI"G TYPE 

RO,R4 UNUSEN 

R2,R3_ DESTROYED 

R4 MOOIFIFO YO REFLECT STACK USAGE 

RS MUST POI"T TO USER AREA 

SP GOFS 7? MEEPER AFTER JSR 


Peewee eee 


OOSTK} MOV (SP)o,R3 
905124 JSR PC, FIXUP 
cTa-) ADOINT 
013214 gpe0086 mov wERADO, SERVEC 
805250 usr R4,FPPSAV 
WORD = PYSH 
sWORD = SADR 
WORD = POP 
WORD = FPPRES 
288048 yst FACL(KS) 
wMP ¢R3) ICON" CODESSSGN(RESULT) 
ADDINTS TST - (SP)« 
MOV (SP) 4, R2 
090042 aoo FAC2(K5) RO 
avs adoovr 
09042 MOV RZ, FAG2(RS) 
uMP CRS) ICOND CODESSSGN(RESULT) 
AQDOVF! Mt ADOPOS 
BEO ADOZEKO 
NEG R2 
900e42 CLRB FAG2(K5) 
080043 MOVB RQ, FAG201(25) 
Swag R2 
890040 Move R2,FAGLCRD) 
BAO042 CURB FACL#4(R5) 
143608 seouee 400 #443600, FAGLCRS) 
wMP (3) ICON" CODESSSGN(RESULT) 
898042 AODZEROICLR FAG2( KS) 
144228 goagag MoV #144200, F ACL CRS) 
uMP ¢R3) 1COND CODESSSGN(RESULT) 
090042 AODPOS! CLRB FAC2(KS) 
900043 MOVE R2,FAC2e1 (AS) 
SWAB - RZ 


290840 MOVB =—- RZ, FACS (RS) 


Alb 


2/7 


BASIC 


2268 
2263 
2262 
2263 


BASICL 


2264 
2265 
2266 
2267 
2268 
2269 
2278 
2274 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2283 
2282 
2283 
2284 
2285 
2286 
2287 
2288 
2289 
2299 
2294 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2308 
230% 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 
2319 
2312 
2312 
2313 
2314 
2345 
2316 
2317 
23168 


MACKXA2 


807774 
810080 
010006 


MACX11 


012018 
040012 
910024 
8340016 
810820 
348022 
840024 
310026 
0100352 
040034 
810836 
340040 
910042 
340044 
210046 
010858 
810052 
010054 
810068 


310062 
029866 


042070 
842072 
810074 
810196 
810102 
310104 
G1e118 
010112 
910114 
818116 
210122 
818124 
910126 


910138 
018134 


919136 
313142 














ve. 22eMARe73 15043 PAGE 3404 
195965 090042 cure pages tas) 
962765 243609 o9eo4g 400 943608, F ACL (RS) 
e9e113 ume (R3) CONF CODESSSGN(RESULT) 
Ve2a 22eMARe73S 25141 PAGE 35 
J evewqeewceroegces ° je encsarcgeccceenes 
§) SUBROUTINE ¢ ALLO CALLED BY JSR PC 
U ALLOCATES ARRAY SPACE FROM FREESPACE 
' RQ,Ri = PRESEPVED 
' R2 MUST POINT TO VaR GETS DESTROYED 
’ RS MUST CONTAIN SS4AMAX GETS DESTROYED 
' R& MUST CONTAIN SS2MAX GETS NESTPOYED 
4 RS MUST POINT TO USER AREA 
' SP GOES 7? TEEPER AFTER JSR 
818046 ALLOCH MOV RO, a(SP) 
818146 MOV RL, 0(SP) 
085283 INC RS 
210402 MOV R4,R4 
205204 INC RL 
201776 8EO 102 
205008 CLR RO Jesee 
242746 «=g0R20 MOV #20, 9(SP) te 6 
0065302 ALLLOOPT ASL Ry lee 
193002 Bcc ALLNOAD je o@ 
260398 aoo RS,RO Je @ MULTIPLY (Rt) e(R3)02 
183505 Bcs ERRARAY Je @ RESULT IN Ra 
896300 ALLNOADIASL Ro Je @ WATCH FOR OVEPFLOWS 
183503 gcs ERRARAY je 4 
905316 occ (SP) je 8 
693379 BGT AGLLOOP te 8 
885726 TS? (SP)o }eeee 
862709 sp0aR2 400 #2,R0 
183475 acs ERRARAY bRa NOW # 2 TIMES # ELEMENTS NEEDED, 
vIFNOF = =SNOSTH 
824227) 177777 CMP (R2),8,SVAR 
281492 Bea 16 
1ENOC 
806329 ASL Ro 
193479 BCS ERRARAY HRO NOW @ # BYTES NEEDED, 
916501 a90012 MOV WIFREE(RS) RY 
160003 sus RO,RL 
183464 acs ERRARAY 
3202605 990074 CMP RL HISTRERS) 
103464 840 ERRARAY 
005721 Ts? {Rae 
20040, BR 104 
95921 CLR Rape 
220165 2990012 cmp RL HIFREE(RS) 
1017764 8LOS 196 
160001 suB ROAR 
1IFNOF SNOSTK 
324227) 477777 CMP (H2),8,SVAR 
384413 8e9 AWLSTHN 
vENDC ALG 
912722 «177776 MOV MINVAK, (R296 
312224 MOV (RZ) pCRID 


BASICL 


2319 
23208 
2323 
2322 
2323 
2324 
2325 
2326 
2327 
2328 
2329 
2330 
2334 
2332 
2333 
2334 
2335 
2336 
2337 
2338 
2339 
2340 
2343 
2342 
2343 
2344 
2345 
2346 
2347 
2348 
2349 
2350 
2351 
2352 
2353 
2354 
2355 
2356 
2357 
2358 
2359 
2368 
2364 


BASIC. 


2362 
2565 
2364 
2365 
2366 
2367 
2368 
2369 
2570 
2373 
2372 
2373 
2374 
2375 
2376 
2377 
2378 
2379 
2388 
2384 
2382 
2383 
2384 
2365 
2386 
2387 
2388 
2389 
2390 


MACX11 


818144 
910146 
019159 
010152 
019154 
940456 


810162 
840164 
848166 
910178 
810172 
810174 
020176 
840202 
848218 
810214 
849220 
810222 
810224 
839226 
49259 
940252 
910254 
9409236 
019248 


810242 
018246 
019250 
819252 
810234 


848256 


810261 


MACX11 


840262 
810266 
840278 
810274 
819300 
840302 
838306 
18318 


19312 


940314 
840517 


vee. 


312224 
310412 
395303 
30342 
010142 
162732 


290427 
295722 
242221 
095303 
810322 
010422 
020162 
162762 
b12728 
820165 
104773 
460983 
811102 
68522 
001404 
IT ETSY 
120122 
98S. 
126132 


160065 
022603 
212600 
980207 
apege4 


052303 


228 


ve2s 


084767 
103441 
094767 
903765 
201904 
195765 
881604 
808207 


300804 


252204 
800 


22eMARe73 15144 = PAGE 3504 
MOV (R2)o, (Ride 
MOV R4,¢6R2) 
occ Rd 
MOV RS_o(K2) 
MOV R4,0(K2) 
890884 sys #4,(R2) 
e}FNOF SNOSTK 
BR AWLEXIT 
ALLSTRNUTST (R2)o 
MOV (RZ) eo, (Ride 
bee RS 
MOV RS, (R296 
MOV R4,¢R2) 
177776 MOV RE ,04(R2) 
QGOGV2 177774 sue #2,04(R2) 
477777 MOV Wad, (R1)e 
ogaei2 CMP RY,HIFREECRS) 
BLO0S 010 
sys RB,RL 
MOV CRY) K2 
tye Re 
Bea ALLEXET 
swas RY 
MOVB RU (R206 
SwaB RY 
MOVE RA, ¢R2) 
sENOC 
098012 ALLEXIT# Sua RO AHIFREE(RS) 
MOV (SP) 4)R 
MoV (SP) o)RO 
; RTS PG 
ERRARAYISOT 
,IPNOF = SLONGER 
144 sASCIT NATLN 
sENOC 
sIFOF = S$,ONGER 
sASCIT ARRAYS TOO LARGE! 
,ENOC 
BYTE @ 
,EVEN 
22eMAR@7S «15144 = PAGE 36 
_. VTFNDF  SNOSTK 
J ewowc cece gece cow epee geen gece pencesecceesecesncen 
1 FARGBE SUBROUTINE 
) CALLED BY JSP RT 
' CALLS EVAL TO GET A LeBYTE 
4 ARGUMENT, BRANCHES TO ERRARG 
' IF ARG NO GOOD 
@eg1i4 ARGBI JSR PO,EVAL 
Bcs ERRARG 
905300 JSR PC,INT 
880040 TST FACA(KS) 
BNE ERRARG 
890243 TSTB FAC2@1(R5) 
ANE ERRARG 
RTS PC 
vENOC 
ERSQRI 
ERLOG) 
ERRARG! JOY 
1IFOF = SLONGER 
sASCIL ARGUMENT ERROR! 
»ENOC 
sTPNOF = SLONGER 
407 sASCII ARG! 
vENOC 
BYTE 9 
EVEN 


A20 


oe) 


BASIC. 


2391 
2392 
2393 
2394 
2395 
2396 
2397 
2398 
2399 
2480 
2403 
2402 
2483 
2484 
2405 
2406 
2407 
2408 
2409 
24348 
2a4s 
2412 
2443 
2414 
2445 
2416 
2437 
2418 
24a9 
2420 


2423 
2422 
2423 
2424 
2425 
2426 
2427 
2426 
2429 
2438 
2434 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 


BASTCL 


2448 
244e 
2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 
2459 
2454 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
24608 
2464 
2462 
2463 
2464 
2405 
2406 
2467 
2468 
2469 
2478 
2473, 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2489 
2481 
2482 


MACXAL 


810328 
642322 
918326 
810332 
918336 
940344 
810358 
810354 


818356 
919357 


910369 
919362 
810364 
810378 
810372 
819400 
819402 
910406 
040414 
910447 


a19420 
ai9424 
010426 
810432 
810436 
9140449 
a1g444 
019459 
010452 
810456 
018462 
018478 
018474 
o19se9 


919504 


MACXAL 


0429519 
910514 
049516 
319520 
848522 
010524 
818526 


040532 
019536 
840542 
010546 


019552 
819556 


810562 


619564 
310578 
919572 
010574 
910576 
010609 


ve2s 


314603 
916725 
916506 
095965 
012765 
060565 
004167 

15 


45 
eg 


112100 
084405 
204767 
008773 
926527 
103044 
904167 
949448 
842526 

009 


816508 
002405 
912065 
985965 
800414 
1209865 
195965 
8ge3e0 
120965 
193065 
062765 
084767 
984167 

ots 
818504 
080167 


yeas 


016502 
922203 
303722 
840322 
848322 
840322 
284767 


342702 
304767 
242702 
084767 


3142782 
304767 


2380207 


916502 
942285 
322222 
340322 
849322 
380227 


22eMARC7S 


9980086 
880004 
088076 
299056 
298034 
887876 
o12 


818516 
390030 


oa7044 
920124 
046 


ao00s2 


880042 
300042 


900045 
0ggR42 


egeo4e 
oge04, 
043600 
807230 
096752 

gi2 


170434 


22emaRe73 


990102 


OgaRs2 


823780 
ooa774 
a2s714 
004764" 


824024 
004754 


0801288 


880834 


177775 


044514 


800049 


15144 = PAGE 37 


ee ee et eee er rrr rr 


SUBROUTINE ‘BOMB! CALLED BY 107 


Rg nEsTROYED 
Ri PRESFRVEN 
R2,R3,R4 UNUSED 
_R5 MUST PCINT TO USER AREA 
SP RESET TO EMPTY STACK 


iy 
' 
' 
' 
' 
’ 
’ 
’ PG DOES NOT RETURN 
8 


OMBs MOV (SP),RL 
MOV USRAREA, RD 
MOV POL(RD) SP 


CUR OOEV(KS) 


apo RD, COLUMN( 985) 
JSR RA MSG 
1BYTE CRLF 
sTFNOF SWONGER 
sASCHL KF 
,ENDC 
1OYTE @ 
EVEN 
BOMENX) MOVE = (RA) 4, RB 
Bea BOMBDON 


usr PC,PUTCHAR 

aR BOMBNX 
BOMBOONI CMP LINENOCRS),#, SCALAR 

BHIS BOMBYNP 

JSR RY, MSG 

sASCIIT ¢ AT LINE ¢ 

sBYTE 2 

sEVEN 

MOV LINENG(RS) RO 

BT BOMBNEG 

MOV RO FAGZ(RS) 

CLR FACA(HS) 

BR BOMBOK 


BOMBNEGIMOVB = ©=—- RO, FAGZ#4¢R5) 
GLRE = FAC2CKS) 
SWAB OR 
MOVE =| RB, FAGA (RD) 
CLRB = FAC244,(R5) 


ADD 943600) F AGL(RS) 
BOMBOK} JSR PG,NUMOUT 

JSR RA,MSG 

:BYTE «CR LF yD 

1EVEN 
BOMBUMP 1 NP READY 


45,41 PAGE 38 


ByFCLResINI7 1/0 DEv, ByFFER HEADERS 
CALLI JSR pC, BURCLR 
USES RZ AND R3 


, 
’ 
U 
) 
f 
' Z 
1 

BUFCLRI Mov KBHO(K5) | R2 IKEYRQARD 


MOV CR2)OgRS HBUFF, START 

TS? (R2)¢ WSKIP TO BGETL 

mov RS, (RZ) 

MOV RS, (RZ> 

MOV R3,(R2)4 . 
JSR PG, BUFTP sCLEAR TELEPRINTER BUFFER 
1]FNOF SNOPTP 

MOV sPPBFHO,R2 JPAPER TAPE PUNCH 
JSR PG, INI TBF 

MOV #PRBFHO,R2 JPAPER TAPE READER 
JSR PC, INI TOF 

sENOC 

sSFNOF = SNOLPT 

MOV #LPBFHD,R2 

JSR PC, INU TOF 

1 ENOC 

RTs pc 


' 

1 BUFTPe*INIT TELEPRINTER BUFFER HEADER 
' 3 

) CALLE JsR pC, BUrTP 

’ 

J} YSES R2@ AND RS 

’ 


Burret! Mov TPHO(HS) »R2 STELEPRINTER 
MOV (R27) 0,R3 1BUFF, START 
cMP (RZ) 4, (R206 sP7, TO BGET2 
“OV RS, (R200 
MOV R3,(RZ)% 

RTS PG 


PRINTS ERROR MESSAGE FROM AFTER [OY 


SCAUSE MES OUTPUT TO TTY 
MOV SCLMNTTY, COLUMN(RS) HSET@UP TTY FOR COL, COUNT 


Jad 


ga3 


an 
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2483 1 
2484 ) 
sass ) CHKCHR © CHECK ASCII CHAR, FoR SPECIAL CASES 
I 
2487 3 CALLE MoV COWAR, 1,20 
2488 ’ JSR RS, CHKCHR 
2489 I INSTRUC, JEXECUTE [TF LINE DEL, (CAL? MODED, Fett) 
2499 ' INSTRUC, sEXEC, IF €CR> 
2494 ' INSTRUC, EXEC, IF ¢RUB OUT> (OR tery 
2492 ’ INSTRUC, JEXEC, IF BELQW 4@ OR ABOVE 137 
2493 ) INSTRUC, HEXEC, IF GOOD STUFF 
2494 1 
2495 ) USES RO 
2496 i 
2497 910682 120927 390176 CHKCHRE CMPB RO, 8176 HALT MOOE 
2498 910606 281434 geaQ CGEXIT - 
2499 939619 120027 300175 CMPB RO 8175 SALT MODE 
2500 832634 304431 BEQ CCEXIT 
230% 042616 120827 sg0033 cMPB RO, aSS ALT MODE 
2382 049622 081426 EO COEXIT 
23583 910624 120027 00025 cMPa RO, 825 ploue 
2504 919638 304425 GEO CCEXIT 
2505 918632 095723 rst (R3)e iY@ <CR> RETURN 
2306 910634 120827 2g0815 CMPB RO, aCK 
2507 910649 304417 J) CCEXIT 
2528 940642 208725 TS’ (R3Spe sTO RUR OUT RETURN 
2509 919644 120927 900177 CMPB RO, #477 RUB OUT 
2340) 010658 984413 geo CCEXIT 
2544 910652 120927 0903357 CMPB RB, ale 
2512 810656 384410 BEG CCEXST 
2545 9496068 895723 TST (R3)o sTO LIMIT RETURN 
2314 9109662 120927 ope040 CMPB RO, 840 
2315 030666 1834046 a0 COEXIT 
23546 930678 129827 990437 CMPB RO,#157 
2917 «930674 194904 SH! CCEXIT 
2518 930676 295723 rst (R3)e yREG, CHAR, RETURN 
ee 812708 sB0283 CCEXIT) RTS RS 
2528 


Zay 
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2523 J 

2522 +} GHKISET e@ CHEGK [7/0 CHANNEL ANT SETelIP [NPUT (IDEV(RS)) 
2523 } CHKOSET @ CHECK 1/0 CHANNEL AND SET@UP OUTPUT (ODEV(RS5)) 
2524 ' 

2525 1 CALLE Mov CADOR, OF CODE LINE PTR, AFTER ‘#8 ),R1 

2526 ' usr PG, CHKISET (CHKOSET) 

2527 ) 

2528 } USES RORIRZRIVRS 

2529 ' 

2538 ) CHECK JP SPECIFIED CHANNEL LEGAL (NUMBER IN RANGE ANO [7/9 
2534 } =: DEVICE ASSEMBLED JN), RETURN CODE FOR SPECIFIED DEVICE 
2532 J (SAME AS VALUE OF JOEV sO0EV)) 1% 2, ON EXIT, RI PTS, 
2333 } «70 BYTE AFTER CHANNEL NUMBER, 

2534 : , 

2535 010702 2912709 010777 CHKISETIMOV AITABLE, RO 

2536 219706 380402 aR COMCHK 

2537 919719 9132700 012774 CHKOSETIMOV MOTABLE, RO 

2538 910714 394767 990462 COMCHKI JSR PC, EVAL 

2539 910720 193429 acs ERSX12 

2549 0109722 205765 ooaese rst FACL(RS) 

254) 0140726 01947 BNE ERCHAN sMUST BE INTEGER 

2542 810730 316502 oe0042 MOV FACQ(RS) RO 

2543 910734 oo444s 8eo oytes2 sTTY » EVERYTHING SETUP 
2544 819736 1349083 “ova (AB) RS JFIRST TABLE ENTRY 

2545 819749 260503 ago RD,RS yPTS, TO ACTUAL AYTE 

2546 310742 320227 ogov02 cme R282 IMAX CHANNEL NUMBER (CURRENTLY) 
2547 910746 101907 BH! ERCHAN 

2548 319758 260208 aoo R2,RO SENTRY IN TABLE OF DEV, CODE 
2549 949752 111913 Move CRB), §RS) HCODF INTO [NEV OR ODEV 
2550 910754 ae1404 geo ERCHAN JMEANS NO DEVICE THERE 

2553 019756 111902 Move CRB) RZ 

2552 919760 100207 oufas2y ATS PG 

2553 ' 

2554 049762 200167 204556 ERSXi21 UMP ERRSX? 

2555 ' 

2356 040766 390004 ERCHANI lor 

2557 :JFNOF = SONGER 

2558 919779 244504 105 sASCTY NQCEN 

2559 ,ENDC 

2560 tIFOF = SRONGER 

256% ASCII #QEVICE CHANNEL ERROP! 

2562 vENDC 

2563 349773 goe BYTE 8 

2564 1EVEN 

2565 ’ 

2566 J 

2567 940774 876 OTABLES ,BYYE g0Ey 

2568 viFOF = SNOPTP 

2569 BYTE 9 ee 
2578 ,ENOC 

2373 VIFNOF SNOPTP prs 
2572 310775 a2 BYTE «2 

2573 +ENOC 

2574 :UFOF = SNOLPT 


2575 ;BYTE oa 


ee 
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2576 vENDG 

2577 cUFNOF = SNOLPT 
2578 810776 eoe BYTE 64 

2579 ,ENOC 

2580 1 

2583 019777 a77 TraBLE) ,BYTE  02y 
2582 13POF  sNOPTP 
2583 BYTE 6 

2584 vENOC 

2585 vIFNOF = SNOPTP 
2586 11808 ae2 sBYTE =2 

2587 sENOC 

2588 41901 goa BYTE 8 

2589 


BASICL MACXi1 veer 22eMARe73 15444 PAGE 44 








2590 J qrwoqenwegecevecqecescccesececececcccseccccocscces 
2592 J) SUBROUTINE !CLARVARS! CALLED BY Jsp PC 

2592 J CLEARS VARS 70 SCALAR ZEROS,NULL STRINGS 
2593 ’ ASO INITIALTZ2S RANQOM NO GEN 
2594 ' R@ DESTROYED 

2595 i R1,R2,R3,R4 UNUSED 

2596 1 RS MUST POI‘T TO USER AREA 
2597 1 SP GOFS NO NEEPER AFTER JSR 
2598 011002 012765 032331 990064 CLAVARSIMOV #32331, RNOL(R5) 

2599 341918 0142765 163251 o90066 MOV #463254,RND2(R5) 

2602 311916 211500 MOV (R35), RO 

260% 11820 a29905 o90014 CLRLOOP ICMP RO, LOFREE(RS) 

2602 911024 193021 BHIS CLRFREE 

26003 241926 824927 177775 CMP (HO), #, SCALAR 

2604 41832 103412 8L0 ChROK 

2605 

2606 1JFNOF = SNOSTK 

2007 031834 023927 177777 CMP (RO), #,SVAR 

2008 a11940 001404 BEO CLRSVAR 

2609 ,ENOC 

2010 

2611 8449842 842728 177775 MOV @ SCALAR, (ROVe 

2642 311946 003919 CLR CRB) 

26135 

2614 vTFNOF = SNOSTK 

2615 911950 990403 BR 104 

2016 811052 212012 CLRSVARIMOV CRO}, (RA) 

2637 1ENOC 

2018 

2619 911854 012018 MOV (RO) %) (RB) 

2628 911956 212019 MOV (RO) 4) (RB) 

2621 911960 262708 se0004 CuRoK! 00 e4,r0 

2022 211064 999755 aR CiLRLOOP 

2623 911966 85029 CLR CRO) 

2624 911978 2299605 se0e19 CLRFREEICMP RB, ARKAYS(AS) 

2625 941074 104774 Los 106 : 

2626 911076 016565 o90819 ae2012 Mov ARRAYSCRS) HIFREE(P5) 

2027 911194 016565 o80014 290072 MOV LOFREE(RS) ,LOSTR(RS) 

2628 11112 946565 900014 280074 MOV LOFREE(RS) ,HISPRIAS) JEMPTY STRING STORAGE 
2629 911128 212765 890833 ape032 MOV #33, GS8CTR(RS) 

2638 011126 216308 oo0004 MOV POL (RD), 28 

263% 311132 0427289 «177777 MOV Pot (KO)e 

2632 211136 08920 CLR (ROO 

2633 011148 020965 oo0002 CMP RO LIMITCRS) 

2634 3111494 104774 aL Os 196 

cee 811146 «390207 RTS PG 


227 


BASICL 


2637 
2638 
2639 
2648 
2643 
2642 
2043 
2044 
2045 
2646 
2647 
2648 
2049 
2050 
2653 
2652 
2953 
2654 
2655 


BASICL 


2656 
2657 
2658 
2059 
2060 
2064 
2662 
2663 
2664 
2065 
2666 
2667 
2668 
2669 
2678 
2674 
2672 
2673 
2674 
2675 
2076 
2077 
2678 
2079 
2680 
2682 
2682 
2683 
2684 
2685 
2686 
2687 
2688 
2689 
2699 
2092 
2692 
2693 
2094 
2095 
2696 
2097 
2698 
2099 
2709 
2702 
2702 
2703 
2704 
2705 
2706 
2707 
2708 
2709 
2710 


MACx1 


011159 
811154 
811168 
841262 
841166 
041379 
821272 
011174 
811176 
611222 
811204 


MACXL4 


811226 
311218 
g1i212 
814214 
841216 
811222 
811226 
811232 
844254 
811256 
341240 
841244 
911246 
341252 
041254 
941256 
811268 
811262 
811264 
811266 
811270 
811272 
044274 
811276 
911300 
611304 
911386 
941510 
841312 
841516 
811528 
311322 
844524 
831330 
821332 
811336 
011340 
911344 
3413546 
811550 
911352 
841356 
811360 
841362 
B11364 
811366 


yee 


042746 
822703 
194902 
62793 
006106 
086123 
285316 
@BS367 
342703 
805726 
980207 


vee. 


910146 
919246 
810346 
083046 
316502 
016501 
910165 
005016 
152216 
oeig12 
820265 
183772 
940165 
083726 
2242603 
942682 
022601 
980207 
205803 
152203 
888303 
152203 
264602 
895202 
830327 
694402 
383303 
264583 
228365 
193350 
B28386 
103913 
828365 
191343 
920305 
181005 
020365 
183335 
020315 
1203733 
062716 
161682 
029213 
004205 
010143 
112221 


22eMARS73 


SeoR34 
050808 


130208 


170000 


22emMaRe73 


900872 
oeoR14 
900872 


809874 
890074 


890002 


oe0804 


090010 


888812 


828014 


880004 
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OLVTEN} MOV 
OLVLOOP4 CMP 
BH! 
400 
ROW 
ROL 
oec 
BGT 
eye 
TST 
RTS 


15144 PAGE 43 


OOo groceneqqacerecgcusayeveuenveucencecesces 


OUTINE FOLVTEN! CALLED BY JSF PC 


DIVIDES R3,R4 By DECIMAL 13 
RY,R1,R2 UNUSED 
R¥,R4 18 THE 3q BIT UNSIGNED INTEGER TO DIVIDE 
RS UNUSED | 
SP. GOFS 2 DEEPER AFTER JSR 
#34, 0¢SP) 
#30000,R3 


196 
B1LS0O0T,RS 
Rq 


RS 

CSP) 
O{VL,O0P 
#470000,R3 
(9P)6 

PG 


ee 


LUFNDF = §NOSTK 





leece 


ory eee 


NPACK} MOV 
MQV 
MOV 
CLR 
MOV 
MOV 
MOV 
ONPLOOPICLR 
8}sB 
BNE 
ONPBAD} CMP 
B40 
MOV 
Ts? 
MOV 
MOV 
MQV 
RTS 
ONPN2ROICLR 


SWAB 
BISB 
ao 
INC 
alT 
BEO 
bec 


aod 


CMP 
BHIS 
CMP 
BHIS 
GMP 
BHI 
cme 
BHI 
GMP 
BHIS 
CMP 
BLO 
ONPGOODEADO 
sys 
cmMP 
BNE 
MOV 
MOVE 


ee ee hee ee a er 


SUBROUTINE 'ONPACK! CALLED BY JsP pC 


PACKS STRING STOKAGE TOWARD LOW CORE 
R@ UNUSED 

R4,R2,R3 PRESERVED 

R4 UNUSED 

RS MUST POINT TO USER AREA 

SP GOFS 49 NEEPER AFTER JSR 


Ryyo(SP) 170 UNDERSTANO THESE ROUTINES IT JS HELPFUL TO 
R2, (SP) JKNOW THAT NON@NULL STRINGS ARE STORED AS 
R3z0(SP) I(LENGTH)2 BYTE BACKPTR,N RYTE STRING, LENGTHY 


(SP) WHERE LENGTH IS THE VALUE OF N ANO IF BACKPTR 
LOSTRIRS),R2 HIS COO,THEN [Tf IS RELATIVE TO SYMBOLS, 
LOFREE(RS), Rt 

RY LOSTRERS) 

(SP) 

(R294) (SP) > 

ONPN2RO 5 
R2eHISTRIRS) 

ONPLOOP 

RASHTSTROAS) #SAVE HIGH STRING ADORESS 

(SP)e 

(SP) eGR 

COP) 4, RZ 

CSP) oe, RY 

PG 

RS 

(R2)O7 RS 

RS 


(R2)O,R3 
(SP) ,K2 
RQ 


RS, 8d 

106 

RS 

(RS) ,KS 
R3,POL(RS) 
ONPBAU 

RS,SP 

ONPGOOO 

RS, ARRAYS(RS) 
ONPBAQ 

RZ HIFREE(RS) 
ONPGOOO 
R3,LOFREE (RS) 
ONPBAQ 

RS, (RD) 
ONPBAD 

#4, ¢SP) 

CP), R2 ; 
ane PAT 
ONPIGNO 

Ra, (RS) 
CR2)O, (Rio 


ee ae 


BASICL 


2722 
2722 
27235 
2714 
2725 
27206 
2747 
2728 


BASICL 


2719 
2728 
2723 
2722 
2723 
2724 
2725 
2726 
2727 
2728 
2729 
2732 
2731 
2732 
2733 
2734 
2735 
2736 
2737 
2738 
2739 
2740 
2741 
2742 
2743 
2744 
2745 
2746 
2747 
2748 
2749 
2750 
2752 
2752 
2753 
2754 
2755 
2756 
2757 
2758 
2759 
2768 
2764 
2762 
2763 
2764 
2765 
2766 
2767 
2768 
2769 
2779 
277% 
2772 
2773 


MACX14 


911378 
841372 
841374 
821376 
811400 


MACKXLL 


011402 
@11404 
911406 
941412 
811414 
211420 
811422 
311424 
011426 
911430 
O11454 
811436 
311442 
211444 
011458 
011452 
911456 
011460 
811464 
911466 
311472 
241474 
911508 


811502 
311506 
41518 
911514 
911516 


811522 
811526 
844552 
811534 
311549 
711542 


vees 


805316 
003375 
08a721 
864622 
880727 


voar 


020604 
183406 
222746 
00n4e4 
342746 
320604 
193563 
112122 
302241 
122227 
381475 
120227 
284502 
128227 
394502 
120227 
984519 
120227 
3847353 
120227 
204754 
120227 
284537 


128227 
201423 
120227 
[81282 
200167 


242702 
162722 
086502 
920227 
101065 
362782 


22eMAR@73 


22emARe73 


290235 
290233 


090375 
290376 
090374 
999255 
agn2s4 
aga2s2 
ogaz62 


808257 
288256 


294030 


177409 
380265 


280044 
900012 


15944 = PAGE 4304 


Ec 
BGT 
aR 
ONPIGNOTADO 
BR 
yENOC 
E07 


15142 PAGE 44 
} 


csp) 
04 
ONPBAU 
(SP) ,K2 
ONPBAQ 


SOURCE FILE #5 


[teten ere swcw ewe ge ween enn een nsw cececncnccecec races 


4 


J EVAL © EVALUATE EXPRESSI aN 


CALLE Mov 
MOV 
MOV 
usr 


} 
s 
U 
U 
U 
) 
U 
5 
U 
J 
1 
U 
) 
g 


Vali CMP 
840 

MOV 

BR 
UMINUS| “OV 
CMP 

BPOLI © @L0 
OPERANDIMOQVA 
BGE 
CMPS 
EQ 
CMP 
BEQ 
CMPB 
EQ 
cMPS 
BEO 
cP 
8E0 
cMPB 
BEo 
cMPB 
geo 


1 FNOF 
cMPa 
seo 
Cura 
BNE 
GOTOQT}) JMP 
+ENOC 


NOQUOTEIBIC 
Sus 
aS, 
CMP 
BHI 
aod 


CYSER@AREAS 
CSTACK Sl#e),R4 
CGWAR, PTH 9,RE 
PC, EVAL 


USES ALL REGS, 
RETURNS ‘C! BIY SEy IF sTRING vAL, 


CLR LF NOY STEING 


RETURNS VALUE IN FACA(RS), FAC2(HS) 


SPaR4 

SPOL 

#, TERM) @(SP) 
OPERANO 
#,UNARY, @(SP) 
SP,R4 
ERRPOL, 
CRE Y+ PRA 
VARBLE 

RZ He 1LITS 
Tits 
R28, UU1T2 
WWIT2 
RO, 8, FLIT 
FLIT 
RZ, H PAR 
LPAR 

R2,8, MINUS 
UMINUS 
RZ, 8, PLUS 
OPERANO 
R2,8,7N 
GOTOFN 


SNOSTH 
R28, SQU0T 
coroe? 
R2,#,OQUOT 
NOQUOTE 
QUOTE 


#477400,R2 
#, AND, R2 
RZ 


R2, #TOLSENN* TABLES 
ERRSX4 
#42, R2 


330 


PS 


BASIC, 


2776 
2775 
2776 
2777 
2778 
2779 
2789 
2783 
2782 
2783 
2784 
2785 
2786 
2787 
2788 
2789 
2798 
2794 
2792 
2793 
2794 
2795 
2796 
2797 
2798 
2799 
2698 
2824 
2802 
2803 
2804 
2005 
2806 
2807 
2608 
2809 
2619 
2813 
2812 
2815 
2614 
2815 
2816 
2017 
2818 
2019 
2828 
2623 
2822 
2823 
2824 
2825 
2826 
2827 
26268 


BASIC, 


2829 
2838 
2634 
2832 
2833 
2634 
2835 
2836 
2837 
2838 
2839 
2840 
2644 
2842 
2843 
2844 
2845 
2846 
2847 
2648 
2849 
2859 
2853 
2852 
2853 
2854 
2655 
2856 
2857 
2858 
2659 
2860 
2864 
2862 
2863 
2864 
2865 
2866 
2867 
2868 
2869 
2872 
2873, 
2872 
2873 
2874 
2875 
2876 
2877 
2878 
2879 
2880 
2884 
2082 
2883 


MACKLL 


011546 
941550 
211552 
911554 
311560 
811562 
311564 
311566 
811570 
811572 
314574 
341576 
311609 
011682 
011604 
211606 


912612 
931612 
41614 
941616 
811628 
841622 
41624 
911626 


811630 
841634 
911648 
941644 
011658 
11654 
811656 
011662 
911666 
841672 
841676 
11708 


811704 


841726 
041712 
B1L714 


914728 
044724 
844726 


MACKX12 


844732 
911734 
B4L736 
011740 
011744 


811746 
841752 


841754 
811760 
841762 
814764 


811766 


814772 
841774 


41777 
942096 


912004 


842818 
342812 
ay2oi4 
342016 


312022 


a42024 
812038 
842034 
212036 
912042 
812844 
312050 
412852 
212056 


Ve2a 


460722 
805712 
383802 
300167 
262227 
380220 
290000 
201440 
301446 
284454 
281470 
804476 
304512 
280828 
381662 
099808 


880000 
080080 
890008 
Seeees 
299000 
980800 
880808 
806808 


211626 
005965 
125065 
112165 
080167 
295265 
080406 
142165 
122165 
122165 
122165 
880533 
984767 


103405 


122127 
881525 
080167 


122127 
081375 
680167 


vo2s 


80302 
152122 
364582 
424127 
04422 


21227 
2044085 


922227 
802476 
1L202 
380474 


380107 


300804 
352125 


220 
600167 


380467 


285204 
983767 
340246 
804767 


183778 


804767 
005765 
281050 
124127 
204427 
122127 
2043524 
916546 
204767 


22eMARe73 


092740 


980048 
898045 
og0R42 
898516 
800042 
200041 
800040 
890043 
880042 


177476 


090237 
agoe24 


890257 
300766 


22eMARe73 


988255 


477777 


177775 


290066 


125 


202246 


BOLB02 


177300 


ag3se4 
020040 


000237 
800245 


opged2 
177328 
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400 
TS? 
cr 
Jue 
apd 
TABLES) ,WORO 
WORD 
WORD 
+WORO 
WORD 
+HORD 
;WORD 
1WORD 
+WORD 
+WORD 
1WORO 


VTFNOF 
+ WORD 
WORD 
WORD 
;WORD 
;WORD 
WORD 
WORD 
“WORD 
,ENDC 


TB, 5END 8,02 
ILTYay CUR 
CLRB 
MOVB 
JMP 
TLIT2¢ CLR 
BR 
FLIT?  MOVB 
MOVE 
IL{TCoMiMova 
MOVE 
8R 
LPaRt JSR 


wTENOF 
acs 
1 ONDE 


Coupe 
BEG 
ERRSX4) UMP 


a JPNOF 
LPSTRNGICMPB 
BNE 
JMP 
1ENOC 
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VARBLE} SWAB 
ayS8 


aod 
CMPB 
BEO 


eTPNOF 
CMP 
BEO 
vENOC 


Cue 
EO 
MOV 
@R 


1 UFNOF 
STRGUMP I UMP 
rENDC 


ERRPOL! ToT 
i }PNOF 
ASCII 
+ENOC 
vFOF 
,ASCIIL 
,ENDC 
iBYTE @ 
1 EVEN 

GOPOFN' JMP 


clENOF 
ERRMX2) JMP 
vENOC 


VARSS{t INC 
BLE 
MOV 
vSR 


at FNOF 
ecs 
,ENOC 
JSR 
TST 
BNE 
CMPB 
8eo 
curs 
BNE 
MOV 
JSR 


PC Re 

CR2) 

406 

ERRUFN 

(ROD, PC 

a b RADE 


a 1 RNA 
SINFNWTABLES 
COSFNeTABLES 
SQRFNeTABLES. 
ATNFNeTABLES 
EXPFN@TASLES 
LOGFNO TABLES 
@ 7 ABS 
INTFNOTABLES 

8 y $6" 


SNOSTK 

TAR 
Les 
ase 
CHPS 
Pos 
SEG 
VAL 
sta 


awaagaesana 


FAGA(CRS) 
FAC2@4(R5) 
CRLYO,FAC2] (RS) 
OPRATOR 

FACL(RS) 

ThITcGom 

CRY) op FACT OL CRS) 
(RL) O,FACL ERS) 
(RE eg FACZe1 (R5) 
(RL), FACZ(R5) 
OPRATOR 

PC,EVAL 


SNOSTK 
LPSTRNG 


(RE) 49H, 9PAR 
OPRATOR 
ERRSK 


SNOSTK 
(RL) o,e,RPAR 
ERRSX4 
SQPRATR 


Re 

(RL) ORE 

(RS), R2 WCOLLECT OFFSET 
(RO) 28, LPAR 

VARSS 


SNOSTK 
(R2) 8, SVAR 
STRGUMP 


(R2) 69H, SCALAR 
VARNOSS 
(R2),K2 
VARNOSS 


SNOSTK 
STRGVAR 


SRONGER 
NETCN 


SLONGER 
‘EXPRESSION TOO COMPLEX? 


FNPN 
SNOSTK 


_ ERRMYX 


Ra 
ERRPOL 
R2,0e(SP) 
PC, EVAL 


SNOSTR 
ERRMXZ 


PC, INT 
FAGA(RS) 
ERRSS2 
(RY), 8, RPAR 
VONESS 

(RG) meh, COMMA 
ERRSX4 
FAC2(R5),0(SP) 
PC, EVAL 
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2084 
2085 
2886 
2087 
2088 
2889 
2890 
269% 
2892 
2893 
2894 
2895 
2896 
2897 
2098 
2899 
2908 
2921 
2902 
2903 
2906 
2905 
2906 
2907 
2908 
2909 
2912 
2911 
2912 
29143 
2934 
2945 
2916 
2947 
2918 
2929 
2928 
2924 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 
2934 
2932 
2933 
2934 
2935 
2936 
2937 
2938 


BASIC, 


2939 
2940 
2944 
2942 
2943 
2944 
2945 
2946 
2947 
2948 
2949 
2958 
2951 
2952 
2953 
2954 
2955 
2956 
2957 
2958 
2959 
2960 
2961 
2962 
2963 
2906 
2965 
2966 
2967 
2968 
2969 
2970 
2974 
2972 
2973 
2974 
2975 
2976 
2977 
— 2978 
2979 
2988 
2984 
2982 
2983 
2984 
2985 
2986 
2987 
2988 
2989 
2999 
2991 
2992 
2993 


MACX11 


912062 


812064 
312870 
942074 
912976 
812122 
842104 
842118 
912112 
942214 
812116 
842122 
012124 
942158 
012154 
842156 


942140 
012144 
812146 


942152 
042156 
932162 
842166 
012178 
812174 
842176 
942202 
042204 
042210 
012212 
o122i4 
012228 
042222 
812226 
812238 
042234 
012256 
012242 
012244 
0142259 
012252 
042256 
042268 
042264 
842266 
042272 
842274 
342276 


MACXL4 


042300 
842384 
812306 
042318 
042312 
@12314 
842316 
812320 
842322 
842324 
942326 
812339 
912334 
842336 
812340 
042344 
842346 
312350 
842354 
912356 
042368 
012364 
812379 
842374 
812376 
812404 
312486 
842412 
012414 
012422 
042426 
812430 
842434 
812436 
342444 
242450 
312452 
312454 
012456 
912469 
312462 
312466 
812474 
242508 
312502 
012504 
312506 
342510 
912512 
942514 
012516 
012520 
912522 
342526 
812538 


yo2s 


183739 


204767 
305765 
201828 
122127 
081324 
816503 
199402 
012608 
080407 
980167 
085223 
012723 
2946590 
100778 
242602 


021227 
oa1802 
080167 


004767 
312265 
844265 
121103 
120327 
204437 
120327 
904434 
128327 
103644 
811602 
420227 
164425 
120227 
101417 
120227 
194483 
120227 
184403 
120327 
104427 
120327 
104424 
120327 
184422 
120327 
10444 

20508 

152602 


vo2s 


162702 
260202 
#60782 
064207 
804162 
208124 
200154 
800126 
809056 
290052 
poeee2 
018546 
a2n604 
193419 
846546 
310346 
205204 
080167 
200241 
900207 
200467 
004767 
305765 
304404 
062765 
380679 
305465 
192265 
312765 
205065 
300657 
994767 
990654 
812767 
004467 
012514 
812530 
300R0e6 
016668 
915066 
300467 
342767 
304467 
312544 
312530 
aeenaec 
916868 
315066 
380763 
005716 
181903 
405726 
300167 
000136 
316546 


22eMARC7S 


293504 
280048 


980237 
990042 


294454 


477777 
988042 


177777 
889508 
084252 
000048 
809042 
098281 
080295 
098227 


ge227 
089231 
ego2s4 
90254 
90254 
99234 
o902s4, 
090227 


22eMARe7$ 


O9G226 


apowaz 


900048 


177050 


177406 
097060 
gaede 
198000 
ogane2 


944900 
088042 


175166 


a13214 
002444 


177500 
013576 
882414 


0900006 
290842 


200048 


880049 


ogenae6 


988000G 


15042 


15142 
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vtFNOF 
BCS 
sENOC 


JSR 
TST 
BNE 
cMPB 
BNE 
MOV 
BM} 
MOV 
BR 
ERRSS2) JMP 
VONESS! INC 
MoV 
MOV 
VTWOSS} BMI 
MOV 


vUPNOF 
CMP 
BNE 
JMP 
sENOC 


JSR 
VARNOSS I MOV 

MoV 
OPRATORIMOVB 
cMPB 
BE 
cura 
BEO 
cMPe 
A,0 
MOV 
cure 
BL 0S 
cure 
aLos 
cure 
BLOS 
cHPB 
BLOS 
cHPB 
BLOs 
cMpe 
BLOS 
cHPB 
8LOs 
PREC2) CMPB 

BL 0S 


e 
DOLTNOWICLR 
B1SB 


PRECS} 
PREC4) 
PRECS} 
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Sus 
ado 
aoo 
aoo 
,WORD 
y WORD 
,WORD 
,WORD 
sWORD 
,WORD 
,WORD 
NOTNOW) MOV 
CMP 
81.0 
MOV 
MOV 
ING 
MP 
TERMING CLC 
RTS 
ERRPOS| UMP 
MINUS} JSR 
UNARY} = TST 
BEQ 
aoo 
BR 
UINTEGS NEG 
ave 
Mov 
CLR 
BR 
PLUS! dsr 
BR 
STARI = MOV 
ySR 
,WORD 
, WORD 
,WORD 
1WORD 
1 WORD 
STAR} JMP 
SLASH} MOV 
vSR 
,WORD 
WORD 
1 WORD 
,WORO 
, WORD 
@R 
TSYSTKI TST 
BNE 
rsfsit YS? 
ume 
TS?S2)  JMP 
PUSHF) MOV 


TABLE2! 


SNOSTK 
ERRMXe 


PG, INT 
FACACAS) 
ERRSS2 

CRE) o,@,RPAR 
ERRSX4 
FAC2(R5),R3 
ERRSS2 

(SP) 4,RO 
vtwoss 
ERRSSS 

Ra 

#04, RS 
FAC2(KS) RA 
ERRSSZ 

(SP) e,R2 


SNOSTK 
(R2),8,SVAR 
i) 


STRGAKR 


PG LogGeT 
(RZ) e,FACL ERS) 
(R2),FAC2(A5) 
CRA), KS 
R¥, 8, EOL 
OO} TNOW 
RS,#,G0TO 
DOT TNOW 
R3,#,YPARRO 
ERRSX4 
(SP), H2 
R2, 8, UPARKO 
OOLTNOW 
R2,#, SLASH 
PREC? 
R2, 8, MINUS 
PRECS 
R2,8,£0 
PREC 

RS,#, £0 
NOTNOW 
R3,8, MINUS 
NOTNOW 
R3,#, SLASH 
NOTNOW 
RS, 8, UPARRO 
NOTNOW 

RZ 

CSP) 4,R2 


#, UPARROSL,R2 
RO ARZ 

PG,R2 

(RZ), PC 
UPARROSTABLED 
STAR@TABLES 
SUASHOTABLE2 
PLUS#TABLE2 
UNARYeTARLE2 
MINUS@TABLE2 
TERMINeTABLE2 
FAC2(H5),0(SP) 
SP,R4 

ERRPOS 

FACS (KS), 0¢SP) 
R3,0(SP) 

Ri 

OPERANO 


PG 

ERRPOL, 

PG, SUBSTK 
FACL(KS) 
VINTEG 
#LOOFOG,FACL(RS) 
OPRATOR 
FAC2(N5) 
OPRATOR 
#44998, FACL(RS) 
FAC2(KS) 
OPRATOR 

PC, ADDSTK 
OPRATOR 
#ERSTAR, SERVEC 
R4,FPPSAV 
TS¥STK 

PUSHF 

SMLR 

POP 

FPPRES 

OPRATOR 
#ERROVV, SERVES 
R4,FPPSAV 
TSYTSTK 

PUSHF 

sOVR 

POP 

FPPRES 

STARS 

(9P) 

TSTS2 

(SPye 

s[Rr 

@(R4E)e 
FAG2(R5),0(SP) 


HNEXT CHARACTER, 


PREVIOUS OPERATOR, 

JUMP IF 9, 

pJUMP IF @ OR J, 

HJUMP IF # » OR UNARY, 

HUUMP IF 8 <> <8 De < OR DY 
1UMP TF ANY OPERATOR, 

PJUMP IF @ © YNARY @ / AR 9, 
syUMP IF # / OR fy 


JUMP IF 


’ 
CE, 6, Aebe ) 00 THE # “OW, 


JUMP 70 00 THE APPROPRIATE OPERATION, 


HLEFT OPERANO 1S O¢SP),2¢SP), 


WRIGHT OPERAND IS FACLERS) ,FAC2(R5), 


1(E,6, 


yCARPY OFF MEANS NUMERIC RESULT, 


HTEST FOP OF STACK AND FLOAT IF INT 


sPUSH FAC ANO FLOAT IF NEC 
yPERFORM MULT 
1POP RESULT 


RETURN 


AaBe ) DONT 00 THE + YET, 


a3 
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2994 312534 2316846 aaeg4e MOV FACA(RS),©¢SP) 

2995 912549 7e1767 8EQ TSsTsy IFLOAT IF INTEGER 
2996 «9132542 a90154 wMP (Raye PRETURN 
2997 vIFOF — SNOSTR 

2998 JOUMMY ENTRY POINTS FOR SNOSTR 

2999 SAVCHARI 

3800 ARGBI 

308% MAKESTY 

3e02 SOPRAT} 

Seas STOSVARI 

3004 ERRMIX} 

3005 STPROY 

3086 : ,ENOC 

3oo7 

3008 ERRSYNI 

3009 812544 oegee4 ERRSX5; OF 

3240 1 UFNOF SLONGER 

3812 342546 «954525 116 sASCIT «SYNE 

3012 1ENOC 

3043 sIFOF = S,ONGER 

3e14 ASCII «SYNTAX ERROR! 

3915 

3016 ENOC 

3017 «932551 CLT) sByTE @ 

3818 vEVEN 

3019 

3020 sJFNOF SNOSTR 

382% 9832552 122127 990577 QUOTE: CMPB CRG) O,e, TEXT 

3022 812556 001372 BNE ERRSXS 

3823 832560 919203 MOV R2,R3 HSAVE QUOTE CHAR, 
3824 312562 019102 MOV RAR? 

3025 932564 198721 TST8 CRYYe 

3826 832566 381376 SNE 182 

3827 912578 920604 ; CMP SP,R4 

3028 «942572 103672 BLO ERRPOS 

329 3842574 849246 MOV R2,0(§P) 

3830 842576 162716 00005 sys #3, (8?) 

303% 842602 339146 MOV RasetgP) 

3832 942684 160216 sus RO, (SP) 

3833 012606 122183 CMPB CRY) O,R3 SAME AS STARTING QUCTE CHAR,? 
3834 842618 081359 BNE ERRSXS 

S835 912612 285316 DEC ¢$P) 

3036 342614 204410 re) QUNULL 

3037 942616 018602 MQV SP? ,R2 

3838 942628 062702 covee2 A00 @2,R2 

339 342624 304767 904422 JSR PC MAKESTR 

3840 842638 012616 MOV C$P)0, (SP) 

304% 212632 300167 o90324 ume Qyoraum 

3842 812636 222626 QUNULLE GMP (SP) 0, (SPDs 

3843 942040 912746 «177777 GOTVALT HOV easier 2 6 
3044 042644 900425 aR: SOPRATR a 
3045 1ENOC 

304 

3047 912646 988167 a90330 ERPO2) ymP ERRPOZ 

3048 
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3049 v}FNDF SNOSTK 

3858 912652 384767 993532 STAGARRIJSR Pg, LOGGET 
3052 342656 300406 BR STRGBTH 

3052 912669 095722 STRGVARITST (R2)4 

3Q53 312662 026227 oopee2 177777 CMP 2¢R2), 80% 
3054 912678 092474 BEO STRGBTH 

3955 912672 «311202 MOV (R27, R2 

3056 042674 911203 STRGBTHIMOV (RZ), RS 

3057 332676 «020327 477777 CMP RS, Hey 

3058 912792 201756 seo GOTVAL 

3059 912704 020604 CMP SP,R4 

3068 312706 193757 BLO ERPDO? 

3064 312710 305046 CLR o(SP) 

3062 942712 111326 Move ¢R3),¢SP) 
3863 012714 204767 994332 JSR PG» MAKESTR 
3264 912728 1426627 ag0802 B8v226 SOPRATRICMPS 2¢SP),#,AMPERS 
3065 012726 301434 BEQ CONCAT 

3066 912730 121127 oaa2z6 CMPa (RY) 48, AMPERS 
3067 912734 394422 BE AMPWALT 

3268 342736 126627 ooaee2 gee235 cMPB 2¢SP))8, TERM 
3869 «312744 «394277 BNE ERRSXS 

3070 042746 212688 MQV (SP)e,RO 
3074 812758 905726 TST (SP)e 

3872 842752 911602 MOV (SP),H2 

3073 3132754 319816 MOV RO, (SP) 

3074 942756 303200 INC RO 

3075 312769 301406 g£0 SOPRX HCHECK NULL STRING 
3076 312762 262708 oneeo2 aoo 92,80 

3077 312766 2910603 MoV SPARS 

3878 012770 119340 MOVB RS, eC RB) 
3079 942772 aga3a3 swas RS 

3080 312774 1490340 MOVB RS, e( KB) 
3881 932776 200263 SOPRXI SEC 

3882 843009 000112 vMP (RQ) 

3083 43002 132146 AMPWASTIMOVE (RL) ope (SP) 
3084 213004 904767 476372 JSR PG, EVAL 

3985 313010 193743 acs SOPRATR 

3886 «343812 200004 ERRMIX} JOT 

3087 sTFNOF © SLONGER 

3088 333014 354516 115 sASCIT | \NSHN 

3289 ,ENOC 

3099 1EFOF = SLONGER 

3094 sASCIL (NUMBERS AND STRINGS MIXEDS 
3092 vENOC 

3093 343037 200 :BYTE 2 

3094 , EVEN 

3095 B43820 224627 477777 CONCATS CMP (SP), eed 
3096 343024 cereo2 BNE CATNOT 

3097 313026 322626 GMP (SP)¢; (SP) e 
3098 313038 380733 BR SOPRATR 

3099 343832 346622 2009004 CATNOTE MOV 4(SP),R2 23 2. 
3108 833036 c20227 «177777 cMP R2,0e03 

3101 313042 aas906 BNE CATLONG 

3182 913044 212600 MOV (SP)o,RO 


3123 313246 395726 TST (SP)e 
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$104 013050 819016 MOV RB, (SH) 
3405 943052 680444 rR CATCOM 
3186 843954 285000 CAPLONGICLR Rg 

3487 943056 151228 83SB (Ra), RB 
3406 343060 311623 MOV (SP),83 
3109 943062 420606 cup SP ,R4 
3120 «4923064 193678 BLO ERPOG2 
S412 813066 325946 CLR =(9P) 
3412 843078 111316 move (R3), (SP) 
3413 843872 360016 ado RO, (SP) 
3444 943074 324627 098377 CMP (SP), #377 
3415 943100 101942 BH! ERRSTR 
3116 943102 919602 “OV SP,R2 
3417) 015204 262792 sounee 400 86,R2 
3228 043118 2894767 094136 JSR PC MAKESTR 
3219 943114 512623 MOV (SP)O,R3 
3228 343116 G16602 200004 “OV 4(SP) QRZ 
3221 213122 305000 CLR Re 

3222 013124 151208 aise (R2), Ko 
3423 313126 019366 oga004 MOV R3,4(5P) 
3124 (943132 sogea3 400 RO,RS 
3425 913134 262783 ogee apo #3485 
3426 843140 212602 MoV (SP) 0 )R2 
3327 015342 005726 TST (SP) 
3428 843144 905009 CLR Rg 

3229 813146 151208 8138 (R2),H8 
3430 913158 262702 ogeg0s ao #3,R2 
3432 843154 142223 Move (R2)e, (R36 
3432 013156 395300 DEC Re 

3233 913160 393375 eGT 104 
3134 SYPRO} 

3435 943162 g11600 QUOTBUMS MOV (SP),RO 
3436 843164 219602 CATCOM MOV SP,R2 
3437 023166 362700 acoue3s Aco #3,RO 
3438 843172 119240 Move RZ, 0(KO) 
3439 045374 o00382 Sw R2 

3248 843176 110240 Move R2,0(RO) 
324% 045208 6280647 BR SOPRAIR 
3242 ,ENOC 

343 

at 043202 880107 176564 ERRPO2} yMP ERRPD, 
344 

3146 s}FNOF SNOSTK 
347 813206 saeoee ERRSTR} OT 

3348 vIFNDF © SQOQNGER 
$249 943219 252123 114 sASCIT \STLN 
3150 ,ENOC 

3454 sUPOF © S,ONGER 
3152 sASCII STRING TOO LONG! 
3453 ,ENDC 

3454 043213 TT) ‘BYTE 2 23 g 
3455 ,EVEN 

31456 sENOC 

3157 

3158 2 EREXPI 
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3459 ERSTARE 
3160 ERa00s 
3464 045214 coege4 ERROVR} LOT 
3162 1JPNOF SQONGER 
3463 343216 953417 406 sASCIT FOVFE 
3164 1ENOC 
3465 iTFOF = SRONGER 
3166 * ,ASCIT OVERFLOW! 
3467 ,ENOC 
3168) 943221 eee :BYTE @ 
3169 EVEN 
3470 ‘ 
3171 943222 312746 sg0n006 SINFNE MOY SSIN,eCSP) 
3372 813226 990434 BR FUNCT] 
3473 813238 812746 seageeG COSFN| MOV #G0S,0(SP) 
3474 943234 990434 BR FUNCT] 
3475 043236 812746 o80B006 SQRFN} MOV #SQRT,0(SP) 
3476 043242 932767 918312 go0e006 MOV aERSOR, SERVEC 
3477 043250 990423 BR FUNCT] 
3378 «6233252 212746 eg9n006 ATNFNE MOV WATAN, @(SP) 
3479 343256 890429 6R FUNCTL 
3482 015260 312746 oa00e006 EXPFNY MOV SEXP, (SP) 
3483 833264 312767 913214 ageeesc Mov OGREXP, SERVEC 
3282 845272 308412 BR FUNCT 
3483 943274 032746 aeseooG LOGFNE MOV #ALOG, @( SP) 
3484 (843300 212767 310312 aeegeeG MOV #ERLOG, SERVE 
3385 913306 a02404 BR FUNCT] 
3186 
3187 stPNOF = 6SNOSTR 
3188 333319 900167 177476 ERRMX9) UMP ERRMIX 
3189 ,ENOC 
3190 
3194 943314 290167 177962 ERPOL1) UMP ERRPO? 
aie 843328 984767 176056 FUNCTS§ JSR PG,EVAL 
3194 sUPNOF = SNOSTH 
3495 943324 183802 ece FUNCT) 
3296 013326 900167 174760 UMP ERRARG 
3397 FUNCTUI ‘ 
3498 ,£N0C 
3199 
3288 343332 312603 mov CSPI, RS 
3204 313334 304902 ONE 196 
3282 248336 900167 324156 UMP ERRYFN 
3203) 043342 122127 900237 cure (RE) oy 8, RPAR 
3204 343346 894959 QNE ERRSXY 
4502 Besos aatas? 291540 vSR RG, FPPSAV 
86 313354 942538 ; WORD = PYSHF SPUSH FAC, FLOAT JF NECESSARY 
S207 943356 2433646 {WORD FUNOK 160 70 FuNertoN ' aes 
3238 343369 348866 WORD = FPPRES 
3209 913362 200449 3R OPREN 239 
3210 343364 240684 FUNOK} MOV SPRL WSAVE ADDRESS OF PUSHED ARG ti 
3211 343366 240446 MOV R4,0(5P) ISAVE R4 
3212) 843378 332746 «213436 MOV OFUNRET, ©(SP) — ;OUMMY RETURN ADDRESS 


321309 043374 912746 000137 MOV #357,0(SP) sOUMMY JUMP INSTR, 
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3814 
3215 
3216 
3217 
3218 
3219 
3220 
3224 
3222 
3223 
3224 
3225 
3226 
3227 
3228 
3229 
3232 
3234 
3232 
3233 
3234 
3235 
3236 
3237 
3238 
3239 
3240 
3243 
3242 
3243 
3244 
3245 
3246 
3247 
3248 
yeas 
3250 
3253 
3252 
3253 
3254 
3255 
3256 
3237 
3258 
3239 
32008 
3264 
3262 
3263 
32o4 
3265 
3266 
3267 
3268 
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3269 
3278 
3274 
3272 
3273 
3274 
3275 
3276 
3277 
3276 
3279 
3288 
3283 
3282 
3283 
3284 
3385 
3286 
3287 
3288 
3289 
3298 
3294, 
3292 
3293 
3294 
3295 
3296 
3297 
3298 
3299 
3300 
3303 
3302 
3305 
3304 
3305 
3306 
3387 
3308 
3309 
3340 
3312 
3322 
33135 
3314 
3345 
3346 
3347 
3318 
3319 
3329 
3321 
3322 
33235 
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043428 
243402 
813406 
213410 
013432 
843416 
243422 
318424 
813426 
8134352 
0134356 


343449 


813444 


943450 


843452 
013456 
a1346g 
013464 
243479 


o4se74 
043476 
8135008 
043504 
843506 
843510 
843514 
813546 


013529 
913526 
833552 
8485354 
843548 
843542 
943550 
843552 


843556 
843560 
043562 
813566 
843570 


MACKAY 
843572 


943575 


943576 
843602 
813684 
943610 
843612 
815616 
943622 
913626 


343638 
8436346 
943636 
843642 
913644 
843659 
845654 
843656 
313662 
3413666 
313672 
13674 
813676 
343700 
943702 
913706 
243719 
845714 
843716 
243720 
345724 
3143738 


413732 
813734 
313736 
313742 
343744 


343759 
843754 
243756 


813760 
313764 
843766 
313770 


Vaz. 


030146 
242746 
830538 
810605 
004070 
862726 
032604 
822626 
10965 
820165 
880154 


(080167 


804767 


183773 


122127 
091906 
204767 
980167 
080167 


085716 
304010 
208766 
884405 
285726 
304467 
TT TT 
945066 


832767 
895765 
0810356 
395765 
381896 
012765 
822626 
800167 


885716 
901077 
295765 
100015 
880004 


vo2s 
053124 


020027 
183372 
280167 
103367 
380167 
205065 
285965 
298739 


295765 
984936 
046520 
340002 
242700 
320027 
193426 
242702 
352702 
920027 
281406 
181026 
096202 
103414 
962700 
200767 
295765 
180904 
305402 
305065 
210265 
300722 


305716 
201405 
204467 
816046 
344104 


805765 
180320 
380704 


316508 
348822 
282004 
385408 


22eMARe73 «15144 9 PAGE 4409 
MQY Ro, ecgr) 
90403 Mov 402,039) 
meV a5, RO 
MOV SP,RS 
980052 JSR RO, ORSSAVE(RO) 
ageRio FUNRET} ADO 98), SP 
MOV (9P)o,R4 
cmp ($P)0,¢SP)e 
90040 MOV RO, FAGLCRS) 
090062 MOV RL FAC2cRsy 
vMP O(Raye 
rFNOF = SNOSTR 
177346 ERRMX8} UMP ERRMIX 
,ENOC 
175732 TNfFNT JSR PG, EVAL 
-yTFNOF = SNOSTK 
acs ERRMKS 
sENDC 
098237 CMPB (RL)%) 8, RPAR 
ONE ERRSy? 
992410 JSR PG,INT 
176476 OPRFNI UMP OPRATOR 
177058 ERRSX9) JP ERRSXS ~ 
' F A YS NOY OrFLOAY 17 
UPARROY ts ' (3) ‘ 
BNE vag 
8ebRe2 Ts? 2¢$8P) 
8EO vag 
TS? (SP)o 
04400 JSR RO, FPPSAV 
sWORO = -§IR 
+NORD = FPPRES 
234064 a9e08gG VArt MOV SERREXP, SERVES 
ogee TST FACL(RS) 
BNE vasa 
ogoge2 TST FAC2(KS) 
BNE vas 
e808, e80042 Mov WY FAGZCRS) 
uaa CMP CSP), (SP)e 
176430 ump OPRATOR 
4B 1S INTEGER 
VAST Ts? (SP) 
BNE UAg? 
888042 Ts? FAG2¢R3) 
aPL yas 
uast tor 
cIPNOF = SLONGER 
22eMARe7S §=45144 PAGE 44049 
068 sASCIL fQVO! 
1ENOC 
rIFOF = SLONGER 
sASCIT fF QEVESTON BY OF 
vENOC 
BYTE 8 
,EVEN 
oa4o00 ERROLVI CMP RO, #4008 
BHIS yas 
177404 JMP ERSTAR 
BHIS UAB 
477376 UMP ERROVK 
890040 UAgT CLR FACS(RS) 
200042 CLR FAC2(RS) 
8R UA4 
JFIX B IF INTEGER ¢ 296 
ogea42 vatar = TST FACZ(KS) 
ane VASO,9 
888049 MOV FACS(NS) RO 
MOV RO RZ 
100177 BIC #400277 ,R0 
040208 CMP RO, 840200 
alo VASE ,9 
177600 Bic #477608 ,R2 
oo0200 ays $200, K2 
842008 vaAdoar CMP RB, #42000 
BEQ yaaa 
BHy VALE? 
ASR Re 
Bcs VALO,S 
eee220 aod #200, R8 
BR VALBA 
909040 uagosy 6ST FACA(RS) 
aPL, yagec 
NEG R2 
900040 vaiacr CLR FACL(KS) 
820042 MOV RO, FAGZ(RD) 
BR uASs 
18 JS REAL 
uada,51 TST ($P) 
BEO vada 
804152 vSr ROA FPPSAV 
WORD = PUSH 
814146 sWORD = VAMP, UA2S 
800040 vat2roT$T FAGACKS) 
BPL vag 
8R vas 
1B INTEGER, A REAL 
300842 Uad7t MOV FAC2CKS) RO 
MOV RO,RZ 
BGE UAGTA 
NEG RO 


TADOP OF ARGUMENT 

sOUMMY BR 

sSAVE RS VALUE 

JRETURN ADDRESS (70 DUMMY PROG IN STK) 


1POP DUMMY PROGRAM 
sRESTORE RS 

REMOVE OLD FAC FROM STACK 
STORE RESULT IN FAC 


AND RETURN 


sUS UPPER A 


sUS LOWER AB 


}[8 UPPER Beg 
HIS LOWER B 8 o 
sSET RESULT 4 


ms ave 


11S LOWER 8 > O 
INO, ERROR MESSAGE 


240 


OV BY @ 
HOVERFLOW 
sSET RESULT @ 


PEXTRACT EXPONENT 
SCWECK TOO SHALL 


sR2 1S MANTISSA 


HIP ALT CLEARED,NO GOOD 
1UPDATE EXPONENT 


ms aa ae 


1{$ UPPER B> @ 
HYES 
JNO, ERROR 


ad 


HSAVE FOR SIGN TES? 


_— 


BASIC, 


3324 
3325 
3326 
3327 
3328 
3329 
3338 
3332 
3332 
3333 
3334 
3335 
3336 
3337 
3338 
3339 
3348 
3344 
3342 
3343 
3544 
3345 
3346 
3347 
3348 
3349 
3358 
3351 
3352 
3353 
3354 
3355 
3356 
3337 
3358 
3359 
3368 
3363 
3362 
3363 
3364 
3365 
3366 
3307 
3368 
3369 
3372 
3373 
3372 
3373 
3374 
3375 
3376 
3377 
3378 


BASIC 


3379 
3388 
3382 
3382 
3383 
3384 
3385 
3386 
3387 
3388 
3389 
3398 
3392 
3392 
3393 
3394 
3395 
3396 
3397 
3398 
3399 
3408 
3401 
3402 
3403 
3404 
3405 
3406 
3497 
3408 
34g9 
3418 
341. 
3412 
3443 
3444 
3415 
3416 
3447 
3428 
3419 
3e20 
3424 
3422 
3423 
3424 
3425 
3426 
3427 
3428 
3429 
3438 
3432 
3432 
3433 


MACKXL1 


813772 
043776 
014909 
014304 
214906 
014010 
314014 
814016 
924020 
314324 
014930 
3449352 
914954 
024040 
014042 
044046 
814950 
924052 
814054 
944956 
844969 


044064 
914066 


844972 


044072 
914076 
814109 
0141282 
014104 
814106 
a14119 
014114 
844116 
024120 
014124 
814126 
044138 
814132 
O24134 


814136 
014140 
14144 


314146 
914158 


MACKXAL 


214152 
014154 
614156 
844168 
214162 
014164 
914278 
014172 
014174 
914176 
044209 
844202 
844204 
014206 
044210 
014212 
014228 
914224 
844232 
914236 


044242 


314246 
344252 
014254 
044260 
014262 
814266 
314278 
914272 
844274 
314276 
314300 


314304 


314306 
814310 
814312 
014314 
814316 
314328 


344322 
214326 


314330 
924334 


vaes 


320027 
103057 
3046467 
316060 
316072 
314972 
316046 
8960006 
824138 
316046 
8600026 
346068 
314104 
16068 
814129 
046072 
816846 
9898086 
416060 
015066 
000167 


880R04 
942536 


806265 
183882 
305724 
980134 
814404 
889454 
035765 
884773 
988770 
985765 
180367 
980764 
205716 
180754 
aoaise 


820246 
684467 
agegae6 


824178 
014130 


vo2t 


844242 
316046 
2889086 
044224 
215066 
200167 
912609 
612604 
912602 
312693 
010146 
910646 
018346 
610246 
980454 
812765 
280167 
812765 
9006167 
80167 


300167 


300167 
142202 
122227 
684372 
866502 
220604 
183762 
814230 
862541 
310046 
904767 


1893426 


842608 
112802 
100580 
280302 
152082 
361502 


324227 
994745 


922227 
601401 


22eMARO7S 15143 


90256 Uat7at 


004118 
014020 UAL7BI 


014040 
816046 


UAL701 


014010 
UAGTFE 
024056 


UALoE 
176182 


ERREXP} 
uA2adt 


122 


888044 UAASRI 
UANUMPS 
UAJMPS 


096844 uatstar 


9oe85e UATST2t 


UATSTAT 


UA2ot 
989750 


UA2St 


2eeMARe7S = 15144 


475776 
REVRSE} 


8900006 ogaR852 
177140 
3000086 896052 
177126 
175538 


CALOGy 
CEXPI 
ERRPD4} 


176544 ERRMX1¢ 


176272 ERRSXA} 


FNPNG 
898255 


B8d004 


FNSWAP) 
175976 


177777 


177775 


PAGE 44011 


CMP 

BHIs 
JSR 

WORD 
,WORD 
WORD 
{WORD 
WORD 
WORD 
{WORD 
,WORD 
WORD 
»WORO 
WORD 
WORD 
‘WORD 
;WORD 
(WORD 
+ WQRO 
WORD 
ume 


107 

1 LFNOF 
ASCII 
ENC 
\IFOP 
ASCE 
+ENOC 
BYTE 
EVEN 


ASR 
ace 
TST 
IMP 
MOV 
JMP 
Ts? 
Bee 
BR 

Ts? 
apy 
aR 

Ts? 
an} 
JMP 


mov 
JSR 
WORD 


+WORD 
+WORD 


PAGE 44042 


WORD 
+WORO 
:WORD 
,WORD 
sWORD 
ume 
MOV 
MOV 
MOV 
MoV 
MOV 
MOV 
Mov 
MOV 
JP 
MOV 
sMP 
MOV 
vMP 
JMP 


vl FNOF 
JMP 
1 ENOC 


JMP 
MOVB 
CMP 
BNE 
aod 
CMP 
840 
MOV 
seo 
MoV 
JSR 


sy PNOF 
BCs 
,ENOC 


Mov 
“OVE 
BMy 
SWAB 
BSB 
aoo 


1FNOF 
CMP 
Bea 
eENOC 


ld 
Bea 


RB, 8296 
yA2e 
R4,FPPSAV 
POP 

PUSH 
UAASR,VAL7O 
PUSH 

SMLR 
UAYSTO,UASIF 
PUSH, PUSH 
SMLR 

POP 

UAGMP, UAL78 
PoP 
UATST2,UA39 
PYSHL 
PUSH 
SOVR 
PoP 
FPPRES 
OPRATOR 


SLONGER 
NGERN 


SONGER 
(¢ ERROR! 


RBSAVE(RS) 
UAUMP 
(R4)6 
(Raye 
OH, Re 
OC R4)® 
ROSAVE 
UAUMP 
UANQMP 
R2SAVECRS) 
UAWMP 
UANgMP 
esp 

VA2a 
O(RA)e 


(RS) 


R2,°(SP) 
R4,FPPSAV 
SIR 


REVRSE 
UATSTA 


CaLOG 
PUSH 
SMR 
CEXP 
FPPRES 
OPRATOR 
CSP }6,RO 
(SP) 9) R2 
CSP) op R2 
(SP)e,R3 
RL, 0(SP) 
Rb, e(SP) 
RS,e(SP) 
R2,0(SP) 
@(R4)0 


#ALOG,RISAVE (RS) 


FYNOK 
EXP, RSSAVE(RS) 
FYUNOK 
ERRPOL 


SNOSTK 
ERRNIK 


ERRSKS 
CREDO ERZ 
(Rd) o,e,LPAR 
ERRSXA 

POL LR) ,R2 
SP {RG 
ERRPOS 
(R2) RO 
ERRYFN 
RB,etSP) 
PC, EVAL 


SNOSTK 
FNSTR 


(SP)4,RO 
RO), R2 
ERRAGL 
R2 

(RAO ,R2 
(RB) ,K2 


SNOSTH 
(R2),#,SVAR 
ERRWXL 


CR2)e,a, SCALAR 
144 


sR@ 1S geSte) IF TOO BfG. FLOAT 


160 INYO POLISH MODE 

CURRENT PROOVCT IS A 

SCURRENY ANSWER IS 4 (ON STK) 
SHIFT 8, BRANCH JF BIf tS @ 
iGET CURRENT PRODUCT ONT OSTACK 
MULTIPLY INTO CURRENT ANSWER 
sTEST IF DONE, BRANCH IF So 
sTWO COPIES OF CURRENT PRODUCT 
SQUARE JP 

JANO PUT RESULT BACK 

sPOLISH JUMP TO 178 

WSVORE ANSWER INTO FAC 

HTEST SIGN B, JF * JUMP 

PUSH &£ ONTO STACK 


JANS © 4/ANS JF B NEG 


Ipop ANSWER To FAC 


yANO GET OUT 


ySKJP OVER JUMP ADDRESS 


JPOLISH MODE JUMP 


sTEST SIGN OF 8B 
VPOLISH JUMP IF 8 + 


JPUSH INT 8 ON STACK 


AYA 


FLOAT B 


yREVERSE TOP TWO ON STK 
TEST TOP STK, BR TO ERR IF « 


FCALL ALOG FUNCTION ON a, RESULT TO Fac 
IPUSH LoGtA) ONTO STACK 

JCAL BeLocca) 

SCALC EXP(BeL0G(A)), RESULT TO FAC 


ROUTINE TO REVERSE TOP 2 
JFLTPY NUMBERS ON STACK 


JRA NOW CONTAINS THE DEF POINTER, 


JRESTORE TWE DEF pPolwTeR, 
IGET TWE VARIABLE FROM THE DEF, 


sUP THE OEF VARIABLE IS STRI'G AND 
JTHE VALUE ISNT THEN ITS AN FRROR, 


243 


BASICL 


3434 
3435 
3436 
3437 
3438 
3439 
3442 
344d 
3442 
3443 
sang 
3445 
3446 
3447 
3448 
3449 
3450 
3454 
3452 
3453 
3454 
3455 
3456 
3457 
3458 
3459 
3468 
3464 
3462 
3463 
3464 
3465 
3466 
3467 
3468 
3409 
3478 
3472 
3a72 
3473 
3474 
3475 
3476 
3477 
3478 
3479 
3400 
3461 
3482 
3483 
3484 
3485 
3486 
3487 
3486 


BASICL 


3489 
3490 
3494 
3492 
3493 
3494 
3495 
3496 
3497 
3498 
3499 
3508 
3504 
3502 
3503 
3504 
3505 
3500 
3507 
3508 
3509 
3518 
3514 
3542 
3913 
3514 
3515 
3516 
3517 
3518 
3519 
3520 
3521 
3522 
3523 
3524 
3525 
3526 
3527 
3528 
3529 
3530 
3931 
3532 
3533 
3534 
3535 
3536 
3537 
3538 
3539 
3548 
3541 
3542 
3943 


MACX1LL 


3143356 
014349 
814342 
814344 
814346 
314352 
814354 
914360 


014362 
014366 
014378 
816372 
014374 
8144376 
014409 
014404 
014406 
014414 
814416 
014420 
814422 
014424 
014426 
044430 
814432 
314434 
014436 
314449 
814442 
044446 
944450 
844452 
044454 
814456 
044462 
824464 
844466 
914479 
044472 
014474 
814476 
01450898 


014502 
014526 
344510 
014512 
044514 
314528 


314522 


MACX11 


314525 


014526 
014532 
014534 
314536 
914549 
924542 
214546 
214550 
314552 
014554 
01456 
914562 
014564 
814566 
014578 
914574 
014576 
214600 
844682 
014604 
a14618 
214612 


914614 
314620 


014622 
344626 
244638 
814652 
314656 
814640 
014642 
324644 
314646 
314658 
814652 


314654 
314656 
314669 
314666 
314678 
014672 
314074 
214676 


Vo2a 


211202 
220604 
103735 
311246 
016522 
011246 
816542 
290458 


316600 
112002 
100432 
880302 
152802 
864502 
822227 
381316 
326227 
001404 
@11202 
811203 
012632 
310326 
818246 
014202 
885202 
301442 
805203 
381004 
116622 
212642 
088424 
122322 
121322 
162703 
085726 
818602 
205205 
304404 
880302 
120223 
680302 
120213 


121027 
001907 
122921 
881672 
080167 
800804 


043125 


VO2L 


121927 
281370 
310046 
122021 
984365 
122027 
301362 
818146 
310004 
004767 
103492 
203083 
300401 
812683 
122127 
081224 
322604 
012698 
124046 
114966 
012602 
#64502 


824227 
091426 


622227 
304401 
241292 
342662 
312612 
200426 
042612 
340846 
911208 
161502 
995222 


300441 
305722 
826227 
081765 
811282 
922642 
810046 
a112e8 


22qMARe73 


88840 
308048 


agea02 


477777 


Baoe82 177777 


000002 


eaeoe2 


090243 


173572 


116 


22eMARe73 


200237 


590254 


174622 


@00203 


880001 


177777 


177775 


288002 


O88R802 177777 


15142 


45944 


PAGE 44043 


MOV 
CmP 
Bo 
“OV 
MOV 
MOV 
MOV 
§R 


+ pFNOF 
FNSTR} MOV 
MOVB 
amy 
SWAB 
B1SB8 
ado 
CMP 
BNE 
cP 
BEG 
MOV 
MOV 
MOV 
MOV 
MoV 
MOV 
INC 
Bea 
INC 
BNE 
MOVB 
MOVe 
BR 
FNOLNNE MOVE 
MOVE 
sus 
FNNEWNLITST 
MOV 


TNC 
BEO 
Swas 
MOVE 
Swas 
MOVE 
sENOC 


FNREPLI CMPe 
BNE 
cMPB 
BEO 

ERRAG1I UMP 

ERRUFN| {OT 
LUPNOF 
sASCIT 
+ENOC 


PAGE 44014 


vJFOF 
sASCII 
1 ENOC 
BYTE 2 
rEVEN 
FNNOCOMICMPB 
BNE 
MoV 
CMPS 
BNE 
cuPa 
BNE 
MOV 
MOV 
WSR 
acs 
CLR 
BR 
MOV 
MPa 
BNE 
MOV 
MOV 
FNRLUP} MOVE 
“QVB 
MoV 
aoo 


1 TFNOF 
CMP 
8EQ 
,ENOC 


Cup 
Ta) 
MOV 
MOV 
MOV 
8R 
FNRSSC} MOV 
“OV 
MOV 
SUB 
INC 


vTFNOF 


FNRSTR} TST 
CMP 
8E0 
MOV 
MOV 
MOV 


,ENOC 


(R2),R2 

SPaRé 

ERRPOS 
(R2),0¢(SP) 
FACA(KS) (R20 
(R2),e¢SP) 
FAC2(HS5), (RQ) 
FNREPL, 


SNOSTH 
2¢SP),RO 
(RO)OpRZ 
ERRAGL 

R2 
(RB)S,R2 
(RS) ,R2 
(R2) 6,8 ,SVAR 
ERRMXS, 
2gR2)sa0t 
104 

(R29, R2 
(R29, RS 
(SP), (R2) 
RS, (SP) 
R2,0(SP) 
(RZ) ,K2 
R2 


FNNEWNL, 
RS 


FNOLNN 
tere thele 
(SP), (R2) 
FNREPL 
(RS) 4) (R204 
CRE), 6R2) 
#2 RS 

(SP) 6 

SP, R2 

RS 


RZ, ERII> 
R2 
R2, (RS) 


(RO), #, COMMA 
FNNOCOM 
(ROO, (RID 
FNSWAP 
ERRARG 


SLONGER 
CUFNS 


SLONGER 


JSTACK THE OLD VALUE AND REPLACE JT 
pWITH THE NEW VALUE 


JRESTORE THE DEF POINTER, 
IGET THE VARIABLE FROM THE DEF, 


yUF THE DEF VARLABLE IS “UMERIC AND 
SYTHE VALUE ISNT THEN ITS AN FRROR, 
VUF THE VAR JSNT A STRING SCALAR 


sTHEN 00 THIS, 
yR3 NOW CONTAINS THE OLD VALUE, 
13(R?) NOW CONTAINS THE NEW VALUE, 
43€SP) NOW CONTAINS THE 9L0 VALUE, 
sTOP(STK) 1S A TEMP FOR VAR AQORESS, 
FRE “OW CONTAINS THE NEW VALUES 


HORANCH IF THE NEW VALUE JS “ULL, 


BRANCH IF THE OLO VALUE JS “ONNULL, 
yJOLD VALVE IS NULL, NEW TS NOT, SOT 
JMAKE AN ABS BACKPTR TO THE VAR, 
1CTHE MEW VALUE [S NOW PROTECTED) 
1OLO ANO NEW ARE BOTW NONNULL SO! 
sPUT OLD BACKPTR INTO THE NEW VALUE, 


1GET RID OF THE TEMP, 


1 (CHECK NULL STRING!) 
1SET THE BACKPTR OF THE OLD VALUE 
sT0 ITS CURRENT STACK ADORESS, 


ayy 


f UNDEFINED FUNCTIONS 


(RB), #,RPAR 
ERRAGL 

RO, 0(SP) 
(ROO, CRI De 
ERRAGS 

(RO) O)4,69 
ERRAGL 
RE, a( SP) 
RB,RL 

PC, EVAL 

106 

RJ 

1e4 

(SP) O,RS 
(RO). #, EOL 
ERRSXA 
(SP) op RL 
(SP) o)RO 
#¢RO)ee(SP) 
(RB) LCSP) 
(SP) o,R2 
(R5),R2 


SNOSTK 
(R2),8,SVAR 
FNRSTR 


1? 

(RZ), RZ 
(SP), 2¢R2) 
(SP) 4, (R2) 
FNCHK 
(SP)6)(R2) - 
RO, =(SP) 
(R2) RO 
CR5),R2 

RZ 


SNOSTK | 
FNRCOM 
{R2)6 
2(R2); 804 
FNRSSCG 
(RQ), R2 
(SP), (R2) 
RB, @ (SP) 
(R2), KO 


(R2)4)#, SCALAR 
4 


og 


rey 
x 


Ne 


BASICL MACX11 vee. 22eMARe73 15042 PAGE 44015 


3544 
3945 914708 085200 FNRCOM yNC Ro 
3546 314702 001404 dfs FNRSNUL, 
3547 044704 900302 SWAB R2 
3548 914706 110228 Move RZ, (RODS 
3549 314719 GBO302 Swag R2 
3558 314712 110228 MOVE R2, (RODS 
3551 314714 912608 FNRSNULIMOV (SP)+, RQ 
3552 044716 124027 090239 FNCHK} CMPB (RO), 8, LPAR 
3553 014722 081327 BNE FNRLUP 

4 
3553 +TFNOF SNOSTH 
3556 014724 2057083 TST RS 
3557 014726 204419 iy aa ete) 
3558 814730 210346 aes ‘ 
3559 044732 028327 177777 cmp R3,0477777 JCHECK NULL STRING 
3568 034736 201802 BNE 106 
3561 014749 900467 175754 ume SOPRATR 
3562 014744 290107 176212 uMP STPRO 
3563 ,ENDC 
3504 
3565 014758 000167 175222 FNNUMERS JMP OPRATOR 
3566 ,E0T 
3567 


AT6 


BASICL MACX12 VO2i 22aMAR273 15044 PAGE 45 


3568 ' SOURCE FILE #6 

3569 J Qeccencccewcec ene eecesengsccccccccsnscernesecesses 

3578 § SUBROUTINE 'FIxXyp! CALLED BY JsR PC 

3574 f MATCHES TYPES OF 2¢SP),2¢SP) AND FACS(R5),FAC2(R9) 
3972 ' RB,RL UNUSED 

3573 ) R2 ODESTSOYEN 

3574 ' R3,R4 UNUSED 

3575 ' RS MUST POLIT TO USER AREA 

3576 ' SP GOES NO EEPER AFTER JSR 

3577 «=844754 912602 FIXUPs MOV (SP) 4, R2 

3578 0134756 385716 rst (SP) 

3579 014768 601413 Bea FUXTST 

3588 014762 395765 290040 TST FACA(RS) 

3581 014766 2949224 BNE FUXRET SCONT CODESSNONZERO MEANS FLOATING, 
3582 9514778 316546 300042 MOV FAG2(R5),0(SP) peaee 

3583 044774 004467 900114 JSR R4,FPPSAV 

3584 0145000 3908006 WORD = SJR 

3585 015682 016060 +WORD POP 

3586 315804 015966 »WORD FPPRES 

3587 915006 200419 BR FUXCLE 

3588 315010 995765 080049 FIXTST: TST FACA(RS) 

3989 915014 201426 REO FUXRET sCONS CODESS4 MEANS INTEGER, 

3598 815016 385726 rs? (SP)6 Jovee 

3591 9150209 904467 2090070 JSR R4,FPPSAV 

3592 915924 23900006 WORD = SJR 

3593 915026 915966 »WORD FPPRES 

3594 015058 990244 FIXCL2t CL2 CON CODESS*ONZERD MEANS FLOATING, 
chad 315032 280112 FIXRETI UMP (R2) 

3596 


247 


BASICL 


3597 
3598 
3399 
3oow 
360% 
3oo2 
3oas 
3604 
3605 
3606 
3007 
3608 
3009 
3618 
3641 
3612 
3oi3 
3ou4 
3015 


BASICL 


3616 
3617 
3618 
3019 
3628 
3622 
3oz2 
3623 
3024 
3625 
3626 
3627 
3628 
3629 
3038 
3631 
3632 
3633 
3634 
3635 
3636 
3637 
3638 


MACX1L 


845034 
815036 
815049 
815042 
815044 
015046 
815259 
015054 
915856 
013060 
315962 
815064 


MACXI1 


215066 
015072 
215276 
15192 
315126 
815112 


915114 
015328 
025124 
845138 
315134 
845140 


yaad 


112102 
190407 
880302 
152102 
064502 
822208 
82eg27 
103402 
880264 
880207 
aegeds 
300207 


Ve2i 


246500 
916504 
816502 
316503 
916546 
ao0204 


240065 
320165 
828265 
219365 
12665 
980134 


22aMARe7S 


477775 


22rmMaRe73 


080044 
O2OB46 
289058 
8e0052 
680054 


900844 
980046 
800858 
890052 
809054 


45042 PAGE 46 


| pecwcqennevcwccctaucseusegoonceuseacaseseccacsessece 

J} SUBROUTINE (FLINE® CALLEO BY JSP PC 

5 FINOS THE AQDRESS OF TWE LINE NO 

t] REFERENCED BY (R1) IN R2, 

! IF THE SYMBOL YABLE REFERENCE 1S NOT A LINE “OQ, 
t SETS CARPY, OTHERWISE, THE CARRY JS CLEAR, 
FLINEL MOVE (RL) O,R2 


BM} FLE 
SWAB R2 
e1sB (ROO yR2 
ADO (RS) ,R2 
MOV (R2)o,RB 
CMP RB, #, SCALAR 
BL0 FLX 

FLEN Sec 
RTS PC 

FLXt CLC 
RTS PC 


2G 


15141 PAGE 47 


le cwwc geen gece ecw enawene essere sewn t ences es cen gecccnneeces 


§  ROYVINE 'FPPRES! CALLED IN POLISH MODE 
, RESTORES RB THRY R4 SAVED SY FPPSAV 
' AND RETURNS IN NORMAL EXEC MODE 
FPPRES} MOV RBSAVE(RS) , RO 

MOV RISAVECRS), RY 

MOV RZSAVE(RS) ,R2 

MOV RESAVE(RS) AS 

MOV R4SAVE(RS) 2 (SP) 

RTS R4 
Je rewececeseccrce seer ences enmswcecewe scene ecesenccccsecccecce 
} ROUTINE ‘Fppsay? CALLED BY JSR RG 
} SAVES RQ THRU R4, AND RETURNS IN 
4 POLISH MNOE 
FPPSAVI MOV RB,ROSAVE (RS) 

MoV RL RAIGAVE(RS) 

MOV R2,RZSAVE(RS) 

MOV RS,RSSAVE(RS) 

MOV (SP) e,R4SAVE(RS) 

MP a(R4)e HENTER POLISH MODE 


BASICL 


3639 
3o4g 
3044 
3042 
3043 
3044 
3645 
3046 
3047 
3048 
3649 
3658 
3654 
3052 
3653 
3654 
3055 
3656 
3057 
3058 
3659 
3069 
3062 
3662 
3603 
3664 
3665 
3066 
3067 
3668 
3069 
36708 
3671 
3672 
3673 


BASICL 


3674 
3675 
3676 
3077 
3078 
3679 
3080 
3681 
3082 
3683 
3684 
3685 
3686 
3687 
3688 
3689 
3692 
3091 
3692 
3693 
3694 
3695 
3696 
3097 
3698 
3699 
3708 
3781 
3702 
3783 
3704 
3785 
3796 
3707 
3708 
37209 
3748 
3712 
3712 
3713 
3714 
3748 
3716 
3747 
3718 
3719 
3728 


MACX11 


915142 
815146 
915158 
815154 
035168 
925162 
015166 
015179 
815174 
835376 
015209 
815202 
815286 
945218 
015214 
815216 
815220 
815222 
015224 
8145226 


MACX11 


8145238 
845232 
915236 
835240 
815244 
845246 
015250 
815252 
815256 
6152608 
915264 
015266 
615278 
915272 
315274 
015380 
815302 
915304 
915306 
015312 
815316 
015324 


315326 
615332 
315340 
315342 
215356 
015352 
915356 


015360 
815362 


yeas 


032783 
980402 
212703 
622702 
821246 
012732 
260183 
O21362 
682422 
113380 
995243 
@21362 
181422 
816125 
912612 
000242 
988207 
212622 
900261 
200207 


voes 


910246 
204767 
183405 
816132 
203011 
642602 
080207 
916128 
201423 
885064 
300261 
290767 
010046 
919208 
884767 
183001 
300008 
12608 
205064 
1146582 
12772 
000758 


116582 
232772 
281983 
#12772 
280002 
084767 
888725 


177560 
177558 








22eMAR@73 15141 = PAGE 48 
' 
3 GETABYY ive de @ GET BYTE QUT OF RING BUFFER USING 
§ GET POINTER 2 (R2), 
’ 
} CALLE @CBUFF, HOR, BASEI,RL 
J #CBASE OFFSET OF GET PYR,J,R3 
H JSR PC, GETBYT 
1 
J} USES RBARLAR2,RS 
1 
} RETURN CHAR, IN RBy 
so fcf BIY ISy CLR UF CHAR’, OBYAINED 
’ SEY IF BUFF’ WAS EMPTY {NO CHAR) 
' 
890004 GETABYTIMOV SBGETL,RS 
@R GETBYT 
890886 GEP2BYTIMOV WBGETZ,RS 
177776 GETBYT} MOV #PS,Re STATUS 
MOV (R2),0(SP) 
890340 MOV #PRI, (RZ) JHIGHEST PRIORITY 
aoo RLARS 
889818 CMP CRS), BPUT IRL) JANYTHING IN BUFF? 
BEO SUPEMP 
“ove O(R3)O,RA 1GET BYTE 
tN @(R3) sPT, TO NEXT BYTE 
seove2 cup (R3),BENOCRL)  fsHRAP AROUND? 
BLOS NOWRP 
090009 MOV BSTRIGRLIGCRS) GPT, TA NEXT BYTE TO GET 
NOWRP} MOV (SP) 0) (R2) HSTATUS BACK 
cue sSIGNAL SYCCESS 
RTS Pg 
BUFEMP) MOV (SP) o, (R2) ISTATUS BACK 
SEC sSHOW FAILURE 
RTS Pg 
AS O 
22eMARe73 15144 PAGE 49 
H] Pe re rr 
' 
} GEYCHAR @ RETURN A GHAR, IN QB OR WAIT UNTIL You CAN 
5 
} CALL? #CBUFF, HOUR, BASEI,RI 
U JSR PC, GETCHAR 
’ 
) USES RS. (RB-R1,R2) 
' 
J} RETURNS CHAR, IN RO 
) IF PAPER TAPE READER EOY FOUND, EXIT TO fREADY!, 
' 
GETCHARIMOV R2,e(SP) 
477784 GETCHIE JSR PC, GefipyT 
ecs NOCHAR JNOTHING THERE YET 
090012 MOV BFSPEG(R1),R2 CHECK IF READER STOPPED 
BGT XGHAR 38 OR @ IS OK, BRANCH IF CHAP 
GETX! = MOV (SP) 4) R2 
‘ RS PC 
goee12 NOCHARY MOV BSFSPEC(RL), RO  ICHESK EOF OR EXTRA CHAR 
BEO REENAB 
egen12 CUR BFSPEC(RI) 
Sec 
BR GETX 
XCWAR} MOV RB,e(SP) iPUSH 9LO CHAR 
MOV R2,RO IPOSITION NEXT 
003314 JSR PC,PUTBYT 
Bcc 144 sMAKE SURE IT GOT IN 
WALT 
MOV (SP) e,RO HGET BACK OLO CHAR 
989012 CLR BFSPEG(R1) 
980077 MOVE TOEV(RS) ,R2 
088101 915369 “OV MLBL,OLTAGCR2) sRE*ENABLE INPUT DEVICE 
BR GEYX y tCARRY [S CLEAR) 
' RESENABLE PROM A OGAD START 
080877 REENABL MOVE TOEV(RS),R2 
eeg4ee8 915369 BIT 80040600,@, TAB(R2) ICHECK BUSY SIT 
BNE GCWAIT 
080121 815360 MOV W104, O1TABCR2) 
GCWAITE WAST SWALT FOR AN INTERRUPT 
200524 JSR PG, TOWALT JWASTE TIME 
8R GEYCHL 
’ TABLE OF INPUT DEVICE STATUS REGISTERS 
1YaBe =, WORD TKS 
+WORD = PRS 


BASICL 


3724 
3722 
3723 
3724 
3725 
3726 
3727 
3728 
3729 
3730 
3734 
3732 
3733 
3734 
3735 
3736 
3737 
3738 
3739 
3748 
3744 
3742 
3743 
3744 
3745 
3746 
3747 
3748 
3749 
3759 
3753 
3752 
3753 
3754 
3755 
3756 
3757 
3758 
3759 
3769 
3762 
3762 
3763 
3764 
3765 
3766 
3767 
3768 
3769 
3778 
37714 
3772 
3773 
3774 
3775 


BASICL 


3776 
3777 
3778 
3779 
3789 
3783 
3782 
3783 
3784 
3785 
3786 
3787 
3788 
3789 
3790 
3794 
3792 
3793 
3794 
3795 
3796 
3797 
3798 
3799 
3808 
3804 
3802 
3603 
3604 
3605 
3806 
3807 
3698 
3eo9 
3810 
3e1n 


MACXi2 


815364 
8435370 
815374 
015400 
015404 
015419 
815412 
015414 


815429 


015422 
015426 
045432 
015434 
913442 
015444 
815446 
315452 
045454 
013460 
845462 


815466 


045479 
315474 
815500 
915502 
015518 
015512 
815516 
015520 
825522 


815526 


915532 


MACKXL1 


915536 
015549 
215542 
815544 
015546 
045550 
815552 


815554 
815560 
345564 
015566 
915572 


veer 


819265 
812702 
840265 
910265 
121127 
001043 
BO5201 
004767 


183442 


804767 


805765 
081037 
916565 
180433 
122102 
320227 
oei422 
128227 
091920 
084767 


103447 


084767 
305765 
301014 
236565 
100419 
122127 
001903 
080207 
080167 


880267 


000167 


vo2s 


12203 
285722 
819322 
305722 
910322 
885922 
880287 


216509 
912720 
310035 
220065 
300207 


22eMARe73 


agep22 
477777 
oaoe24 
089826 
age255 


173762 


090146 
090040 


960042 


098237 
990245 
173734 


080100 
000040 


oegese 
000257 


175016 
1752608 


174360 


22oMARe73 


ogoe1e 
agg225 


ogoe14 


988024 


380826 


15144 = PAGE 58 


CeO ioe Or oe Pt hi a en 

1 IGErvaRe SUBROUTINE 

’ TRES SUBROUTINE REAOS A VARIABLE NAME OR 

' AN ARKAY ELEMENT, AND AQORESSES THAT 

y VARIABLE JN CORE, SO THAT A SUBSEQUENT ‘STOVARE 
J CALL WILL STORE THE FAC IN TWE VARIABLE, 

’ OESTROYS FaCi ANO FAC2,, 

’ CALLEQ BY JSR PC,GETVAR 

5 R4 POINTS TO THE CODE NAMING THE VARIABLE 
] 

G 


EtVARt Mov R2,VARSAV(R5) 
MOV wad, Re 
MOV R2,SS}SAV(R5) 
MOV R2,SS2SAV(R5) 


cues (RL), 8, LPAR 
ONE NOSUBS 

INC Rd 

JSR PG EVAL 


wJFNOF = SNOSTK 


acs ERRMXS 

,ENDE 

vse pC, INT 

1ST FACA(RS) 

BNE ERRSS1 

MOV FAC2(KS) ,SSASAV(R5) 
amy ERRSSS 


MOVE CRA HERS 
CMPB R2,8,HPAR 


SEO NOSUBS 
cMPB R2,8, COMMA 
BNE ERRSXS 


JSR PC, EVAL 
rIFNOF SNOSTK 


acs ERRMXS 
,ENOC 
dsr PC, INT 
TST FACL(RS) 
BNE ERRSSL 
MOV FAC2(KS) ,SS2SAV(R5) 
amy ERRSS1 
CMPB (RL) 6) @,RPAR 
BNE ERRSXS 
NOSUBS} RTS PC 
ERRSXS) MP ERRSXS 
sIFNOF = SNOSTK se 
ERRMX3} JMP ERRMIX AS 
,ENOC 
ERRSS1) UMP ERRSSZ 


15144 PAGE 54 


irre Pern rr Pr nt ante Shhh en nit Pern 
' 
INITBF © INIT, BUFFER HORS, 


CALLE Mov #CHOR, ADDR, IeR2 
JSR PC, INU YOF 


! 
! 
’ 
’ 
' 
} USES R2qR3 
' 
1 LEAVES R3 POINTING To WARD AFTER LAST IN BUFF, HDR, 
; 
I 


NITOFS MoV (R2)%gRS JOUFF, START ADOR, 
TST CR2)6 yPT, 19 SGETL 
MOV RS, (R206 
Ts? (R2)+ sP%, TO SPUT 
MoV RS, (R26 
CLR (R2)¢ 1BFSPEC 
RTS PC 
Pierre ie ih hit ht i Sei. en 
I 
J INTYSCR @ SCRATCH USER AREA 
1 
y CALLE JSR PG, INITSCR 
i) 
) USES RB 
' 
INT TSCRIMOV CoDE(hS) RA 
MOV # EOF (RODS 
MOV RO, (RS) 
MOV. RB,LOPREE(RS) 
RTS °¢ 


255 


BASICL 


3812 
3813 
sei4 
3815 
3016 
3817 
3818 
3019 
3829 
3621 
3822 
3823 
3824 
3825 
3826 
3827 
38268 
3429 
3838 
3831 
3932 
3833 
3834 
3835 
3836 
3837 
3838 
3839 
3840 
3841 
3842 
3043 
3844 
3845 
3046 
3847 
3848 
3449 
3050 
3853 
3852 
3853 
3854 
3855 
3856 
3057 
3858 
3859 
3868 
3861 
3862 
3863 
3e04 
3805 
3866 


BASICL 


3867 
3868 
3069 
36728 
3071 
3872 
3073 
3874 
3875 
3876 
3877 
3878 
3879 
3880 
3082 
3882 
3883 
3884 
3885 
3886 
3887 
3888 
3889 
3890 
389 
3892 
3893 
3094 
3895 
3896 
3897 
3898 
3899 
3908 
3904 
3902 
3993 
3904 
3905 
3906 
3907 


MACXLL 


815574 
915608 
915602 
815606 
815610 
815614 
815628 
015622 
915626 
915638 
15632 
915656 
315640 
015642 
845644 
03565¢ 
015654 
815656 
015660 
815662 
835664 
015666 
815678 
915674 
315676 
315702 
015794 
315786 
815719 
915712 
015714 
815716 
815722 
015726 


315738 
845734 
815736 
815748 
813742 
613746 
915759 
015754 
815768 
015764 
015766 
0157798 
815772 
615776 
616008 
816002 


MACK14L 


326004 
916006 
916018 
916012 
016014 
816829 
816622 
816058 
816932 
016048 
016044 


016046 
016052 
316056 
816068 
316864 
316878 
16072 
916074 
316198 


016102 


916126 © 


316112 
816114 
316120 
326124 
16126 
16152 


vear 


716520 
204452 
9046567 
9120002 
042708 
320927 
183473 
820027 
181057 
265902 
262708 
e83e54 
290381 
195902 
156581 
852703 
oge24s 
906002 
285700 
292905 
26204 
095502 
962708 
202773 
305765 
190005 
305702 
081402 
985201 
192447 
005401 
310165 
985965 
808297 


920927 
292005 
e026. 
886102 
962788 
696778 
816508 
240265 
005765 
188360 
830228 
091756 
004467 
816846 
316072 
3009086 


Vveas 


316068 
915726 
885701 
100403 
985965 
888749 
922765 
280734 
512765 
985965 
900730 


316546 
816546 
880154 
812665 
12665 
080154 
285946 
212746 
0801254 


085265 
195765 
284402 
880167 
888737 
284482 
880137 
200207 


22eMAR®73 15941 = PAGE «52 
Je cwwwcecwgnnscconqwccenensnncseccsocesosesserscoes 
NE ‘INTE CALLED BY JSR PC 
i SyeROU RP ne COMPUTES INTCFAC), CONVERTING THE RESULT 
1 TU A LeWORD INTEGER: ar hee 
4 MOV FACS(NS), Ro )GET HIGH ORO 
boradies au BEG INTRTS JALREAODY AN INTEGER 
283204 uSR RS, SAVREG sSAVE REGISTERS 
i MOV RO,RL 
190477 BIC #180177,R2 JEXTRACT EXPONENT 
o40200 CoP RO, #40200 sCWECK ABS VALVE <2 
BLO INT? 
046008 CMP RO, N400E0 }CHECK INTEGER BY TRUNCATION 
BHI INTRTS VYES, RETURN 
CLR Re ‘ 
043900 sys 843600,R0 HCHECK MORE THAN 15 SITS INTEGER 
act INTS. VYES, PROOUCE FLY INT ANSWER 
SWAB RY 
CLRB RY 
090043 8188 FACZ#1(R5),R1  7R4 TS 16 BITS OF MANTISSA 
199020 BIS #200008,R1 sSET HIDOEN #IT 
See Ra sGET 15 BITS OF ABSOLUTE VALVE 
Ys? Re HTEST ALREADY INTEGER 
BCE INTSA YES 
INftr ASR Ry sSHIFT MANTISSA 1 RIGHT 
aoe R2 yADU CARRY BIT TO R2 
009200 aod #200,80 PINCREMENT EXPONENT 
BLT INTL #LCOP UNTIL, DONE 
000040 INtian TST FACA(RS5) FORIGINAL NUMBER NEG 
BP, INT2 5NO 
TST R2 yANY BITS ZEROED? 
BE0 NT48 
INC i ;. sAOJUST FOR NEGATIVE 
avs INT9 sOVERFLOW 
IN?1Bt NEG RL 
090042 INT21) | MOV RL FACZCRS) 
090048 INf2At CLR FACL(RS5) 
INfRIS) RTS eC 
ao2208 InfSt 0 CMP RO, #2200 SCHECK DONE 
BGE INTO VYES 
Sec HSET CARRY BIT 
ROL R2 WCREATE PATTERN OF BITS 10 CLEAR 
ege200 400 #208,K8 
aR INTS 
0o0042 INf61 = MOV FAC2(K5) RO sSAVE OLD FAC2 IN CASE NEG ARG 
080042 aye RZ, FACZ(RD) HCLEAR BITS 
200040 TS? FAGA(KS) iCHECK NEG ARG 
BP. INTRTS INO, DONE 
eT R2, RO HCHECK EXACT [NTEGER ALREADY 
8EO INTRTS rYES, Aue esey F 
2aG JSR R4,SPOLSH HNO) MU 
para WORD = PUSH JPUSH FAC 
WORD PYSHL PPUSH FLOATING 1 
,WORD = SSBR sSUBTRACT 
2aeMARe73 «15144 = PAGE S204 
+WORD = POP. 1POP ANSWER TO Fac 
WORD INTRTS HANO RETURN COUT OF POLISH MADE) 
INT7) TST Ri PABSCARG) C4 
BM INTS 
ageese CLR FAC2(KS) HIF + THEN ANS IS 4 
BR INT2A 
177777 poea4e2 INT8t = MOV 8477777, FACZ(RS) SIF © THEN ANS IS of 
BR INT2A 
143600 280849 INP9! MOV #143608,FAC1(R5) 
900042 CLR FAC2( HS) 
BR INTRTS 
3O80%e PUSH! MOV FAC2(K5),0¢SP) 
090040 MOV FACA(HS),9(SP) 
uMP ec Raye 
000046 PoP! MOV (SP) op FACL(RS) 
208042 MOV (SP) +) FACZ(RS) 
ump MER4)® 
PUSH1I CLR =(SP) 
o40200 MOV #40200,°(SP) 
uMP O(R4)+ 
J pewnccwwccecwcccecccecongscn esac sec nsnteteceenctcosenoeses 
) 
} LOWAIT @© WASTE TIME TILL NEXT INTERRUPT 
' 
) CALLE VSR PC, JOWALT 
' 
age70 TOWAIT# ING RNDCTSRS) 
090196 TST CNCFLG(RS) 
geo wIRer 
163824 JMP READY 
300050 WrRET] TST on5e HCHECK WAIT LOOP ADDR 
BEQ 1%6 
080859 JMP ea50 PSPECIAL WAIT ROUTINE 
ATs PG 


gay 


ewe 


BASICL 


3908 
3909 
3910 
3914 
3912 
3913 
3914 
3915 
3916 
3917 
3918 
3919 
3929 
3921 
3922 
3923 
3924 
3925 
3926 
3927 
3928 
3929 
3938 
3932 
3932 
3933 
3934 
3935 
3936 
3937 
3938 
3939 
3948 
3941 
3942 
3943 
3944 
3945 
3946 
3947 
3948 
3949 
3950 
3952 
3952 
3953 
3954 
3955 
3956 
3957 
39568 
3959 
3968 
3961 
3962 


BASICL 
3963 


MACX11 


816134 
816149 
016144 
916158 
816152 
016154 
916156 
016169 
816164 
816170 
016172 
816174 
016200 
816202 
816204 
816286 
816212 
016214 
916216 
846229 
016222 
316224 
816250 
816232 
016236 


016248 


316243 
016245 


816246 


916258 
926252 


MACX11 


Vee 


004567 
116500 
916904 
005720 
281902 
960583 
311104 
946502 
320265 
081404 
285382 
0846767 
103004 
290207 
110812 
284367 
990752 
080207 
488762 
200765 
988202 
820265 
493762 
984167 

B15 


952114 


g15 
086 


860744 


890102 
823734 


VO2a 


22eMAR273 


002732 
090877 
3162590 


099028 
098028 


177838 


172378 


290816 


oas2e6 
12 


114 


o12 


22aMARe73 


1504, PAGE 53 


i * ¢ 7 . . . 
Jw cncwenereweccrccwenenn gi nnntocns ccc seweqeeesececcnesececens 


5 
LINGEY » EDLY A LINE INTq LINE BUFFER USING GETCHaAR 


CALLE USER AREA BASE INTo R5 
JSR PC LINGET 


AN 


art er fet ANO <RUB gut? For 8U8 oUT AND <ALT MQ0E> 
"eur FOR GINE DELETE, <CR> AS LINE TERMINATOR, 


THROWS AWAY ALL OTHERS BELOW ASCII 40 AND ABOVE 


U 
U 
U 
U 
J 
) PRESERVES ALL REGISTERS 
U 
U 
U 
' 
J 
U 


ASCIL 137; 
LINGETI VSR R35, SAVREG 
LINAT = -MOVB 1DEV(K5), Ra 
MOV TAB3(RE) RE 
TST RO 
BNE LINEIN 
a00 AD5,RL 
MOV CRY) RY 
LINEIN} MOV LINECKS) RO 
LINRUBY CMP R2,LINE(RD) 
80 OOCHAR 
vec R2 
OOCHAR: VSR PG, GETCHAR 
acc GOTONE 
RTS PC 
GOTONE! MOVB RB, (RZ) 
JSR RS, CHKCHR 
QR LINA 
RTs eC 
BR GUNRUS 
BR DOCHAR 
INC R2 
CMP R2, CODE (RS) 
8,0 OOCHAR 
JSR Ri MSGERR 
+BYTE = CRALF 
1 IFNOF SLONGER 
sASCIT UTE 
1ENOC 
rIFOF  SONGER 
sASCILT LINE TOO LONG?! 
sENOC 
sBYTE = CRALF 
iBYTE @ 
EVEN 
aR GINEIN 
) 
TABS! 
. KBHO 
vIFNOF SNOPTP 
. PREFHO 
,ENOC 
15144 PAGE 53e4 


HSAVE PEGS, 
CURR, INPUT DEV, CODE 
170 SELECT DEV, 


USER RASE 
tHAVE USER BUFF, HOR, 
sOON/T RUB OUT TOO MUCH 


sOON‘T COME SACK ‘TILL YOU GOT ONE 


VINDICATE INCOMPLETE LINE «(CARRY SET) 
PUT HER IN 

SRETURN EXEC, ONE OF NEXY FIVE LOCS, 
VIF LINE DELETE 

HOONE (<CRD) (CARRY CLEAR) 


HMEANINGLESS CHARS, 
$G00D CHAR; 
HCHECK LINE SPACE OVERFLOW 


2b 


2S7 


BASIC. 


3964 
3965 
3966 
3967 
39608 
3969 
3978 
3972 
3972 
3973 
3974 
3975 
3976 
3977 
3978 
3979 
3988 
3983 
3982 
3983 
3984 
3985 
3986 
3987 
3988 
3989 
3999 
3993, 
3992 
3993 
3994 
3995 
3996 
3997 
3998 
3999 
4009 


BASICL 


4204 
4002 
4003 
4004 
4005 
4006 
4087 
4006 
4009 
4018 
4014 
4012 
4013 
4014 
4015 
4016 
4017 
4018 
4019 
4028 
4024 
4622 
4923 
4024 
4025 
4026 
4027 
4028 
4929 
4030 
4032 
4032 
4033 
40354 
4035 
4036 
4037 
4038 
4039 
4048 
4041 
4042 
4043 
4044 
4045 
4246 
4047 
4048 
4049 
40528 
4052 
4052 
4053 
4054 
4¢55 


MACKAY 


016254 
816256 
016262 
816266 
826272 
046274 
016308 
816302 
916304 
916306 
816312 
016314 
816329 
046322 
816326 
816358 
016332 
816334 
016349 
816344 
016358 
016354 
816356 
846368 
816364 
816366 
816372 
816374 
816402 
816406 


MACX12 


016410 
016414 
016416 
016422 
316424 
316426 
016430 


016432 


816436 
816442 
016444 
816446 
016459 
016454 
816456 
016468 
016462 
016466 
016479 
816472 
016474 
316506 
016502 
816506 
016518 
916514 
016516 
316520 
316524 
16526 
816532 
316534 
216548 
316542 
216544 
316546 
016550 
916552 
016554 


vo2s 


395800 
305065 
005965 
121327 
001404 
12327 
881202 
005100 
205205 
122327 
001416 
124327 
001404 
122327 
981406 
oge207 
295203 
112365 
122305 
122365 
112365 
305708 
oda. 
005765 
881003 
005465 
000403 
362765 
862716 
088207 


vee. 


021227 
281403 
385762 
180037 
10246 
320446 
318346 


204767 


212703 
311604 
190404 
810304 
004767 
812603 
612604 
842602 
020862 
1814843 
285723 
190427 
895762 
188436 
820362 
181033 
946246 
885216 
818346 
012746 
806383 
286366 
193082 
866603 
205316 
203370 
322626 
285726 
260500 
805220 
306328 





22eMAR*73 15144 PAGE 54 
lqccwaccccqecc econo cenwcgecepcccesocesooercorsecee 
d LIPEVALS SUBROUTINE 
' CALLEQ BY JSR PC LITEVAL 
’ RL POINTS TO THE COLE 
' THES SUBROUTINE 1S CALLED TO EVALUATE A 
I LUTERAL IN THE CODE, 
LIPTEVALICLR RO 
290040 CLR FACa(KS) 
090942 CLR FAC2¢KS) 
oge252 CMPB (R3),#, PLUS 
B8EO LEVPLYS 
890254 CmMPB (R3),8, MINUS 
BNE LEVLIT 
com RO 
LEVPLUS? INC RS 
090575 GEVLIT) CMPB CRS) eM, LEITS 
sca LEVALT 
800374 cMPB e(R3) eR FLIT 
BEG LEVFLT 
088376 cues (RI) ope, LLIT2 
8E0 LEV2LT 
RTS Pg 
LEVFLTY INC RS 
000841 MOVE (RB) op FACLeL(R5) 
open4e Move (H3)o,FACLCRS) 
399043 LEV2LT} MOVe (RE) op FACZeL (RS) 
098042 LEvaLTi ove (R39 %pFACZ(R5) 
Ts? R@ 
BeQ LEVPOS 
908040 TST FACA(HS) 
BNE LEVFNEG 
090042 NEG FAC2(R5) 
OR LEVPOS 
199002 980040 LEVFNEGIAD0 #100000,F ACLCRS) 
egge02 LEVPOS; ADO #2,(¢SP) 
RTS PC 
= 
ash 
22emMARe7S 15441 PAGE 55 
Jreccceces 2 : > 
3 SUBROUTINE fLOCGET! CALLED BY JSR PC 
' GETS LOC OF ELEMENT IN ARRAy (CHECKS SUBSCRIPTS) 
' R®@ MUST CONTAIN SSL GETS DESTROYED 
' R4 UNUSED 
' R2 MUST POI“T TO VAR GETS SET TO RESULT 
J RZ MUST CONTAIN SS2 GETS DESTROYED 
J R4@ UNUSED 
J R> MUST POINT TO USER AREA 
J SP GOES 7? DEEPER AFTER JSR 
177775 LOCGET! CMP (R2),8,SCALAR 
BEO LOCALOC 
200B04 rst 4(R2) 
BPL Locssi 
LOCALOCSMOV R2,0(SP) 
MOV R4,0(SP) 
“OV RS,e(SP) 
,IFNOF SNOSTH 
172558 uSR PC, ONPACK 
sENOC 
6oog12 MOV #12,RS 
MoV CSP) DRS 
Buy .o4 
MoV RZ,RA 
174534 JSR PC,ALLOC 
MoV CSP) OyRS 
MoV (SP)o,R4 
MOV (SP) oeR2 
aeo0n4 Locssit CMP RB, 4(K2) 
BH ERRSSS 
tsT RS 
BmMy LOCNOZ 
890086 TSY 6¢R2) 
BMI ERRSSS 
888806 CMP R3,6(K2) 
BHI ERRSSS 
200004 MOV 44R2)ee(SP) jeoee 
INC (SP) te 8 
MOV RS,e(SP) je8 
980022 MOV #20, % (SP) te ® 
LOCLOOPTASL RS je 8 
880002 ASL 2(SP) Je © MYULTIPLY SS2 BY SSiMAX 
acc 146 te @ RESULT IN RI 
800004 aod 4CSP) ARS je @ 
oEc (SP) te @ 
act LOcLooP je® 
CMP (SP) 4, (SP)e te 8 
TST (SP)e Jeoee 
. aod RO, RA 2 9 
LOENO21 INC RO ; 
asl RO 
t}FNOF = SNOSTR 


BASICL 


4056 
4957 
4058 
4059 
4868 
4064 
462 
4063 
4004 
40605 
4266 
4067 
4068 
4069 
4978 
4072 
4072 
4073 
4074 


BASICL 


4075 
4076 
4077 
4078 
4a79 
4089 
4084 
4062 
4083 
4084 
4085 
4086 
4087 
4088 
4089 
4090 
4092 
4092 
4093 
4994 
4095 
4096 
4997 
4098 
4999 
4100 
4122 
4122 
4103 
4104 
4105 
4106 
4107 
4108 
4109 
4118 
411i 
4412 
4113 
4444 
4415 
4116 
4117 
4118 
4119 
4120 
4422 
4122 
4123 
4124 
4125 
4126 
4127 
4128 
4129 


MACXA1 


846556 
016562 


816564 
216566 
816572 
016574 
816576 


316680 


816683 


MACXL4 


816604 
916618 
816612 
016614 
916628 
816622 
916626 
816639 
916632 
916636 
016649 
816644 
316646 
816652 
916654 
016656 
016668 
016662 
316664 
816666 
816678 
016674 
916676 
016782 
8167284 
216710 
8146712 
816714 
616728 
616722 
816724 
816738 
816732 
316734 
816736 
816742 
016744 
316758 


316754 
816756 
316769 
316762 
016764 
016766 
016770 
316774 
316776 


veer 


224227 
901498 


386328 
816202 
860082 
300227 
aa0004 


347523 


voas 


916501 
112102 
202142 
120227 
301444 
120227 
601001 
380207 
122227 
163064 
042722 
940703 
262703 
310324 
112300 
190376 
120922 
881373 
112400 
180423 
284767 
380773 
124427 
061418 
122127 
884337 
112198 
862788 
806020 
060427 
362701 
200727 
111102 
100010 
120227 
801015 
384167 

045 
216754 
360725 
680302 
205201 
151192 
285301 
964502 
321227 
183763 
812720 


22=MARe73 
477777 


e8eene2 


102 


22eMaARe73 


980B16 


990202 
oe0225 


090374 
177400 
164536 


aoeni2 
oeo2i2 
oo0262 


990208 


B8OR15 


oge225 


300530 
at2 


477775 
00154 


45144 PAGE 55-1 


GMP 
Bea 
vENDC 


ASL 
MOV 
a0 
RTS 
ERRSS31 LOT 
LENOF 
ASCII 
,ENOC 
VIFOF 
vASCLI 
+ENOC 
‘BYTE 8 
EVEN 
E07 


15141 8 =PAaGE 56 


' 
LSPPROGIMOV 
LSPLOOPIMOVE 
BGE 
CMPB 
BEQ 
CMPB 
BNE 
RTS 
CMPB 
BHIS 
BIC 
“OV 
LSTPC} ADD 
LSTSRCHEMOV 
MOVE 
BPL 
CMPB 
BNE 
LSTKWOT MOVE 
BM 
vSR 
BR 
LSTCHKY CMPB 
#EQ 
CMPB 
BNE 
LSTFNE MOVE 
A00 
WOR 
BR 
LSTNEXT#A00 
BR 


LSTEOL! “Ove 
BP, 
cMPB 
BNE 

LSTCRLP ISR 
BYTE 
vEVEN 
ar 

LSTLING SWAB 
INC 
8188 
vec 
aoo 
CMP 
BLO 

LSTBSLWEMOV 


(#2) #)SVAR 
04 


R® 
2(R2)yR2 
RB,RZ 

PC 


SLONGER 
\S0B\ 


SLONGER 
*SUBSCRIPT OUT OF ROUNDS! 


260 


SOURCE FILE 97 


SUBROUTINE ‘LSTPROG! CALLED BY JsR PC 


LISTS THE USER PROGRAM THROVGH /PUTCHARS 
AQ = R4 DESTROYED 

R5 MUST POINT TO USER AREA 
SP GOES 77 MEEPER AFTER JSR 

CODE(RS) RY 

CRY + pR2 

LSTPTH 

R2,#, £04 

LSTEOL 

R2,8,C0F 

184 

eG 

R2,8, FIT 

LSTSPEC 

#177408,R2 

PC,R3 

BKEYWOS@LSYPC RS 

RS R4 yR4 1S START OF KEYWORD 

(R3)o,RB 

02 sLOOP TILL GET END KEYWORD 

RO,RZ HCOMPARPE VALUES 

LSTSRCH 

(R4) 4) RO 

LSTCHK 

PC, PUTCHAR 

LSTKud 

oC RL), 8, NEXT 

LSTNEXT 

(RY) O78, FN 

LSTLOOP 

CRE) op RD 

ete AMZ, RO 

RO 

LSTCHAR 

#13,R2 

LSTLOOP 

CRED HZ 

USTLIN 

R2,8,£0F 

LSTBSLH 

R1,MSGODEV 

CRLF ye 


LSTLOOP 
R2 
RL 
(RY) RZ 
R 


a 

{R5),K2 ab / 
(R2),8, SCALAR 

LSTCRLEF 

wEN RD 


a | 
on 


BASICL 


4138 
4232 
4132 
4133 
4134 
4135 
4136 
4137 
4238 
4139 
4149 
aaa 
4242 
4243 
4u44 
4145 
4246 
4147 
4148 
aug 
4158 
4251 
4152 
4153 
4154 
4155 
4156 
4157 
4456 
4159 
4268 
4262 
4162 
4163 
4164 
4165 
4166 
4267 
4168 
4169 
4170 
4171 
4172 
4273 
4274 
4475 
4176 
4477 
4178 
4179 
4288 
4162 
4282 
4183 
4184 


BASICL 


4185 
4286 
4187 
4188 


MACXL4 


817802 
017906 
817918 
017014 
0179816 
817922 
017024 
817026 
017038 
817932 
817936 
817040 
917944 
817858 
017852 
817956 
817062 
817066 
027878 


047974: 


917109 
017184 
017110 
027114 
917128 
947222 
817124 
817126 
817152 
817134 
827136 
017149 
027144 
827159 
817152 
817156 
817162 
917164 
817178 
017174 
017202 
817286 
017212 
817214 
017228 
817224 
817230 
617232 


817236 
947242 


MACXA1 


017244 
917259 


Veer 


006767 
090728 
420227 
301425 
120227 
103426 
081412 
1121090 
001667 
204767 
380773 
105065 
122165 
one4n4 
122268 
422165 
0B5e65 
390410 
112165 
112165 
112165 
122165 
004767 
090367 
380302 
152102 
064582 
024227 
103050 
as2g2 
202405 
010265 
085965 
900414 
110265 
105865 
39a3e2 
110265 
183965 
862765 
004767 
042708 
290673 
116209 
004767 
116208 
oai4o2 
304767 


024227 
081324 


Vees 


012708 
380654 


22eMARe73 1594s 


094708 
990374 
890376 


091650 


800845 
990042 


o9en4s 
egees2 
390860 


900841 
380048 
000843 
ooeese 
090610 
177478 


477775 


988042 
900048 


990843 
apoge2 


ooon4e 
090041 
043600 aB004g 
080516 
990849 


998018 
994462 
060811 


084450 


477777 


22eMARe73 15849 


800844 


PAGE 5604 


LSPCHARS JSR 
BR 


LSPSPECICMPB 


ea 
CMPB 
BLO 
BEG 


UST TEXT SHOVE 


LSPILat 


LSPIL2I 
LSfILe) 


BEo 
JSR 
BR 
CLRB 
MOVE 
BR 
MOVE 
MOVE 
CLR 
8R 


LStFLITIMOVe 


LSTFLBY 
LST IMP} 
LSTPTRY 


LSTLNOS 


LSTLNX! 


LSPVAR} 


BNE 


“ove 
“Ove 
Move 
JSR 
uMP 
SWAB 
81SB 
A00 
CMP 
BHIS 
MOV 
aT 
MOV 
CLR 
BR 
MOVE 
CLRS 
SWAB 
MOVB 
CLRe 
A00 
use 
MOV 
BR 
“ove 
JSR 
Move 
BEO 
JSR 


lFOF 
BR 
sENOC 
1 JPNOF 
CMP 


PAGE 5602 
MOV 
BR 
sENOC 


PG,PUICHAR 
LSTLOOP 
R2,8,FUIT 
LSTFLIT 
R2e8,UL1T2 
GSTILG 

LOTILe 
CHL) o, RO 
LSTLOOP 

PG, PUTCHAR 
LSTTEXT 
FAC2¢1(R5) 
(RL)O,FACZCRS) 
QSTILB 

(RG) eo) FACZaL¢RS) 
{REPO pPACZERS) 
FACACKS) 
LSTFLS 

(RL) Op FACLHL (RS) 
(RL) 6; FACL(RS) 
(RY) SeFACZe1 (RS) 
(RY) +e FACZURS) 
PG ,NUMOUT 
LSTLOOP 

R2 

CRY) % RZ 
(RS), H2 
(R2),8, SCALAR 
LSTVAR 

(RQ) RZ 
LSTLNO 

RZ, FACZ(RS) 
FACL(RS) 
LSTLNKX 
R2,FAC2e1(R5) 
FAC2(KS) 

R2 

RZ, FACACRS) 
FACLOL(RS) 
#43600, F ACY (RS) 
PC, NUMOUT 

#8, R0 
LSTCHAR 
19(R2),RO 

PG, PUTCHAR 
LLCR2) RO 

1*6 

PG, PUTCHAR 


SNOSTK 
LST UMP 


SNOSTK 
(R2),8,SVAR 
LST IMP 


#1S, RO 
LSTCHAR 


Boa 


2-63 


ae 


BASICL 


4189 
41998 
Ma9d 
4192 
4193 
4194 
4195 
4196 
4197 
4198 
4199 
42008 
4201 
4202 
4203 
4204 
4205 
4206 
4207 
4208 
4209 
4210 
a2aa 
4212 
4ai3 
4234 
4245 
4216 
4247 
4216 
4249 
4228 
4221 
4222 
4223 
4224 
4225 
4226 
4227 
4228 
4229 
4230 
4231 
4232 
4233 
4234 
4235 
4236 
4237 
4238 
4239 
4249 
4241 
4242 
4243 


BASICL 


4244 
4245 
4246 
4247 
4248 
4249 
4258 
4251 
4252 
4253 
4254 
4255 
4256 
4257 
4258 
4259 
4260 
426% 
4262 
4263 
4264 
4265 
4266 
4267 
4268 
4269 
4270 
4271 


MACX1L2 


917252 
817256 
017260 
827264 
827270 
817272 


947274 


847277 


27308 
817304 
827306 
827312 
817316 
847328 
617324 
817326 
847330 
9173352 
B27334 
017336 
817342 
017344 
817346 
017350 
917352 
917354 
917356 
817366 
817362 
817366 


047378 
817374 
317376 


MACXA1 


017402 
917406 
817412 


847414 
B17446 
817420 
017422 
847424 
817426 
8174358 
8474352 
O17434 
817436 
017448 
917442 


yeas 


084767 
104443 
304767 
364767 
181406 
390804 


O5{523 


384767 
104372 
819965 
316609 
011222 
862702 
110023 
122323 
122223 
885308 
003375 
816680 
110813 
160883 
810600 
085728 
119043 
880308 
119043 
885303 
910366 
080207 


816528 
818803 
866608 


Ve2a 


862728 
920065 
080207 


818346 
810446 
306304 
096103 
386384 
286105 
962604 
885503 
062603 
386304 
286123 
088207 











22eMARe73 «15144 = PAGE: «57 
vTFNOF © SNOSTH 
J ecewcccwcrewcencceccccccs : 
J} SUBROUTINE IMAKESTR! CALLED BY JSR PC 
4 "MAKES A RASIC STRING FROM & STRING OF CHARACTERS 
’ R@ OESTROVEN 
) R44  UNUSFO 
’ R2 MUST POINT TO A WORD WHICH CONTAINS 3 LESS 
‘ THAN THE ADDRESS OF THE FIRS? CHARACTER 
f RS DESTROYED 
) R4@ UNUSED 
’ RS MUST POINT TO USER AREA 
' SP ON ENTRY BSP) MUST CONTAIN # CHARACTERS 
' ON EXI? (SP) CONTAINS POINTER TO THE STRING 
Opeii2 MAKESTRE JSR PG,MAKETRY sWELL NEW STRING FIT? 
BLOS MAKGOT HYES 
171722 JSR PC, ONPACK ING, GARBAGE COLLECT 
098198 SR PG MAKETRY HTRY AGAIN 
80S MAKGOT dFITS YHIS TIME 
ERRSOV! 107 
,IPNOF = SLONGER 
117 ASCII \SSON 
vENDC 
rSFOF = S$ L,ONGER 
:ASCIT «STRING STORAGE OVERFLOWS 
1 ENOC 
:BYTE 2 
1 EVEN 
op0064 MAKCHK} JSR PG ,MAKETRY 
BHI ERRSOV 
989074 MAKGOTI MOV RO, HISTRCRS) SAVE NEW HIGH STRING ADDR 
090902 MOV 2¢SP),Ro sRa NOW CONTAINS # CHARS, 
MOV (RZ), RZ 
890R05 aoo #3,R2 §R2 “OW CONTAINS ADDRESS OF CHARS, 
MOVE RB, (RIVe IRS PUTS CHARACTERS IN 
CMPB CRS) SE (RID 6 
Move (R294) (R3) o> 
oec Ro 
BGT 184 
apone2 MOV 2(3P).RO 
Move RB»(RS) 
sus ROARS 
MOV SP,Ra 
TS? CRO)O 
MOVE RB, o(RS) 
SWAB Ro 
MOVB RO,a(KS) 
oec RS 
eeoge2 MOV R3,2(SP) 
RTS PG 
' SUBROUTINE To CHECK ROOM ENOUGH FoR STRING B67 
800074 MAKETRYIMOV HISTR(RS) (RO 
MOV RO,RS 
eoaues aod 4(SP))RO 
22eMARe7S «15142 = PAGE 5701 
090884 ano #4,RO 
GB0o12 CMP RO,HIFREE (RS) 
RTS PC 
yENOC 
J ecwwcnccwccewnqeeeeccceweccenscwcetenccesessscseres 
J SUBROUTINE 'MpYTEN! CALLEO BY JsR PC 
i MULTIPLIES R3,R4 BY OECIMAL 19 
' R@,R1,R2 UNUSED 
' R3,R4 [1S THE 32 BIT UNSIGNED INTEGER TO MULTPLY 
} RS UNUSED 
' SP GOES 4 DFEPER AFTER JSR 
MPYTENT HOV R3,0(SP) 
MOV R4,0(SP) 
ASL R4 
AOL R3 
ASL R4 
ROL Rs 
aoo (SP)o,R4 
aoc RS 
aod (SP) o)R3 
ASL R4 
ROL, RS 
RTS PC 


Bes 


yyy 


BASICL 


4272 
4273 
4274 
4275 
4276 
4277 
42768 
4279 
4280 
4284 
4282 
4283 
4284 
4285 
426 

428 

4288 
4209 
4298 
4292 
4292 
4293 
4294 
4295 
4296 
4297 
4298 
4299 
4308 
4301 
4302 
4303 
4304 
4305 
4326 
4397 
4308 


BASICL 


4384 
4318 
4324 
4312 
4323 
4314 
4315 
4316 
4317 
4318 
4319 
4320 
4321 
4322 
4323 
4324 
4325 
4326 
4327 
4328 
4329 
4338 
4332 
4332 
4333 
4334 
4335 
4336 
4337 
4338 
4339 
4349 
4341 
4342 
4343 
4344 
4345 
4346 
4347 
4348 
4349 
4358 
4351 
4352 
4353 
4354 
4355 
4356 
4357 
43568 
4359 
4368 
4362 
4362 
4363 


MACX21 


017444 
047459 


017452 
017454 
817469 
017464 
047472 
817476 
017508 
017504 
817506 
817548 
g175i4 
017516 
017520 
017522 
a17524 
017530 


MACXL1 


317532 
317536 
317540 
317542 
017544 
217546 
317550 
017552 
817556 
917568 
017562 
017564 
017566 
817579 
017572 
817574 
817576 
617600 
017682 
317684 
847626 
817618 
317612 
017614 
017616 
617620 
317622 
317624 
847626 
317632 
617636 
617649 
347642 
217646 
947650 
917652 
817654 
817656 
317662 
317664 
217666 
317678 
517674 
917708 
317702 
917786 
017722 
017714 
817716 
817729 


veeL 


112708 
890403 


422108 
193965 
816546 
812765 
860565 
000484 
816546 
112199 
081403 
094767 
998773 
OBS202 
686201 
086301 
012665 
390221 


yee. 


812746 
6957233 
381413 
190003 
986803 
006804 
85216 
938327 
281030 
806324 
986125 
305316 
080771 
395704 
881367 
395726 
800207 
805702 
001425 
180416 
386203 
306004 
886203 
906004 
886205 
286904 
886203 
386004 
362716 
304767 
395302 
280744 
284767 
385202 
0807490 
886203 
306004 
330327 
981373 
805716 
383802 
AL2726 
821627 
104402 
512716 
110366 
812603 
388323 
026025 
e86004 





222MARe73 15142 PAGE 58 
’ 
3 MSG e@ OUTPUT A LINE TO TTY 
) MSGODEV © OUTPUT A RINE TO CURR, OUTPUT DEV, 
’ 
) CALLY JSR RAeMSG (MSGQDEV) 
’ rASCII "QMESSAGEI® 
' BYTE ® 
’ 1 EVEN 
' PRETURN WERE 
U 
1 USES RO 
' 
) SEY UP LINE WIyYH NUMBER oF BYTES TERMINATED 
' BY A BYTE OF 088, 
$ 
MSGERRI 
vIFNOF SLONGER 
890045 MOVE ote, RO 
8R MSGCOM 
,ENOC 
MSGI MOVB (RL) ORO 
000127 MSGCOM! CLRB CNOFLG(R5) 
880034 MOV COLUMN( RS), #(SP) HSAVE FOR TEMP SUI TCH 
880056 890034 MOV WGLMNTTY, COLUMN( RS) 
800054 aoo RS, COLUMN RS) 
BR FRSTOUT 
ooeas4 MSGODEVIMOV COLUMN(RS) , 9 (SP) 
00mMSGi MOVB (RL) 4 RO 
BEQ LLNOUN 
oosa72 FRSTOUTS JSR PC,PUTCHAR JPUT CHAR, TO TTY 
BR QOMSG 100 NEXT CHAR 
GINOUNE INC RL 370 INSURE RETURN ON 
asR RY 1 EVEN WORO BOUNDARY 
ASL Q) 
ogens4 MOV (SP), COLYMN(RS) 
RTS RL 
22eMARe7S 15941 PAGE 59 
’ See ee ee nnn ene 
) SUBROUTINE NORMS NORMALIZES I“TEGER CONTAINED IN 
f RS AND R4, MULTIPLIED BY EXPONENT 
' IN R2, ANSWER [S IN RS, R4, 
f CALLED BY ySP PC 
080237 NORMI = OV #237, 9(SP) 
TST RS 
BE0 LITTST 
BPL LITNOKM 
ROR RS 
ROR Re 
INC (SP) 
840000 LITNORMIBIT R3, 840000 
BNE LIitox 
ASL R4 
~ ROL RS 
OEC (SP) - 
UR LLYNORM 
LITTST) TST R4 
BNE LITNOKM 
TST (SP)e 
RTS PC 
GITOKE TST R2 
EO LITSTO 
amy LUTOLV 
ASR RS 
ROR R4 
ase RS 
ROR R4 
ASR R3 
ROR R4 
ASR R3 
ROR R4 
890004 ao0 #4, (SP) 
177556 Jsr PC, MPYTEN 
oec RZ 
BR LLYNOKM 
174302 LITOIVS USR PC, OIVTEN 
INC R2 
BR GL TNOKM 
LIPTSHRY ASR RS 
ROR R4 
177008 LIfSTOI BIT R35, 0177908 
BNE LITSHH 
Ts? (SP) 
BGT 196 
990001 MoV #1, (SP) 
380377 cmp (SP), #377 
BLOS #6 
aoee?? MOV 9377, (SP) 
80000, Move RS,2 (SP) 
MOV (SP)4,R3 267 
SWAB RS 
ROR RS 


ROR Re 


BASICL 


4304 
4365 


BASICL 


4366 
4367 
4368 
4369 
4372 
4371 
4372 
4373 
4374 
4375 
4376 
4377 
4378 
4379 
4388 
4383 
4382 
4383 
4384 
4385 
4386 
4387 
4388 
4389 
4390 
4391 
7 4Ad9I2 
4393 
4394 
4395 
4396 
4597 
43968 
4399 
4488 
4401 
4402 
4403 
4404 
4405 
4426 
4407 
4408 
4409 
4410 
4442 
4412 
4413 
- 4424 
4415 
4416 
4417 
4418 
4419 
4420 


MACKXAL 
317722 


MACX4L2 


847724 
017739 
817734 


417736 
817742 
317746 
017752 
017754 
247760 
817762 
017764 
017772 
017774 
0200008 
820902 
020006 
o20810 
g20014 
320916 
020924 
220830 
020034 


820836 
329042 


320844 
020050 


820052 
828856 
328868 
320864 
328066 
020072 
920074 
928076 


Ve22 
590207 


voad 


984567 
912704 
388446 


217608 
362726 
384567 
810002 
305765 
861438 
100925 
362765 
282016 
305065 
881016 
205765 
186015 
965465 
182005 
812765 
085965 
612700 
289405 


820127 
381493 


342708 
Ob4741 


316504 
885002 
916583 
384918 
312790 
808704 
301016 
312788 


22eMARW73 


220MARG73 


004142 
020706 


280008 
Beoge2 
901128 


800840 


ig08e8 
agense 
909042 
900042 
044980 


080042 
990955 


920578 


980849 


ee804e 


aene4e 
0e0837 


380068 


000049 


090049 


15144 PAGE 5904 


RTS PG 


abe 


15442 PAGE 68 


ert ee ee erry 


)  fNUMQUTF SUBROUTINE 


j CALLEQ BY JSR PC,NUMOUT 
) OUTPUTS AN UNSIGNED NUMBER FROM THE Fac 
’ VIA THE SUBROUTINE PUTCHAR, 
NUMOUTI JSR RS, SAVREG 
MOV #PUTCHAR, RY 
8R NUMSTT 


| pecncccccscocces 
§  ENUMSGNE SUBROYTINE 

, CALLED BY JSR PC,NUMSGN 

' {WORD OUTPUT 

’ WHERE OUTPUT IS THE OUTPUT ROUTINE, 
J WHICH MAY BE PUTCHAR OR SAVCHAR, 
' 
} 
N 





OUTPUTS A SIGNED NUMRER FROM THE 
FAC VIA THE OUTPUT ROUTINE, 


UMSGN} MOY @(SP),RO 
apo #2, (SP) 
JSR RS, SAVREG 
“OV RORY 
TS? FACL(RS) 
Bea NUMF IX 
BPL NUMPOS 
400 #100000,FACAi¢R5) 
BNE NUMNEG 
CLR FACQ(RS) 
BNE NUMPOS 
NUMFIX! TST FAC2(RS) 
SPL NUMPOS 
NEG FAC2(RS) 
Bvc NUMNEG 
MOV #44000, FACL(RS) 
CLR FAG2(RS) 
NUMNEGE MOV le, RB 
aR NUMPRS 
NUMPOS} ‘ 
,IFNDF = SNOSTR 
CMP Ri, #SAVCHAR 
BE0 NUMSTT WOON’ T OUTPUT BLANK FOR STRS 
1 ENO 
mov 8B RO 
NUMPRS} JSR PC, (RL) 
NUMSTTI 
MoV FACZCRS) RS §R4 ® Low ORDER MANTISSA, 
CLR R2 JR2 DECIMAL EXPONENT) 
MOV FACLEKS) RS §R3 = HIGH ONDER MANTISSA, 
BNE NUMFLT : 
MOV 837,80 }RO = BINARY EXPONENT, 2-69 
TST R4q 
BNE NUMSHFT 
mov #18,RO 


BASICL 


4421 
4422 
4423 
4424 
4425 
4426 
4427 
4428 
4429 
4430 
4431 
4432 
4433 
4434 
4435 
4436 
4437 
4438 
4439 
4449 
4442 
4442 
4443 
4444 
4445 
4446 
4447 
4446 
aaay 
4450 
4453 
4452 
4453 
4454 
4455 
4456 
4457 
4458 
4459 
4460 
4462 
4462 
4463 
4464 
4465 
4466 
4467 
4468 
4409 
4478 
4474 
4472 
4473 
4474 
4475 


BASICL 


4476 
4477 
4478 
4479 
4480 
4481 
4482 
4483 
4484 
4485 
4486 
4487 
4488 
4489 
4490 
rire 
4492 
4493 
4494 
4495 
4496 
4497 
4498 
4499 
4529 
4502 
4502 
4903 
4904 
4595 
4506 
45907 
4508 
4509 
4310 
4514 
4512 
4343 
4514 
4515 
4516 
4517 
4518 
4519 
4520 
4522 
4522 
4523 
4524 
4525 
4526 
4527 
4528 
4529 
4530 


MACXAL 


920102 
820104 
020106 
020110 
826112 
020114 
828116 
920122 
320126 
820132 
820134 
820136 
620149 
620144 
028146 
920158 
020152 
820154 
920156 
28168 
320162 
920164 
820166 
020178 
820172 
820176 
326202 
O20204 
025206 
020212 
20214 
820229 
020222 
O28224 
320226 
8202358 
828232 
820236 
820249 
20244 
320246 
020252 
929254 
828256 
820262 
920264 
820278 
820272 
020274 
020380 
828302 
820304 
820306 
820310 
029312 


MACX41 


320316 
820322 
320326 
320332 
820354 
828336 
820349 
320344 
320358 
820352 
326354 
320360 
828362 
328364 
928366 
820372 
828374 
828406 
820402 
620404 
920406 
320410 
620414 
820416 
829422 
029424 
828426 
920452 
320434 
820436 
920442 
820446 
820458 
820452 
828454 
320456 
328469 
020464 
320466 
020479 
320474 
820476 
320502 
920504 
020518 
320512 
829516 
928528 
822522 
320524 
828526 
920530 
020532 
020534 
320536 


Veer 


004742 
2980207 
810308 
386308 
195008 
380300 
162720 
942793 
852793 
885308 
886304 
886103 
839327 
881772 
265709 
eo3016 
386283 
8g6g04 
086203 
966004 
286203 
386004 
686203 
986004 
862708 
084767 
985382 
808755 
920027 
883407 
094767 
995282 
880746 
295209 
986203 
986004 
920027 
202772 
229327 
183363 
062704 
103010 
885203 
929327 
1893404 
012703 
005904 
885202 
012788 
019346 
600326 
886816 
686016 
OB6R26 
842716 


vo2a 


362716 
842783 
884767 
085300 
083364 
340623 
3627283 
320227 
202404 
204446 
820227 
002454 
914308 
304712 
512700 
304741 
812704 
214308 
84711 
AO5304 
983374 
312700 
O8A711 
212708 
395782 
180983 
912708 
905402 
084741 
212788 
162722 
180482 
305200 
200773 
886711 
413200 
2362700 
094742 
089455 
012700 
OO4742 
812700 
OB4711 
312724 
2106239 
222327 
384902 
205394 
080773 
228402 
383082 
240294 
285204 
985202 
295292 


22aMARe73 


080373 
177688 
ogezae 


840808 


890004 
177212 


oao8e4 
170730 


8egae4 
050008 
091250 


050008 
904009 


177768 


22eMARa73 
209060 


174008 
177062 


890014 
177776 


880856 
898005 


808105 
889053 


898855 


380860 
B9eR12 


898a72 


988056 
890260 
9800e6 
388060 


15143 


15142 


JSR 
RTS 
NUMFLT} MOV 
ASL 
CLRB 
SWAB 
sya 
BIC 
ats 
NUMSHFTIDEC 
ASL 
ROL 
NUMNORMIBIT 
BEQ 
TST 
acr 
ASR 
ROR 
ase 
ROR 
ASR 
ROR 
ase 
ROR 
aoo 
JSR 
oEc 
BR 
NUMBIG! CMP 
SLE 
NUMOIVI JSR 
INC 
@R 
NUMALNE INC 
ase 
ROR 
NUMOK} CMP 
BLT 
cMP 
BHIS 
aod 
acc 
INC 
CMP 
Lo 
MOV 
CLR 
INC 
NORNOOVIMOV 
NUMDIGH MOV 
SWAB 
ROR 
ROR 
ROR 
arc 


add 
Bic 
JSR 
oEc 
acT 
MOV 
abo 
CMP 
BLY 
8E0 
CMP 
aur 
NUMFML4 MOV 
JSR 
MOV 
JSR 
MOV 
NUMLPLI MOV 
JSR 
ogc 
SGT 
MOV 
JSR 
MOV 
TST 
SPL 
MOV 
NEG 
VSR 
MOV 
SUB 
BMI 
TNC 
BR 
JSR 
MOV 
aod 
vSR 


NUMPM2t MOV 
JSR 
MOV 
JSR 
NUMPM34 MOV 
MOV 
CMP 
BNE 
pec 
8R 
CMP 
BGT 
MOV 
TNC 
TNC 
INC 


PAGE 6894 


PAGE 6002 


PGaCRI) 
PC 

R3,RB 

Ro 

RO 

RO 
#472,H0 
#477600,R3 
a200,K3 
Ro 

R4 

RS 

RS, n4u000 
NUMSHFT 
RO 

NYMBIG 

RS 

R4 

RS 

R4 

RS 

R4 

RS 

Re 

#4,R0 
PC,MPYTEN 
R2 


NUMNORM 
RO, #4 
NUMOK 

PG, OLVTEN 
R2 


NUMNOKM 
RO 

RS 

a4 

RO a4 
NYMALN 
RS, 050080 
NUMDIY 
#125¢,R4 JROUNDING; 
NORNOOV 
RS 

RS, #50000 
NORNOOV 
#4000,R3 
R4 

R2 

#0,R0 
R3,0( SP) 
(SP) 


#477700, (SP) 


#10, (SP) 
#4 74000,R3 
PC, MPYTEN 
RO 
NUMDIG 
SP,R3 
444,23 
R2, 802 
NUMFML 
NUMFM2 
R286 
NUMF MS 
ERS) RO 
PC, (RL) 
atyRo 
PO,(RA) 
#5,R4 
(RS) RO 
PG, (RL) 
R4 
NUMLP2 
#1E,R6 
PC,(R1) 
ala, RD 
R2 

#12 
#la,RO 
R2 

PC, CR) 
816,R0 
#42,R2 
1%6 

RB 

1040 
PO, (R4) 
R2,RO 
#1DO12,RO 
PGR) 
NUMEXIT 
ot Re 
PC, (RL) 
oto, Re 
PC, (RI) 
#O,R4 
SP RO 
(RB) opera 
16 

Re 

10hd 
R4,R2 
1*6 
R2,R4 
Ra 

Re 

R2 


270 


276 


BASICL MACX12 VO2L 22eMARe7S 15142 PAGE 6803 


4531 920540 085382 NUMLPSI CEC R@ 

4532 320542 081903 BNE ote 

4533 920544 212708 o6Be56 MOV at RO 
4534 a20558 o84741 sk PC, (RL) 
4935 220552 714320 MOV (RS) (RO 
4536 920554 204711 JR PC, (RL) 
4537 

4538 920556 005304 oEC R4 

4539 320560 003367 acT NUMLPS 
4940 920562 362726 oogers NUMEXEYIADD #14,5P 
4541 920566 269207 RTS PC 

4542 

4543 tTFNOF = SNOSTH 
4544 SAVCHARY 

4345 920579 006567 o9g278 usr RS, SAVREG 
4546 020574 216501 agoned MoV T2(R5I RI 
4547 920608 110822 MOVE —«- RB, (RL) & 
4548 320682 210195 ooaed MOV RL, T2(RS) 
4349 920606 285265 090056 INC TLERS) 
4550 a2e612 290207 RTS PG 

4552 ,ENOC 

4552 


BIE 


BASICL MACX11 V@2a 22aMARe7S «615144 PAGE 61 


4553 ' 
anes } PUTBYT © PUT BYTE INTO RYNG BUFFER 
‘ ' 
4556 y CALLE Mov COUFF, HOR, IRE 
4557 1 MOV CCHARI, RO 
4558 ' VSR PG PUIBYT 
4559 1 
4368 J USES RB RL R2,R3 
4561 ' 
4562 ) RAISE PRIORITY SINGE THIS May BE CALLED ar 
4563 } MAINSTREAM, BU? ACCESSES POINTERS THAT MAY CHANGE AT 
4564 })_YNTERUPT LEVEL 
49605 } RETURNS WITH °C! BITS CLR IF AYYE GOT IN 
4566 ' SET IF MO ROOM 
4567 ' 
49608 920614 212702 177776 PUTBYTI Mov MPS eRZ 
> 4509 gzgez9 311246 MOV (R2),9(SP) 1SAVE STATUS 
4570 028622 012712 o9e340 MoV MPR7, RZ) JREPLACE WITH HIGHEST 
4571 020626 216193 200018 MoV BPUTCRL) RS 
4372 220632 095293 INC RS HCANDIDATE FOR NEW POSITION 
4573 920634 p20361 seee02 cue R3,BENO(RL) INEED 70 WRAP AROUND? 
4574 920640 191482 BLOS NOWRAP 
4575 020642 016193 oeov2e MOV BSTRT(R1) RS HYES!t NEW POS, AT ToP 
4576 820646 220361 sa0004 NOWRAP) CMP RS, BGETICRY) sIF EQUAL TO EITHER GET PTR,, 
4577 920652 384412 Bea NOROOM } THEN NQ ROOM 
4578 320654 320361 oeoeR6 CMP R3,AGET2(RY) 
4579 220668 092407 BE NOROOM 
4580 920662 119071 200010 Move RO, @BPUT(RL) 
4581 020666 910361 200010 MOV R3,BPYTCRI) SUPDATE PTR, 
4582 320672 012612 MOV (SP) ey (R2) STATUS GACK 
4583 2206074 age2e. cL HSIGNAL SUCCESS 
4584 920676 2380207 RTS Pc 
4585 920708 212612 NOROOM} MOV (SP), (R2) HSTATUS BACK 
4586 20702 208261 SEC sSHOW FAILURE 
4587 920704 980207 RTS PC 
4586 


2273 


BASIC, MACX114 veer 22eMARe73 a5i4s PAGE 62 


4589 . ' 
ae 1 PUTCHAR © PUT CHAR To CURRENT CUTPUT DEV, 
4594, f 
4592 } CALLE (LOAD ODEV(RS)) 
4593 ’ MOV COWARD, RO 
4394 } JSR PG,PUTCHAN 
4595 1’ 
4596 3 SAVES ALL REGS, 
4597 ’ 
4598 ) TRIES To FIT CHAR INTO PROPER BUFFER, GoES To IQWAIT ON 
4599 1 FASLURE, 
4689 i 
460% 328706 304567 o90100 PUTCHARIJSR R53, SAVREG 
4002 628712 612746 047777 MOV #47777, 9(SP) VIMIT TIME OUT COUNT 
4003 020716 085275 ageus4 INC PCOLUMN( RS) 
4004 920722 195765 980306 TST CNCFLG(RS) 
4005 920726 294402 BEQ PYTCCO 
4606 0628730 200167 160210 ume READY 
4087 820734 116504 200076 PUTCCON MOVE OOEV(RS),R4 OUTPUT DEVICE CODE 
4608 928749 seig03 BNE WORSTYP VUF NOY TRY, CONTINUE 
4089 920742 185765 090327 Ts18 CNOFLG(RS) HCWECK FOR 1004 
4018 920746 891932 ONE oyraie sIF SEY EXIT IMMEDIATELY 
4011 029758 016401 o2%e40 HORSTUPIMOV TABL(R4) RE 
46012 320754 095706 TST R4 JWHICH DEVICE? 
46013 320756 291982 BNE PUTIT iNCT TTY 
4614 920768 060501 aod RO,RL WNEED CURR, USER'S BUFF, 
4015 928762 911101 MOV (RL) KL INOW, ACTUAL HEADER 
4616 920764 9046767 177624 PUTITy JSR PC, PUTBYT 
4027 028778 «103007 acc ITSIN 
4618 920772 3846767 1751304 JSR PC, IOWAIT INO ROOM WAIT 
4619 929776 095316 occ (SP) sTIME OUT 
4628 021908 2084371 ONE PUTIT 
4021 321002 165963 098012 CLRB BFSPEC(R1) 
4622 021006 280422 BR OEVERK 
4623 O21019 195961 00012 ITSINE CLR BFSPEC(R1) 
4624 824914 212774 Be0100 021046 MOV #100, @TARZ(R4) JENARLE INTERUPT ON CHOSFN OFV, 
4025 021822 2005265 090072 INC RNOGT(RS) 
4626 921926 105761 og00i2 TSs18 BFSPEC(R1) 1170 ERROR? 
4627 321932 0841019 BNE OBVERR 
4628 821934 095726 oufgsa) TST (SP)e sPOP TIME OUT COUNT 
4629 321936 200207 RTS PC PRESTORES REGS, AND RETURNS 
4638 ' 
4633 } 7AB1 » DEV, BUFFER HORS, (TPHD IS nFFSEY INTO USRAREA 
4632 J FOR ADOR, YO TPRTR, BUFF, HOR,) 
4033 ’ 
4634 821948 o8ore8 yasit o¢ TPHO 
4635 vLFNOF SNOPTP 
4636 824042 023769 o PPBFHO 
4637 ,ENOC 
4638 vIFOF SNOPTP 
4639 8 
4040 vEnoc 
4041 2 ay 
4642 sTFNOF SNOLPT 
4043 924044 a240924 Py LPSFHU 
BASICL MACX42 VO2i 22eMAR@73 151944 = PAGE 6204 
4044 s€NOC 
4645 : 
4646 FOF 
ae 3! OF SNOLPT 
4648 +ENDC 
4649 ' 
4658 AB2 © 
aes ; TAB2 © DEV, STATUS KEG, 
4652 321046 177564 raB2n + TPS 
4653 921050 177554 + - PPS 
4054 921952 177514 . LPs 
4655 
4056 921954 290804 DEVERR! IoT 
4657 LTFNOF © SONGER 
4058 321056 247134 122 sASCIT  \QNRAN 
Aeoy. +ENOC 
A860 LTFOF — SLONGER 
phot aASET NOEVICE NOP READY\ 
4063 a24961 208 ‘BYTE @ 
4664 +EVEN 
4665 ,E0T 
4666 


BA? 


BASICL 


4667 
4668 
4069 
4676 
4074 
4672 
4673 
4674 
4675 
4676 
4077 
4678 
4079 
4689 
4681 
4082 
4683 
4684 
4685 
4666 
4087 
4688 
4089 
46998 
4092 
4692 
M693 
4694 
46095 
46096 
4697 
4696 
4699 
4798 
A704 
4702 
4723 
4724 
4705 
4706 
4707 
4728 
4709 
4710 
A74r 
4722 
4713 
4744 
47145 
4716 
47147 
4718 
4729 


BASICL 


4720 
4724 
4722 
4723 
4724 
4725 
4726 
4727 
4728 
4729 
4738 
4731 
4732 
4733 
4734 
4735 
4736 
4737 
4738 
4739 
4748 
4744 
4742 
4743 
4744 
4745 
4746 
4747 
4748 
4749 
4750 
4752 
4752 
4753 
4754 
4755 
4756 
4757 
4758 
4759 
4768 
4761 
4762 
4763 
4764 
4765 
4766 
4767 
4768 
4769 
4779 
47714 
4772 
4773 
4774 


MACX11 


824062 
921964 
321072 
321074 
824876 
321100 
921102 
821104 
021106 
822112 
o24114 
822116 
o21120 
921122 
322124 
021126 
621138 


821132 


324134 
821142 
924144 
021158 
021152 
831156 


MACX11 


921168 
8241164 
821166 
321170 
924172 
a22174 
821290 
821202 
B21204 
321218 
321212 
821216 
321220 
821224 
821226 
821232 


021234 
321249 
821242 
021244 
821246 
321259 
821252 


821254 


321260 
221264 


321266 
621272 
821274 
8213508 
821304 
321306 
321312 
321314 


vo2s 


411646 
212766 
810446 
318346 
810246 
010146 
810046 
810546 
316605 
304736 
342600 
822602 
812602 
912603 
812604 
322605 
480287 


832765 
05201 
122127 
091482 
880167 
880207 


Vo2s 


062701 
005201 
395203 
105721 
802375 
124127 
901767 
101014 
122127 
901420 
124127 
081762 
122127 
BOL364 
362721 
380756 


122127 
882754 
183752 
195721 
281376 
490747 
380227 


216582 


222227 
381421 


916500 
100425 
916503 
284767 
388404 
222227 
781484 
311202 


22eMARe7S 15942 PAGE 63 


G211352 998ea2 


aeeoi4 


177775) «=0ea3B 
oop263 
171566 


oo _ SOURCE FILE #8 
oO th to Ct tt et htt De et tt tl 
' 
} SAVREG » SAVE ALL REGISTERS 
' 
3 CALLE CUSR pC, sysr,) sMusST CALL SAVREG FRoM suBaTN, 
1 uSR R5,SAVREG 
' 
1) PUSHES ALL REGS, AND EXITS WITH A0DR, oN STACK 
J) WHICH BRINGS CONTROL BACK KHEN SUBR, DOES «RTS PCr, 
} THEN, RESTORES REGS, AND DOES /RYS PC! WHICH RETURNS TO JUST 
H AFTER CALL TO INITIAL SUBROUTINE (MODIFIED BOWERING SPECTAL) 
' 
SAVRGII Mov (Sp),e¢SP) 
MOV #INTEXT,20SP) 
SAVREGS MOV R4,0(SP) 
MOV RS, e(SP) 
MOV R2,0(SP) 
MOV RE,e(SP) 
MOV RB, e(SP) 
MoV RS, 0 (SP) jFOR RETURN TO SUBR, 
MOV 12, (SP) ,R5 HGET OLD RS 
JSR PC,@(SP)+ STACK NEXT LOC,! 
RESREGI MOV CSP), RO 
MoV (SP) 6) R4 
MoV (SP)4)R2 
MOV (SP) 4, RS 
MoV (SP) o,R4 
MOV (SP)o,R5 
RTS PG s8ACK TQ CALLER OF INIT, SUMP, 


4 
INTEXTH RTT 


[de eecbeweneen cece gendacivcastlawasecntotenenescaseecevesedene 


SCANPNO © SCAN [TOKEN For ‘#t 


U 
t 
t] 
1 CALLE MoV CPYR, To BYTE BEFORE (#! TOKENI,AL 
| JSR PG,SCANPNO 
J 
) USES Ri 
f] 
SCANPNOIMOY —--# SCALAR, LINEN (5) 
INC RE 
GMP (R4)o_8, POUND 
Bea = PNOGO 
yNP = «ERRSXS 
PNDGo! RTS = PG 7b 


22aMARp73 1504s PAGE 64 


880R05 


898374 


ag02e 
o90262 
820211 
agaor2 


038376 


238822 


177777 


oeoe24 


990026 
175104 


177775 





feces 
SUBROUTINE ‘SKIPEOL¢ CALLED BY JSF PC 

, MOVES R14 PAST THE NEXT /EOLS 
1 R@ UNUSED 
q 
’ 


ewe cece wees ewes eneccecsccce 


Ri MODIFIEQ TO REFLECT OPERATION 
R2,R3—R4,R5 VYNUSED 


’ SP GOES NO MEEPER AFTER JSR 
SKIP@51 AOD #5,RL 
SKIP92q} INC Ri 
SKIPO@i4 INC Ri 
SKIPEOLITSTB Raye 
8GE SKIPQ3 
CMPB CRUD BL FLIT 
geo SKIPQ5 
- BHI SKIPHL 
CMPB (RL) 8, EOL 
BEO SKIPRTS 
CMPB e(RL) 8, FN 
gEQ SKIPQ2 
cMPa CRY) 4) 8 NEXT 
BNE SKIPEQL 
aod #12,R2 
8R SKYPEOL 
' ELTHER ,ILUTL(375), ,ILI72¢376) OR , TEXT(377) 
SKIPWI} CMPB CREB ILIT2 
BEO SKIPQZ 
BLO SKIPOL 
SK{PTXTITSTB (RL) 
BNE SKIPTXT 
8R SKIPEOL 
SKIPRTSIRTS PC 
Per ee ea 
} 'STovaR! SUBROYTINE 
' CALLED BY JSR PC,STOVAP 
' STORES FACq, FAC? IN THE VARIABLE OR 
1 ARRAY ELEMENT LAST ANORESSED BY THE 
! SUBROVTINE ‘GE¥VAR! 
STOVAR} MOV VARSAV(R5S) ,R2 
,IFNOF = SNOSTK 
CMP (R2),#,SVAR 
BEO ERRMX7 
,ENOC 
MOV SSLSAV(R5),RO 
BMI STONOSS 
MOV SS2SAV(R5), RS 
JSR PC,LOGGET 
@R STOCOMM 
STONOSS!CMP (R29), SCALAR a Te 
Bea STOCOMM 
MOV (R2),K2 


BASIC. 


4775 
4776 
4777 
4778 
4779 
4780 
4781 
4782 


BASICL 


4783 
4764 
4785 
4786 
4787 
4788 
4789 
4798 
4794 
4792 
4793 
4794 
4795 
4796 
4797 
4798 
4799 
4800 
4602 
4802 
4803 
4804 
4805 
4826 
4807 
4608 
4809 
4810 
4811 
4812 
4833 
4614 
4615 
4616 
4817 
4618 
4819 
4820 
4622 
4822 
4823 
4824 
4625 
4826 
4827 
4828 
4829 
4830 
4831 
4832 
4833 
4834 
4635 
4836 
A637 


MACX11 


821316 
824322 
821326 


821338 


MACXL2 


821334 
821348 
021344 
821346 
821352 
021354 
821369 
321364 
821366 
821370 
321376 
821488 
021402 
024404 
921406 
821410 
321412 
029414 
21416 
21420 
821422 
821424 
821426 
824450 
021454 
821436 
821449 
024442 
821444 


321459 
821454 
921456 
821464 
321478 
821474 
024476 


vee. 


816522 
816512 
000207 


380167 


ve2d 


246592 
824227 
001857 
316508 
1890405 
216583 
084767 
308406 
803722 
826227 
892405 
011202 
212623 
712600 
310012 
380405 
312683 
212608 
019822 
285202 
161502 
205208 
804405 
362798 
112240 
300302 
119246 
oe0145 
400167 


905766 
884435 
362766 
090167 
305466 
162373 
342766 


22eMARe73 


890840 
900042 


174456 


22emARe7S 


ogoe22 
177777 


990824 
880826 
175924 


990092 


Bgeoe2 


174542 


ogaee2 
1ogoeo 
166132 
888004 


044800 


177777 


ooBen2 


890802 


25144 PAGE 6404 
STOCOMMIMOV 


MoV 
RTS 


e VENOF 
ERRMX7t UMP 


ENOC 


135342 = PAGE 65 


FACA(HS), (R2)% 
FAC2(H5),(R2) 
PG 


SNOSTK 
ERRMIX 


,TFNOF  SNOSTK 


Perec wns weccrescaceewee lene swencecesenenceeeecen 


U 
‘ 
' 
U 
STOSVARIMOV 
CMP 
BNE 
MOV 
BMt 
MOV 
wvSR 
8R 
STOSSNOITST 
CMP 
gEQ 
MOV 
STOMMCOIMOV 
MOV 
MOV 
BR 
STOVTABIMOV 
MOV 
MOV 
TNC 
sus 
STOVCOMIINE 
Bea 
400 
MOVE 
Swas 
MQVB 
STOSX} UMP 
ERRMX64 UMP 
,ENOC 


'STOSVAR’ SUBROUTINE 


CALLEQ BY JSR PC,STOSVAR 
STORES A STRING VARIABLE AS ADORESSE BY 
VARSAV 
VARSAV(R5) ,R2 
(R2),8,SVAR 
ERRMXO 
SS1SAV(RS), RO 
STOSSNO 
SS2SAV(R5S) RB 
PC, LOCGET 
STOMMCO 

(R2)4 

24R2) #04 
STovTas 
(R2),H2 
(SP)e,kS 
(SP) 4) RO 

RO, (RZ) 
STOVCUM 

(SP) oyR3 

(SP) o,RD 
RO.(R2) 

R2 


(R5),H2 

RO 

STOSX ICHECK NULL STRING 
#2,R0 

R2,0(K2) 

R2 

R2,0(KB) 

(RS) 

ERRMIX 


Ur Oo ae 


4 
U 
‘ 
U 
U 
' 
U 
s 


UBSTK) TST 
eo 
ao 

ADSTK4} UMP 

SUBINT) NEG 

sve 

MOV 


SUBROUTINE ‘SuBSTK! CALLED BY JsR PC 
NEGATES 9(SP),2(SP) THEN CONTINUES I” 


RO,R1 UNUSED 
R2,R3_ DESTROYED 
R4 MODIFIED T9 REFLECT STACK JSAGE 
85 MUST POI"T TO USER AREA 
SP GOES ?? TEEPER AFTER VSR 
2¢SP) 
SUBINT 
#109080,2(S5P) 
AOOSTK 
4(SP) 
AOSTKY 
#44900,2¢5P) 


PT a 


faddStKe 


BASICL 


4838 
4839 
4840 


BASICL 


484. 
4842 
4843 
4044 
4645 
4846 
4847 
4848 
4049 
4859 
4851 
4852 
4053 
4654 
4855 
4856 
4857 
4858 
4859 
4660 
4861 
4862 
4863 
4864 
4865 
4866 
4867 
4868 
4869 
48708 
4872 
4672 
4873 
4874 
4875 
4876 
4877 
4878 
4879 
4680 
4661 
4682 
4883 
4864 
4865 
4886 
4687 
4688 
4889 
4898 
4891 
4892 
4893 
4894 
4895 


MACKXA4 


021504 
821510 


MACXLL 


921512 
921516 
321528 
921524 
821526 
821532 
821534 
824536 
821549 
321544 
321558 
921552 
023556 
821568 
821564 
821566 
0239572 
321574 
823600 
821602 
321686 
321618 


21614 
821629 
824624 
321626 
921652 
322634 
321649 
821642 
821644 
921646 
321659 
321652 
821654 
821656 
321668 
22662 
321666 
221678 
321072 
321676 
321700 


Vo2s 


195066 
800765 


V@2a 


316502 
820202 
122127 
284375 
016508 
114240 
220192 
381375 
205065 
122927 
881775 
124027 
881083 
122742 
908297 
124927 
381406 
121027 
103485 
121927 
191902 
200167 


242704 
12{027 
183485 
121927 
191902 
312724 
918793 
260403 
e1ga82 
122223 
201776 
1143284 
180414 
004559 
6053a2 
122227 
204767 
805302 
122327 
004763 
195723 


22aMARe73 


gages 


22eMARw73 


308828 
980815 
BOBRL6 


890856 
090040 


290015 
ogee, 
230036 
aganee 
290071 
299738 


156542 
080122 


oeess2 
4566034 


800040 


200040 


15144 PAGE 6504 


cur 4(S8P) 
5R AQSTKA 


15144 PAGE 66 
| Rewewcccwcnowscrcceen cece sens cccecccescccccecsecce 
} TRANS SUBROUTINE 
4 CALLED BY JSR PC, TRAN 
J TRANSLATES FROM {NPUT ASCII CODE 
‘ TQ INTERNAL CODE, CONSISTING OF TOKENS, 
i LINE NUMBER REFERENCES, SYMBOL TABLE 
! REFERENCES, AND LIVEPALS, ALWAYS RETURNS, 
f] NO MATTER WHAT IS INPUT, 
! AS NEW SYMBOLS ARE ENCOUNTERED, BUILDS NEW 
H ENTRIES INTO THE SYMAOL TABLE, 
, ERRORS ARE TRANSLATE” YO C,TEXT) 44) 
TRANS MOV GINECKS) ,R2 
MOV R2,R1L 
CMPB CRL) 4, aR 
BNE ,e@ 
MOV CODE(RS), Ra 
MOVE TERA) eC RO) 
CMP R4,R2 dRO 1S WHERE ORIGINAL TEXT IS, 
BNE 104 WRL 1S WHERE TRANSLATED TEXT GOES, 
TRANLUPICLR TLERS) PREVIOUS ITEM WASN‘T A VAR, 
TRANVARSCMPB CRO) O, #BL, 
seo TRANYAR 
CMPB #(RB),#CR 
BNE TRYNUM 
MOVB #, EOL, (RL) 
RTS PC 
TRYNUME CMPB (RO), 8h, 
BEO NUM MP 
CMPB (KB), #10 
BLO TRYKWO 
CMPB (RB), 809 
BHI TRYKWO 
NUMJMP} JMP TSNYM 
TRYKWOE MOV #KEYWOSeTRNPC,RS 
CMPB (RO), BIA CHECK ALPHA KEYWORDS 
8L0 COMTAB STOO LOW 
cmMPe CRO) HEE . 
BHI COMTABS = 3TOO HIGH 
MOV BKEYAMTRNPC,R4 = JUST FIGHT 
COMTABE MOV PC,RS 
TRNPC} 400 R4,R3 ADDRESS TABLE 
TRYAGNE MOV RO,R2 
REPRY$ CMPB CR2V+CREVG 
seo RETRY 
Move o4R37D9RE 
BM AMATCH 
BEO NOTKWO 
oEec R2 
CMPB (h2)+1aBL 
BEG RETRY 
DEC R2 2 oy 
CMPB (R3) 6, BL 
BEQ RETRY 


Ts78 CRI) 


a 


BASICL 


4896 
4897 
4898 
4899 
4908 
4901 
4992 
4903 
4904 
4905 
4906 
4907 
4908 
4909 
4948 
aout 
4912 
4913 
4944 
4945 
4926 
4917 
4918 
4949 
4920 
4922 
4922 
4923 
4924 
4925 
4926 
4927 
4928 
4929 
4938 
4934 
4932 
A933 
4934 
4935 
4936 
4937 
4938 
4939 
4948 
49as 
4942 
49463 
4944 
4945 
4946 
4947 
4948 
4949 
4950 


BASICL 


4952 
4952 
4953 
4954 
4955 
4956 
4957 
4958 
4959 
4968 
4964 
4962 
4963 
4964 
4965 
4966 
4967 
4968 
4969 
4979 
4972 
4972 
4973 
4974 
4975 
4976 
4977 
4978 
4979 
4988 
4981 
4982 
4983 
4984 
4985 
4986 
4987 
4988 
4989 
4999 
4992 
4992 
4993 
4994 
4995 
4996 
4997 
4998 
4999 
5008 
5001 
5002 
3003 
5024 
5205 


MACX412 


321782 
321704 
321786 
924710 
324712 
921714 
321720 
321722 
321726 
233738 
824734 
321736 
821742 
824744 
821759 
024752 
021756 
921768 
321764 
824778 
824774 
3214776 
822000 
822002 
822004 
822018 
822032 
822834 
922816 
922928 
922922 
922026 
022038 
822854 
022236 
322942 
322044 
922846 
922952 
222954 
822968 
822962 
022064 
822978 
822872 
922076 
922198 
022194 
822106 
922112 
922114 
022116 
622128 
3922124 
822126 


MACXA1L 


322130 
3221354 
922140 
322142 
822144 
322146 
822156 
322152 
322154 
022156 
822160 
822164 
022166 
622179 
822174 
822208 
922204 
322286 
322212 
B22214 
822228 
022222 
922226 
022258 
322232 
822236 
822246 
322242 
022244 
022246 
922252 
822254 
322256 
822262 
322264 
222278 
322272 
322276 
822308 
322302 
322304 
822306 
822319 
822314 
222316 
922320 
322324 
822326 
322332 
822334 
322348 
322342 


922346 
. 


va2i 


180376 
200757 
295382 
318298 
120424 
122427 
301540 
120427 
304464 
120427 
304535 
123427 
081483 
120427 
881973 
122704 
691402 
42704 
362734 
112723 
020190 
183076 
121804 
201409 
124927 
ai415 
122222 
OBO772 
185021 
385200 
120427 
0844935 
242721 
8064s 
222722 
880656 
185023 
122781 
910102 
124227 
064375 
126442 
122742 
300207 
122927 
304775 
124927 
183431 
124927 
181026 
112682 
9896382 
162702 
120222 
808604 


veas 


112749 
122749 
885301 
320100 
181033 
080425 
020109 
183618 
195021 
185014 
362701 
o20198 
193802 
200267 
780167 
121927 
181926 
124927 
183403 
895765 
282415 
112721 
820108 
193361 
121827 
984482 
422621 
380773 
195924 
422723 
200207 
112902 
122927 
384775 
124927 
194936 
121927 
193433 
488382 
152992 
089382 
#11583 
122927 
204775 
285300 
428365 
183933 
324327 
183083 
7627083 
200767 
2627283 


926327 


22eMARe73 


aoezz0 
oge2e2 
eeoaiy, 
090257 
egn256 
890257 
090252 


177578 
900577 


ogsei5 


eeee47 
oaeese 
0ge257 


060202 
889377 


090377 
090040 
980103 
9903352 


229MARe73 


098116 
880106 


oeeeis 


177344 


BB8564 


oga1s2 
080423 
0a6956 
988377 


998015 


080203 


890040 
BB0071 
920869 


938040 


398014 
177775 


ego0e6 
200818 


177778 


4177777 


15044 PAGE 6604 


BPL 102 

BR TRYAGN 
AMATCHE DEC R2 

MOV R2,RO 


MOVB =—-R4, (RLY 
CMPB R48, REN 


BEQ REMPACK 

cMPa R4,6,FN 

BEG TRNFN 

curs R4,#, NEXT 

BEO NEXFILL 

CMPB R4,8,SQU0T 

BEO QUOTPAK 

cMPa R4,8,0QU0T 

BNE TRANLUP 
QUOTPAKECMPB #,SQUOT,R4 

cla) 16 

MOV HEMel Se, SQUOTIRG 

aoo #0 te, SQUOT,R4 

Move w, TEXT, CRAY} 

cme R4,RO 


BHIS ERRTRN 


STaSTR} CHPB (RO), R4 SAME AS INITIAL QUOTE CHAR,? 


BEo ENOQUOT 

CMPB (RO), BER 

BEO ENOCR 

MOVE CROVO PIRI) 

BR STOSTK 
ENDQUOTICLRB (Rte 

INC Ro 

CMPB R4, eft 

Bea eENnosoyo 

MOVE #,OQUOTE, (Ride 

BR TRANLUP 
ENDSQUOIMOVE # SQUOTE, (819% 

aR TRANGYP 


ENOCRE CURB (Rije 
MOVE #, COL CRY) 


MOV RL, RZ 
CMPB o(R2),8, TEXT 
BNE 


1a4 
Move R4,(R2) 
move #, TEXT, *(R2) 


RTS PG 

TRNFNY CMPB (RO) o, #BL 
BEO 04 
CMP o(RO) ATA 
8L0 TRFNBAD 
CMPB (RO), ate 
BHI TRFENBAO 
“OVE (ROS RA 
ASL RR AISA 
su8 #OAGTAR2,R2 
MOVE R2, (R14 
BR TRANLYP 
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TRENBAD MOVE ING RO) 
Move at eR) 


ogc Ri 
cMP RL,RO 
SHI ERRTRN 
BR REMPACK 
NEXFILLICMP RA, RO 


SHIS ERRTRN 
CLRE CRL)e 


CLRB (RA) 
a0 #21,R1 
CMP RL,RO 
BHIS — ERXRTRN 
JMP TRANLUP 
ERRTRN| UMP ERRTR] 
NOTKWO} CMP (RB) BEE 
BHI REMPACK 
CHPB (RO), BEA 
BLO REMPACK 
rst TACRS) 42 VARS [N A ROW JS AN ERROR SC DONT 
Bo TSVAR SWASTE SYMBOL SPACE ON IT, 
REMPACKIMOVB =—«-#, TEXT, (RA) + 
cMP RLRB 


BHIS ERRTRN 
STOTXT# CMPB (RB), 8CR 


BEQ CARRET 
MOVB CHB) OP (RL) & 
BR STOTXT 


GARRET} CRB CRY)e 
MOVE = @, EOL (RA) 
RTS PC 

ISVAR} OV (RB)+)R2 
cMPB (RB) +) #BL 


BE ,e4 
cMPB o(RB) AID 
Ht NOOIGIT 
CMPB (RB), 810 
glo NODIG}T 
SWAB RZ 
8188 (RB) 6, R2 
SWAB RZ 
NODIGITIMOV (R5)) RS 
cMPB (RO) 6, BL 
BEQ a4 
pec Ro 
VARSRCHICHP R3,LOFREE( 95) 
BHIS PUTITIN 
CMP (R3), 8, SCALAR 
BHIS ——-NOTIT 
400 #4,R3 
BR VARSRGH 
NOTITS 00 #10,RS 2 v 


,IFNOF SNOSTK 
CMP °30(RS),#,SVAR 


uy 


BASICL 


5006 
5207 
5908 
5009 
5012 
5011 
5012 
5813 
5014 
5015 
5016 
5017 
5018 
5019 
5028 
5824 
5B22 
5023 
5024 
5025 
5926 
5027 
5028 
5229 
5038 
5031 
5932 
5033 
5034 
5035 
5836 
5037 
5038 
5039 
5240 
5042 
5942 
5043 
5044 
5245 
5246 
5047 
5048 
5049 
5058 
5054 
5052 
5053 
5054 
5955 
5056 
5057 
5058 
5259 
5268 


BASICL 


5064 
5062 
5063 
5064 
5065 
5266 
5067 
5868 
5069 
5070 
5071 
5072 
5073 
5074 
5075 
5876 
5077 
5078 
5079 
5080 
5084 
5082 
5083 
5084 
5085 
5086 
5087 
5988 
5089 
5099 
5091 
5992 
5093 
5094 
5095 
5996 
5097 
5098 
5099 
5108 
5101 
5102 
5123 
5104 
5125 
5106 
5107 
5108 
5109 
5112 
5411 
5112 
5113 
5114 
5115 


MACX11 


822354 


922356 
322368 
322362 
822366 


822378 
222372 
22374 
922376 
022402 
822404 


922406 
22412 


22414 
922428 
822424 
922426 
022452 
9224356 
922448 


822442 
822446 
022459 
322454 
022456 
822468 
922462 
822464 


922478 
322474 
822476 
622500 
022504 
022506 
822518 
922512 


922516 


MACXLA 


822522 
022524 
322526 
322538 
322532 
022534 
322536 
822548 


822544 
022546 
922552 
822556 
822569 
022562 
822564 


322579 


922573 


822574 
922608 


322604 


822687 


822618 
022614 
822620 
222622 
322624 
022626 
822632 
822634 
222636 
822649 
322642 
822644 
322659 
322652 
922656 
822660 
822662 
322664 
822678 
822672 
222676 


V@2a 
381426 


822322 
881357 
121027 
8047346 


280486 
322332 
081352 
121927 
904346 
385208 


162733 
900444 


062783 
820365 
103425 
884767 
820365 
183060 
885743 


820365 
101034 
818365 
010243 
395943 
805843 
095043 
812743 


121927 
061010 
905208 
242723 
905123 
383123 
905113 
162783 


010565 


VOaa 


161583 
880303 
110322 
40303 
110321 
220108 
181216 
300167 


810846 
304767 
121027 
801016 
812600 
300617 
304167 


346124 


300167 
304167 


352120 


300167 
020327 
181140 
385732 
883404 
304767 
805302 
983767 
804132 
885783 
094427 
329427 
103124 
916583 
203304 
320103 
183452 
121127 
#04447 
121127 
881444 


22eMARe73 


090044 


000844 


egaoi2 


oeoo14 
000072 


290526 
ag0972 


890012 
290014 


177775 


900044 


177777 


880806 


898856 


22eMARe73 


177008 


oaeee2 
290856 


174654 
124 


156406 
174040 


182 


156372 


014630 


174562 


477775 


890820 


08204 
200205 
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eee 
»ENOC 


CoP 
BNE 
CMPB 
Bea 


vtFNOF 
BR 


TRYSVARICMP 
BNE 
CMPB 
BNE 
TNC 
sENOC 


FOUNDV! SUB 
BR 

PUTITING 
, TFNOF 
aod 
CMP 
BLO 
JSR 
CMP 
BHIS 

PUTAOK) TST 
,ENOC 


y1FOF 
aod 
1 ENOC 


Cup 
BHI 
MOV 
MOV 
CLR 
CLR 
CLR 
MOV 


cL TFNOF 
cMPB 
BNE 
INC 
MOV 
CoM 
com 
com 
sus 
,ENOC 


REPVARI MOV 
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REPLNO! SUB 
SWAB 
Move 
SWAB 
MOVB 
CMP 
BHI 
JMP 


MOV 
JSR 
Cure 
BNE 
MOV 
SR 
ERRTR71 JSR 
1 UFNOF 
ASCII 
1ENOC 
VTFOF 
sASCII 
1ENOC 
:BYTE 3 
,EVEN 
JMP 
ERROV2} JSR 
1 TFNOF 
rASCTL 
,ENOC 
VIFOF 
ASCII 
,ENOC 
1BYTE 2 
1EVEN 
JMP 
EXPTEN! CHP 
BH! 
Ts? 
BLE 
JSR 
DEC 
BR 
EXPNEG! 8NE 
TST 
BNE 
CMP 
BHIS 
MOV 
EC 
CMP 
ayo 
cMPB 
BEO 
cMPe 
BEO 


TSNUMS 


YRYSVaR 


(83) Oy RZ 
VARSRGH 
(RO), 8S 
VARSRGH 


SNOSTR 
FOUNOV 
(R3) oy R2 
VARSRGH 
(RO), 8S 
VARSRGH 
RB 


#12, R3 
RETVAR 


SNOSTR 
#44,R35 
R3,LOSTR(RS) 
PUTAOK 

PC, UPPACK 
RS,LOSTR(RS) 
ERROV2 

2(R3) 


SNOSTK 
#42, R35 


RS, HIFREE(R5) 
ERROVE 
R3,LOFREE(RS) 
R2,0(K3) 

o(R3) 

(RS) 

oCR3) 

#, SCALAR, e(R3) 


SNOSTK 
(RO), ats 
RETVAK 

RO 

# SVAR, (R3)% 
(R3)4 

(R3)4 

(RS) 

#6,R3 


R35, TL(RS) 


(R5) RS 
RS 

RS, (RLV 
ag 


R3,(R1)+ 
RL RO 
ERRTRN 
TRANVAR 


RB, a(SP) 
PC, VAL 
(RO) at, 
EXPTEN 
(SP) o,RB 
REMPACK 
RY ,MSGERR 
SLONGER 
\TLTN 


SLONGER 


MAKE SURE STRINGS ARE NOT THERE 


JIF THEY ARE, PACK THEM UPWAPOS 
yANO TRY AGAIN 

1NO 6000 

pR3_1S END OF ENTRY 


sADDPESS END OF ENTRY IN RB 


PS aed 


SSQMETHING NONZERO, 


SAVE PTR JN CASE OF BAD NUM 
HFINO MANTISSA AND EXPONENT 


'GINE TOO LONG TA TRANSLATES 


REAOY2 
RL,MSGERR 
SLONGER 
\PTBA 


SLONGER 


‘PROGRAM TOO BIG! 


READY2 

RS, #44030 
MAKFLIT 

R2 

EXPNEG 

PO, MPYTEN 
Re 

EXPTEN 
MAKFLIT 

RS 

MAKFLIT 
R4, #8, SCALAR 
MAKFLYT 
LINECKS), RS 
Ri 

R4RS 
MAKLNO 
(Ra), #,GOSuUB 
MAKING 
(RL), 8, GOTO 
MAKLNO 


“Nee 


BASICL 


5116 
5117 
5218 
5119 
5128 
5221 
5122 
5123 
5124 
5125 
5126 
5127 
5428 
5129 
5138 
5133 
5132 
3133 
5434 
5135 
5136 
5137 
5138 
5139 
5140 
5143 
5142 
5443 
5144 
5145 
5146 
5447 
5148 
5149 
5159 
5451 
5152 
5153 
5154 
5455 
5156 
5157 
5158 
5159 
5168 
5262 
5162 
5163 
5164 
5165 
5166 
5167 
5168 
5169 
5178 


BASIC, 


5472 
5472 
5473 
5474 
5475 
5276 
5177 
5178 
5179 
5188 
5184 
5182 
5183 
5184 
5185 
5186 
5187 
5188 
5189 
5198 
5191 


MACK14 


922799 
822704 
822706 
322712 
822734 
022720 
022722 
922724 
822726 
922738 
822732 
322736 
822749 
922744 
022746 
822752 
822754 
922756 
822768 
822762 
022764 
822766 
022770 
822772 
822774 
23000 
023004 
923810 
623012 
023014 
823028 
23522 
823826 
823838 
823834 
823836 
923849 
823042 
823046 


023059 
323954 
823069 
823962 
023866 
823072 
023074 


823076 


MACXI2 


833102 
923104 
923110 
323112 
023114 
823116 
323122 
023124 
823126 
023138 
323132 
323136 
4231242 
23144 
023146 
223150 
023152 
823154 
623156 


vees 


121127 
284441 
124127 
201436 
121127 
884433 
905201 
805803 
095704 
082474 
029427 
883883 
112721 
096407 
112721 
390304 
820108 
183839 
110424 
080394 
110421 
085726 
20100 
104002 
890167 
900167 
800167 
099202 
0245283 
820365 
103033 
021327 
183483 
862783 
900767 
0243204 
eo4e25 
062733 
908762 


262703 
029365 
193495 
804767 
829365 
183344 
805743 


229365 


vOas 


101346 
848365 
385043 
810443 
885726 
080167 
295723 
881002 
995704 
884703 
084767 
122721 
888303 
329188 
103344 
1120321 
880383 
120322 
080675 


22eMARe73 15942 
oge224 cmMPa 
Bo 
oge2s2 CMPB 
BECO 

8ea3e6 CMPB 
BEQ 

ING 

CLR 

rst 

4 BLT 
968377 CMP 


ect 
968375 LIPZERONMOVE 
380376 
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8R 
MARET2) MOVE 
LITCOMNISWAB 
_tmP 
BHIS 
MOVE 
Swag 
MAKEOKS MOVE 
TST 
cMP 
BHI 
176548 JMP 
477478 TRNER4} JMP 
177578 ERROVS} UMP 
MAKLNOG INC 
MOV 
90oe1¢ LNOSRCHSCMP 
BHIS 
177775 CMP 
BLO 
eooe12 aod 
BR 
TSLNO} CMP 
Bea 
gees 400 
BR 
STOLNOI 
vlFOF 
aoo 
2ENOC 


cTFNOF 
geene6 apo 
oee72 cup 
aLo 
oeoa72 usr 
ogeo72 CMP 
BHIS 
STOAOK! TST 

,ENOC 


806012 CmP 


22eMARC73 1514s PAGE 66°6 


BHt 
agea14 MOV 
CLR 
MOV 
FOUNOLNITS? 
177408 UMP 
MAKFLITS 
BNE 
TST 
BEO 
174374 CALNAM| JSR 
809574 MOVB 
SWAB 
CéMP 
BHIS 
MOVE 
Swag 
MOVB 
BR 


CRLF CALL 


MAKLNO 

CRLT 8, THEN 
MAKLNO 
(RL), 8, LIST 
MAKUNO 

Ry 

RS 

R¢ 

MAKFLUT 
R4,06377 
MAKEL2Z 

My, ILITa (RL) o 
MAKEOK 

My TLITZ, CRE) + 
Re 


R1,RO 
TRNERS 
RA, (RIO 
R4 


R4,(RL)O 
(SP)e 

RL,RE 

TRNER4 
TRANLYP 
ERRYRN 
ERROVZ 

Ry 

(RS) RS 
RS,LOPREE(RS) 
STOLNO 
(R3) B, SCALAR 
TSLNO 

#42,R5 
LNOSROH 
(R3),R4 
FOUNOLN 
#4,R3 
LNOSRCH 


SNOSTH 
#4,R3 


SNOSTK 
#6,R3 
R3,LOSTRIRS) 
STOAQK 

PC, UPPACK 
RS,LOSTRIRS) 
ERROVS 

#(R3) 


RS, HIFREE(R5) 


ERROVS 
R3,LOPREE(RS) 
o§R3) 
R4,0(K3) 
(SP)o 

RETLNO 

TST RS 


LE YZEKO 

PG ,NOKM 

My FLIT A CRIVe 
RS 


RL, RO 
TRNERS 
RSp(RLI& 
RS 

RS, (R1D © 
LITCOMN 


CHECK THAT THE SYMTAB SPACE 
sTS SOY OCCUPIED BY STRINGS 


dIP IT 1S, MOVE STRINGS UP 
BAND CHECK ROOM ENOUGH AGAIN 


sADJUST SYMTAB AQORESS 


AXE 


2e7 


BASIC 


5192 
S193 
5194 
5195 
5196 
5197 
5198 
5199 
5200 
5201 
5202 
5203 
5204 
5205 
5206 
5207 
5208 
5209 
5210 
5212 
5212 
5213 
5214 
5215 
5216 
5217 
5218 
5219 
5229 
5221 
5222 
5223 
5224 
5225 
5226 
5227 
5228 
5229 
5230 
5234 
5232 
5233 
5234 
5235 
5236 
5237 
5238 
5239 
52408 
5244 
5242 
5243 
5244 
5245 
5246 


BASICL 


5247 
5248 
5249 
5250 
5254 
5252 
5253 


MACXLL 


323168 
823162 
825164 
823166 
823178 
823174 
023290 
825204 
323206 
23218 
023212 
B23216 
923220 
923224 
823226 
623238 
623232 
023234 
223236 
023246 
823242 
823244 
825246 
023250 
923252 
823254 
825260 
223262 
823264 
823266 
923272 
023274 
323276 
223308 
923304 
923306 
923312 
825314 
823329 
825322 
823324 
823326 
823332 
823334 
223336 
823348 


MACX42 


823342 
823344 
023346 
92335¢8 
823352 


V62i 


310146 
310246 
510346 
983946 
016503 
326582 
819265 
885916 
154146 
081912 
620165 
184372 
8140265 
005726 
812603 
022602 
842602 
890207 
161603 
085905 
154103 
200303 
154103 
380303 
205304 
330327 
381482 
285383 
061503 
820365 
183347 
820306 
103035 
828365 
104342 
820365 
184805 
020365 
103334 
820325 
193732 
262726 
024303 
904326 
964601 
166143 


vo2s 


360213 
114242 
305316 
303375 
200747 


22eMARC73 


800074 
Baeei2 
880074 


egeo72 
200072 


300003 


888004 


800010 


090012 


00834 


890804 


22ahARe73 


15142 PAGE 67 
:TFNOF = SNOSTR 


I pocccccwcgecncwegeaccewng seers cceseccsenerecaseccs 


} SUBROUTINE 'UpPACK! CALLED BY Jsp PC 
' PACKS STRING STORAGE TOWARD NIGH CORE 
' R@ UNUSED 
' RL,R2,R3 PRESERVED 
' R4 UNUSED 
' RS MUST POINT TO USER AREA 
} SP GOES 1 MEEPER AFTER VSR 
UPPACK} MOV Ry, e(SP) 
MOV R2,0($P) 
MOV R3,2(SP) 
CLR (SP) 
MOV WISTROIRS) AL 
MOV HIFREECRS) ,R2 
Mov RA HISTRERS) 
UPPLOOPICLR (SP) sGET END OF THE NEXT STRING 
BISsB e(RL), (SP) 
BNE UPPNZKO HCLAST BYTE CONTAINS THE LENGTH) 
UPPBAD} CMP RA, LOSTRORS) 
BHI UPPLOOP 
MOV R2,LOSTR(RS) 
rs? (SP)o 
MOV (SP)o,R3 
MOV (SP) 4)R2 
MOV (SP)eyRt 
RTS Pp 
UPPNZROISUBS CSP) ,KL HAOORESS BACK PTR 
CLR RS 
8ySB oR) ARS 
SWAB RS 
B1se e(RL) ERS 1GET IT IN RS 
SwWas RS 
oEC Ry 
aT RS, et sCHECK REL TO SYMBOLS 
BEO 1% 
DEC RS 
aoo (R35) RS HYES, A00 BASE OF SYM YAR 
cue RS,POLERS) IMAKE SURE ITS NOY TOO WI 
BHIS UPPBAQ 
CMP R3,SP IN STACK IS OK 
BHIS UPPGOOO 
CMP RS,ARRAYS(RS) jyIN ARRAYS IS GOCO 
BHI UPPBAD 
CMP RS, HIFREE(RS) HIN FREE STORAGE IS BAD 
BHI UPPGOOO 
CMP RS, LOFREE(RS) 
BHIS UPPBAD 
CMP RS, (RD) 
urecoooisas —saytthy —J0nbaafutecy SOMES FSB 
1 #4, (SP) , KING, MOVE [YT UP 
cmp (R3), KL AVF 
BNE UPPBAQ SCOONFT GARBAGE COLLECT IT) 
a00 CSP), RY 
sus Ra, (RS) 


135142 PAGE 6704 


apo RZ, (RS) 
move 2(RL),0(R2) 
oec «SP) 

BGT a4 

aR UPPBAD 
1ENDC 


goes 


BASICL 


5254 
52558 
5256 
5257 
5258 
5259 
5268 
5261 
5262 
5263 
5204 
5265 
5266 
5267 
5208 
5269 
5270 
5274 
5272 
5273 
5274 
5275 
5276 
5277 
5278 
5279 
5289 
5281 
5282 
5283 
5284 
5285 
5286 
5287 
5288 
5209 
5298 
5294 
5292 
5293 
5294 
5295 
5296 
5297 
5298 
5299 
5300 
5301 
5302 
5303 
5304 
5305 
5306 
5307 
5308 


BASICL 


5309 
5318 
$311 
5312 
5313 
5314 
5315 
5316 
5317 
5318 
5349 
5322 
532% 
5322 
5323 
5324 
5325 
5326 
5327 
5326 
5329 
5338 
5334 
5332 
5333 
5334 
3335 
5336 
5337 
5338 
5339 
5348 
5341 
5342 
5343 
5344 
5345 
5346 


MACX12 


623354 
323356 
823360 
823362 
023366 
323370 
323374 
823376 
823402 
323404 
823418 
023412 
923414 
823416 
923428 
0235422 
823424 
823430 
823452 
8234354 
023449 
823442 
023444 
923446 
923459 
023452 
023454 
823469 
323462 
823464 
023466 
023472 
823474 
023476 
623502 
923504 
023519 
923512 
923516 
623520 
923522 
823524 
823536 


323532 
023534 
023549 
923542 
323546 


MACX44 


223559 
223552 
323536 
823569 
323564 
823566 
023572 
023574 
823576 
823602 
223606 
323618 
O23614 
325616 
323622 
323624 
823626 
323630 
823632 
323636 
323640 
823646 
923658 
823652 
823654 
323656 
925662 
923664 
823666 
323678 
823674 
323676 
823798 
923792 
823726 
323710 
823712 


ve2t 


385022 
385823 
385004 
122927 
304775 
124027 
193427 
124927 
101924 
920327 
181405 
285208 
985702 
982764 
395202 
000757 
884767 
395046 
112916 
162716 
062604 
685503 
905702 
361745 
985242 
088743 
122027 
ae1g24 
095702 
801083 
312722 
090733 
303000 
122027 
201775 
124027 
183405 
121927 
101002 
o85208 
680765 
122927 
801409 


095046 
124927 
204956 
320165 
381453 


Vo2s 


805220 
121927 
884774 
122027 
781406 
124927 
204003 
985220 
812726 
122027 
204775 
124027 
183423 
121927 
181928 
241646 
386316 
306316 
066616 
986316 
242766 
262616 
805946 
112816 
362616 
462746 
300747 
905716 
882895 
342716 
085416 
885702 
382003 
942722 
885402 
962622 
280207 


22nMARG7S 


2909490 
8892008 
890871 
914650 


173764 


299060 


988056 


1290808 


300840 
290868 
086872 


888185 
oeevee 


22eMARe73 


990048 
0806535 
989055 


190809 
208040 


90o06e 
980871 


280002 
277777 


080868 


190000 


190008 


9eeeo2 
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Jecewccnsccce qeowccees codec c seve genegeecccsssecnces 





1 SUBROUTINE 'VaLé CALLED BY JSR R7 
’ CONVERTS AN ASCII STRING AT (RO) 
’ TO A VALUE IN R3,R4, AND 
’ ‘ AN EXPONENT IN R2 
VALS 
CLR R2 HOEC PLACES4+4290002 OR TRAILING ZEROES, 
CUR RS IHIGH OROER OF 32 BIT INTEGER, 
CLR R4 JLOW ORDER OF 32 BIT INTEGER, 
NUDIGITICMPB CRB) OBL 
BEG a4 
cMPB (RB) AtO 
BLO NOTOIG 
CMPS (RO) MED 
aH! NOTOIG 
cMP RS, 944630 SUF HIGH WORO GREATER THAN THIS 
BLOS CANFIT HYHEN CANT FIT ANOTHER OIGIT IN 32 BITS, 
ING RO 
TS? R2 HCANT FIT DIGITS IN MANTISSA, BIT {TS 
eur NYOIGIT sAFTER POINT SO NEEONY COUNT THEM, 
INC R2 SCANT FIT DIGITS IN MANTISSA SO MUST 
BR NYOIGIT JKEEP YRACK OF TRAILING 2ER0ES;, 
CANFIT} JSR PC, MPYTEN 
CLR #(SP) 
“OVE CRB), (SP) PANO ADO IN THE DIGIT, 
sys 910, (SP) 
ADO (SP)4)R4 
aoc RS 
rsY R2 
BE0 NYDIGLY sFITS IN MANTISSA, 
INC R2 IFITS IN MANTISSA BUT AFTER POINT SO 
oR NYOIGIT sCOU"T DECIMAL PLACES, 
NOTOIG) CMPB CRO)opat, 
BNE NOTOOT 
Ts? R2 
BNE OOTROT 
MOV #1002000,R2 1O00T COMES AFTER SHORT NUMBER SO GET 
BR NUOIGIT pREAMY TO COUNT DECIMAL PLACrS, 
DOPROT! SGT DOTIGNO 
DOPIGNOSCHPS (RB) o, 8BL 
gea 704 
cMPB s(RQ) at sOOT COMES AFTER FULL MANTISSA WITH 
BLO PASTOOT HTRAILING ZEROES SO IGNORE MORE OJGITS, 
cMPB (RO), 809 
BH PASTDOT 
INC RO 
BR OOTIGNO 
PASTOOTICMPB (ROpOpat, sOOT COMES WHILE IGNORING TRAILING 
BEO ooTsAD PAFTER POINT WITH FULL MANTISSASERROR, 
NORDOT! CLR #(SP) 
° 
CHPB = (RQ), APE BIO 
BNE NOEXPON INO ‘EL AFTER THE NUMBER 
CMP RA LINERS) yIF ITS THE FIRST THING ON THE LINE IT 
BEG NOEXPON sMUST BE A LINENO SO #E/ IS ILLEGAL, 
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INC RO 

Cups (RB), #8y 

BE0 186 

CMPB (RO) Op eee 

BEO EXPOIG 

CMPB a(ROI ate 

BNE EXPOIG 

TNC RB 

MOV #100008, (SP) 
EXPOIG) CMPB (RB) oe, BL 

EQ yea 

CMPB (RO), 88 

BLO EXPOUN 

CMPB (AB), 8E9 

BHI EXPOUN 7 * 

MOV {(SP),e(SP) 

ASL (SP) 

ASL (SP) 

LY]) 2¢SP), (SP) 

ASL (SP) 

aIc 4877777,2¢SP) 

ano (SP)4, (SP) 

CLR e (SP) 

MOVE (RO), (SP) 

aod (SP)4, (SP) 

sus #10,(SP) 

§R EXPOIG 
EXPOUN) TST (SP) 

8GE NOEXPON 

Bre #300008, (SP) 

NEG ¢SP) 
NOEXPONITST R2 

BGE EXPOK 

Bic 8199208,R2 

NEG R2 
EXPOK} A00 (SP) o,RZ 

RTS PC 


BASIC, 


5347 
5348 
5349 
5358 
5351 
5352 
5353 
5354 
5355 
5356 
5357 
5358 
5359 
5300 
5363 
5362 
5303 
5364 
5365 
5366 
5367 
5368 
5369 
5378 
5374 
5372 
5373 
5374 
5375 
5376 
5377 
5378 
5379 
5380 
5384 
5382 
5383 
5384 
5385 
5386 
5387 
5388 
5309 
5399 
5394 
5392 
5393 
5394 
5395 
5396 
5397 
53968 


BASICL 


5399 
54200 
5401 
5402 
5403 


MACKXLL 


B23714 
823716 
823728 
023722 
823724 
823726 


023768 
323762 
823764 
823766 
823778 
023772 


324g24 
324926 
824038 
824032 
324934 
324036 


MACXL1 
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4 
1 SYSTEM 1/0 BUFFERS AND HEADERS 


' 
1 PAPER 


! 
823756 PREFHO} 
923757 
823730 
oseoee 
923730 
860ge8 
823738 PRBUF 
823760 ' 
023757 PRBEND 


5 
1 paper 


4 
323774 pparHot 
824023 
223774 
ooeecs 
28774 
aeeges 
823774 PPBUF 
S2ag2e ’ 
224623 PPBEND 


+EPNOF SNOPTP 
TAPE READER 


+ prRBuF sBgrry 
+ PRBENO 

,WORO = PRBYF 

+ a 
»WORD = PRBUF 


WORD a 

bat) 

=, eSPRBS2 
Biel 

i tVEN 

TAPE PUNCH 

+ ppeuF 
‘ PPBEND 
,WORD = PPBUF 
+ @ 
;WORO = PPBUF 
;WORD 

ba) 

&, eSPPASz2 
ered 

seVEN 

ENO 


VTENOF = SNOLPT 


' 
J LINE PRINTER 


U 
824949 LPBFHO) 
824077 
824040 
800088 
824948 
ITT TT 
024040 LPeaUF 
024198 ’ 
826077 LPBEND 


o LpBuUF 

. LPBEND 
sWORD = LPBUF 

o a 


WORD = PBUF 


sWORD 8 
belt) 

#, eSLPASZ 
eyal 
EVEN 
,ENOC 
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924120 ENBAB 
egegeg! 

egeeog! BEGIN 
224100 ’ 
380004 


Ss 
+CSECT 
2) ¢ENDAG 
+ END 


BEND 
sBGETL 
1BGET2 
sBPUT 
WBFSPEC 


s8STAT 
sBEND 
sBGETL 
sBGET2 
yePuT 
sBFSPEC 


sBSreRT 
sBEND 
sOGETL 
sOGET2 
sBPUT 
1BFSPEC 


AIA 


BASICL 


ADOINT 
ADOZER 
AWLNOA 
ALLSTR 
ARGS 
ATAN 
BF SPEC 
BOMB 
BOMBNX 
BSTRT 
CALL. 
CALLNM 
CANFIT 
CAYNOT 
CHKCHR 
CLMNLP 
CLRFRE 
CLRVAR 
COLONC 
COMTAB 
cR 
DELMSG 
OlMLOO 
OIVTEN 
ONPIGN 
OOCHAR 
DOT8AaD 
ECHOSP 
EDL UMP 
EOtMVY 
EDIRLC 
EOTSKI 
€NO 
ENDSQU 
EREXP 
ERRAGL 
ERROEE 
ERREXP 
ERRMIX 
ERRMX4 
ERRMX8 
ERROVS 
ERRPO? 
ERRRET 
ERRSS2 
ERRSX1, 
ERRSXS 
ERRSX9 
ERRTRE 
ERSTAR 
EXECUT 
EXPOUN 
EXPTEN 
FILLCH 
FUXRET 


BASICL 


FLINE 
FNFN 
FNOLNN 
FNRSNU 
FNSWAP 
FORGTL 
FORNQOL, 
FOUNOL 
FRSTOU 
FUNRET 
GEYCHL 
GET2BY 
GOTECH 
GoToaT 
HIFREE 
IF COMP 
IFLLTR 
IFSGT 
IWIT2 
INTTSC 
INPLOO 
INPNUL, 
TNPSTO 
INPYOL 
INTRTS 
INT2 
INT7 
IOWAIT 
{Tas 
KBCO 
KEYA 
LEVFNE 
LEVILT 
LINA 
LINENO 
LISTSV 
LITNOR 
LITTST 
LOCGET 
LOFREE 
LPB 
LPERR 
LPSTRN 
USTCRLE 
LSTFN 
LST UMP 
USTLNX 
LSTPRO 
USTTEX 
MAKEOK 
MAKGOT 
MSG 
MSGSUP 
NEXGTL 
NOCHR2 


MACX11 


087662 
807742 
919842 
019164 
919262 
eeecee 
8oo812 
8403520 
19360 
2230000 
083104 
803242 
923424 
813832 
819602 
908492 
911978 
011902 
985312 
921646 
909015 
9807312 
382326 
011150 
811576 
016174 
823532 
900194 
8920356 
081724 
981772 
981542 
003340 
922036 
43214 
614514 
004134 
814064 
013812 
003762 
013448 
991662 
8135292 
004226 
012116 
083236 
012546 
013470 
086352 
843214 
802746 
823664 
922614 
oae112 
915032 


MACX14 


015034 
044252 
814452 
014734 
814276 
084666 
004444 
023114 
817519 
013446 
815232 
015150 
997222 
011516 
000012 
903630 
083712 
003766 
011650 
815554 
205736 
006342 
006152 
005730 
015726 
015716 
916010 
016192 
815360 
026774 
090476 
816374 
81635@ 
a161e2 
980030 
902262 
017552 
317570 
816410 
gae014 
177516 
807546 
811720 
016744 
616712 
047114 
817202 
216604 
817026 
322764 
217306 
817452 
337290 
025160 
8075¢2 


VO23 


vo2s 


22eMARe73 


ADOOVF 
ADSTKL 
ALLOC 
aALOG os 
ARRAYS 8 
ATNEN 
BGET1 «& 
BOMBOO 
BOMBOK 
BUPCLR 
CALLCK 
CALLX 
CARRET 
CCEXIT 
CHKISE 
CLMNPP 
CLRLOO 
CNCFLG 8 
COLWMN # 
CONGAT 
CRLFME 
OEVERR 
OJMNON 
DNPACK 
ONPLOO 
DOT TNO 
OOTIGN 
EDICHG 
EDIMME 
EDJOVE 
EOTRLO 
EOUSRC 
ENOAB os 
cor 
ERLOG 
ERRARA 
ERROEF 
ERRFNY 
ERRMXL 
ERRMXS 
ERRMXD 
ERROV2 
ERRPOS 
ERRRUN 
ERRSSS 
ERRSX2 
ERRSX6 
ERRSYN 
ERRUEN 
ERSX19 
EX}T92 
EXPFEN 
Fach s 
FILLCO 8 
FIXTST 


22eMARW73 


FUIT 
FNNEWN 
FNRCOM 
FNRSSC 
FOR 
FORLOO 
FORONE 
FOUNOV 
FUNCT] 
GCWAIT 
GETVAR 
GOEXEC 
GoTo 
GOTVAL, 
HISTR = 
IFLEND 
IFLOoP 
IGNORE 
IMMED 
INPEND 
INPNEW 
INPOK 
INPSTR 
INT 
TNTL 
INT2A 
INTS 
ISLNO 
ITABLE 
KBHO os 
KEYWOS 
LEVLIT 
LEV2LT 
LINOUN 
LINGET 
LITCOM 
LITOK 
LITZER 
Loc,oo 
LOGFN 
LPBENO « 
LPYNT 
LSV8S, 
LSTEOL 
LSTiLe 
LSTKWO 
LSTLOO 
LSTPTR 
LSTVAR 
MAKEST 
MAKLNO 
MSGCOM 
NEXEND 
NEXLTL 
NOCNC 


15444 


907792 
924464 
010018 
aceoee 
posers 
913252 
gepeg4 
018372 
010470 
0105198 
883136 
903290 
o22244 
o19700 
840792 
a00eoe 
o11920 
Beg186 
909034 
g13e2e8 
BO7322 
921054 
902346 
011296 
811232 
842274 
823676 
921656 
981330 
931476 
ov2830 
081346 
024108 
803368 
910312 
040254 
282634 
983232 
914242 
004222 
OL3318 
o22088 
993756 
082726 
916576 
085268 
904450 
042544 
014520 
904674 
007416 
913268 
gooees 
020118 
045018 


6 


id 
G 


15144 


911656 
914462 
614798 
814642 
284234 
024420 
04404 
O22496 
B13328 
815350 
O15364 
006230 
04050 
012640 
9200764 
803536 
983506 
902742 
ee2e42 
oue2e4 
BO5764 
006112 
006254 
045574 
045664 
015722 
816022 
023036 
039777 
900192 
Opgege 
046306 
810344 
617516 
816134 
822752 
817698 
022749 
016524 
Q13274 
024077 
007530 
816776 
816732 
917062 
816664 
816610 
Bi7t20 
047214 
017252 
823010 
017454 
805176 
985179 
882766 


G 
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aooros 
ALLEXE 
aLbocs 
AMATCH 
ASSIGN 
BEGIN 
BGET2 
BOMBUM 
BPOL 
BYFEMP 
CALLML 
CALNRM 
CAaTCOM 
CCMES 
CHKOSE 
CLMNTT 
CLROK 
CNOFLG 
COMCHK 
cos 
OEFOUN 
OJMOON 
OMSCL 
ONPBAD 
ONPN2R 
OOMSG 
OOTROT 
EDICON 
EDIMOo 
EDIPAS 
EDtROO 
EoIT 
ENOCR 
€RA00 
ERPOB? 
ERRARG 
ERRDIM 
ERRFPU 
ERRMX2 
ERRMX6 
ERRNEX 
ERROVS 
ERRPOS 
ERRSOV 
ERRSTR 
ERRSXS 
ERRSX7 
ERRTRN 
ERR4WO 
ERSX12 
xP 
EXPNEG 
Fac2 
FILLNO 
FUMUP 
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FULX 
FNNOCO 
FNREPL 
FNRSTR 
FORGO 
FORLTL 
FORSKI 
FPPRES 
FUNCTY 
GeYBYT 
GEYX 
GONOSA 
GOTOFN 
GSBCTR 
IDEV 
IFLEGR 
UFNUME 
ILsTCo 
TMMSTM 
TNPEOL 
TNPNGU 
INPPC 
INPUT 
INTEXT 
INTLA 
INTS 
INT9 
TSNUM 
ITSIN 
KBIOUN 


MAKETR 
MINUS 
MSGERR 
NEXFTL 
NEXT 
NODIGI 


867796 
o40242 
062452 
822786 
883278 
BOQSBOR 
B20b6 
@19504 
@424422 
@45222 
883146 
823182 
B13104 
897325 
018718 
O98056 
011008 
000107 
#10714 
eeooee G 
O8240e 
002074 
8825594 
21240 
8411204 
617504 
O23474 
061540 
001516 
081406 
setae 
601226 
b22044 
015244 
012646 
G18342 G 
982626 
eneeee G 
O420604 
24444 
085252 
823004 
044236 
@17272 
843206 
645522 
083624 
22476 
084532 
049762 
eao0ate G 
822636 
baged2 G 
@68111 
044754 


015002 
214526 
014502 
014636 
004730 
604700 
04414 
915066 
D1SSS2 
615194 
045246 
084126 
@12200 
2ag0s2 
200077 
093560 
083640 
41666 
692124 
906350 
006234 
805752 
885690 
0211352 
045676 
615750 
816052 
922544 
621939 
07000 
603256 
b16304 
Be0ez2 
o0e0¢o 
016404 
047642 
BL7652 
023014 
046592 
eoge72 
@24024 
807594 
B17002 
17110 
047040 
816750 
016724 
@47010 
817300 
047370 
@12504 
O17444 
22190 
904752 
G22306 


aDOSTK 
ALLLOO 
ALLOC2 
AMPWAT 
ASSSTR 
REND 
AL 
ROMBNE 
BPUT 
RUFTP 
CALLM2 
CALOS 
CATLON 
CEXP 
CLEAR 
CLRECH 
CLRSVA 
COOE 
COMES 
COSFN 
SEFGOT 
NIMGOT 
OTVLOO 
ANPGOO 
NOALLO 
nOoPUT 
ECHORA 
FOIGRO 
EDIMOV 
EQIPUT 
EDISAM 
eOrre 
ENDQUO 
ERCHAN 
FRPOGL 
ERROAT 
ERROLV 
ERRGO 
ERRMX3 
ERRMX7 
ERROVR 
FRRPOL 
ERRPNS 
ERRSSL 
ERRSXA 
ERRSX4 
ERRSX8 
ERRTRI 
ERSQR 
EVAL 
EXPOIG 
EXPOK 
FF 
FLIYCL2 
FLE 


FNCHK 
FNNUME 
FNRLUP 
FNSTR 
FORGOG 
FOPNEX 
FORZER 
FPPSAV 
FUNOK 
GETCHA 
GETARY 
GOSsyR 
GOTOKE 
WORSTY 
1F 
IFLGTR 
tFSE9 
1LITd 
INT TSF 
INPGOO 
TNPNANY 
INPRTR 
INPYES 
INTFN 
Inte 
INTO 
TOINIT 
1SVaP 
UMPRAY 
KBINT 
LEVFLT 
LEVPOS 
LIvI? 
LUNEIN 
LIST 
LITEVA 
LITSTO 
LOCALO 
Locsss 
LPAR 
LPBUF 
LPS 
USTCHK 
LSTFLI 
LSTIL2 
LSTLYO 
LSTPC 
LSPSRC 
MAKET2 
MAKFLI 
MPYTEN 
MSGONE 
MEXGO 
NOCHAR 
“OEX9O 


907622 
819832 
002924 
a13002 
Ga3s24 
Boezs2 
0230040 
g104eg 
waoe1e 
B195646 
0931708 
914212 
813054 
a14224 
@81152 
O07164 
@11252 
@89016 
0873530 
a1323e 
992642 
2224n6 
@11154 
O11352 
822536 
ge7ers 
887304 
ao1e24 
21950 
901902 
ae1752 
gar2sa 
222416 
310766 
O133514 
206526 
913576 
804442 
915526 
321530 
313214 
BL14772 
012360 
815932 
a14246 
o11714 
086250 
022566 
819312 
911402 
823682 
023718 
aeon14 
g1503e 
815056 


014716 
214750 
914602 
314362 
804726 
oe4>20 
2047234 
15114 
313364 
g15230 
915142 
064050 
016234 
020750 
083402 
903772 
903054 
@11632 
015936 
006176 
806320 
205754 
305672 
913444 
15714 
@15790 
801222 
O22254 
023376 
806722 
816352 
216492 
a08a82 
216460 
ad2272 
216254 
Q17656 
o16424 
916462 
811720 


a p24040 
= 4775914 


316676 
217270 
817452 
817152 
016646 
016652 
822746 
823122 
017414 
817900 
g25214 
015252 
323676 


G 


6 


AAS 


BASICL 


nOQM 
NORNOQ 
NOYOOT 
NOTSYM 
NUMALN 
NUMEX] 
NUMFM2 
NUMLPS 
NYMOUT 
NUMSHF 
OuD 
OPRFN 
PASTOO 
PLUS 
POWLP 
PPBFHO 
PPS 
PRBUF 
PRECS 
PRICOM 
PRINCR 
PRITES 
PRS 
PTRINT 
PUTAOK 
PYTIT 
Qyore 
READOY 
READSY 
REAFIN 
REMPAC 
RETRY 
RNOCY 
RUN 
RASAVE 
RSSAVE 
SAVCHA 
SCANPN 
SINFN 
SKIPTX 
SLASH 
SPARE 
SSaSav 
STAR 
STOMMC 
STOSTR 
STOVAR 
STRGAR 
SUBINT 
$,0102 
TABLES 
TAB2 
TBLSEN 
TPB 
TPINT 


BASICL 


TRANGU 
TRNFN 
TRYKWO 
TSTS4 
Th 
UAYMP 
VATST2 
UALeB 
UAL7 
UAG7F 
VA2s 
UAg 
UPARRO 
UPPLOO 
VARBLE 
VARSS 
WIRET 
SERVEC 
SPOLSH 
SBR 
ASG 
1GLEAR 
1QATA 
1€G 
EOF 
ELIT 
160SUB 
ebhdTs 
bE 
106 
NE 
+PLUS 
+ RANOO 
rRETUR 
+ RUN 
1SEG 

1 SLASH 
1STEP 
Tae 
110 


MACKS 


986208 
929274 
823532 
803262 
820224 
829562 
920478 
020540 
847724 
829132 
292172 
6135464 
923524 
812430 
007574 
823768 
177554 
023730 
812244 
005512 
685632 
005600 
890168 
987336 
822440 
920764 
012552 
006456 
o06714 
006552 
822222 
821646 
006076 
862516 
020846 
988052 
029578 
G21134 
045222 
o21244 
942466 
209115 
200024 
812462 
821492 
022000 
021254 
012652 
021478 
007054 
002118 
021946 
814626 
177566 
887074 


MACKXL4 


921548 
022072 
021614 
012520 


= 890056 


014194 
914128 
913710 
013760 
814040 
014146 
013616 
813474 
B232g4 
11732 
812019 
16120 
eoenee 
eeosee 
seenee 
oeg3e0 
080343 
oo2223 
809247 
908225 
OO0374 
oog204 
988375 
000244 
288272 
908250 
20g232 
200216 
980213 
008307 
000325 
088251 
oe0242 
802276 
900248 
624198R 


QAO 


vo2s 


Ve2a 


ERRORS OETECTEO! B 


22eMARe73 «= 45844 
NOQMS 806014 
NOROOM 828790 
NOTIT 822342 
NOWRAP 928646 
NUMBIG 929296 
NUMFIX 928092 
NUMFMS §=6920504 
NUMNEG 828038 
NUMPOS 829036 
NUMSTT g20952 
OL098%2 B82230 
OTABLE 048774 
PC =#%908007 
PNOGO 022156 
PowyUP 007572 
PPBUF #8 823774 
PRB #177552 
PREC2 842266 
PREOT 907426 
PRIVMP = 985696 
PRINT 685264 
PRNTIOE 887278 
PRE ® 900200 
PUSH 036846 
PUTBYT 928614 
PUTITI 822414 
QUOTPA 921752 
REAOGO BB6A24 
READY 301144 
REANUL 886710 
RESREG @21114 
RETURN 894154 
RNOGOT 982608 
Re 5X9BB000 
Re 8x990002 
R4 8x000004 
SAVE B02234 
SCRATC 981122 
SKjPEQ =. 842478 
SKIPOL 921166 
SOPRAT 912728 
SPECME 087334 
SS2SAV = 990026 
STOAOQK 923074 
STONOS 0821396 
STOSVA 9823336 
STOVvCO = 21424 
STRGBT 812674 
SUBSTK 621450 
TAB ® 900011 
TABLES 8115962 
TABS 046258 
TERMIN 832554 
TPCN 087240 
TPNXT 887122 
22eMARG73 «= 15144 
TRANVA 6215944 
TRNPC 021642 
TRYNUM 921566 
TSYS2 042526 
T2 = p80068 
UANJMP = - 844498 
UAL 835520 
uagec 833720 
UAGTA 813772 
UAL? 44056 
YAa 013558 
UINTEG 342406 
UPPACK 923160 
UPPNER 923236 
VARNOS 9812156 
VERNUM 900040 
XCHAR 845278 
SIR 2 efeene 
SPPBSZ = gogn30 
SSYKS2 = gag200 
AYN = -® 908270 
1GOLON * 888268 
,OEF = =§ B88221 
+E 3 838245 
15 = 808204 
1 FN ® 900262 
GOTO #8 gag2g5 
rILIT2 8 889376 
»eEN = «8 088277 
1bPAR 2 999255 
NEXT ® 9802113 
POS = ® - BBO3G2 
yREAD 8 999222 
RNO = 908264 
SAVE ® 990319 
,SEML & 980236 
SOR ® 008267 
STOP = gpB214 
TERM = 989235 
UNARY & 288233 
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NoQuOoY 
Nosvss 
NOTKWO 
NOWRP 
NUMOIG 
NUMFLY 
NUMUMP 
NUMNOR 
NUMPRS 
ODEV 
OPERAN 
Ourese 
POL 
PoP 
PPE 
PPERR 
PRBEND 
PRECS 
PRIBOT 
PRILOO 
PRISEM 
PRNTOL 
PRY 
PUSHF 
Purcco 
QUNULL 
READ 
READOU 
READYS. 
REASRC 
RESTOR 
RETVAR 
RNOL 
ROSAVE 
R2SAVE 
R4SAVE 
SAVREG 
SETLFE 
SKIPHI 
Sk{Pa2 
SOPRX 
SQRFN 
STAR 
STOCOM 
sToP 
sTosx 
STOVTA 
STRGYJM 
SYMBOL, 
TABLES 
TABLS 
TBLIEN 
kB 
TPCO 
TPS 
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TRENGA 
TRYAGN 
TRYSVA 
TYPE 
v3 
UATSTA 
UALS 
VALG,5 
UAS78 
UA2a 
Vas 
UMENUS 
UPPBAD 
USRARE 
VARSAV 
VONESS 
SAOR 
SLPOSZ 
SPRBS2 
+ ABS 
eCALL 
COMMA 
1O0UM 
NEN 
1E0 
‘FOR 
167 

1 SNPUT 
wLET 
ht 
VNVAR 
+ POUND 
yREM 
VRNOL 
SCALA 
1SGN 
,SQU0T 
sSTR 

1 TEXT 
\UPARR 


842522 
8155208 
822200 
945234 
829300 
820106 
921619 
220340 
820058 
202076 
B11424 
024034 
eanee4 
046000 
477536 
007474 
823757 
842200 
9o5e72 
8054352 
085570 
885326 
oe0s4e 
942530 
029734 
8126356 
006396 
006522 
001140 
806546 
084056 
o22536 
Beg004 
ooo044 
o00050 
oogos4 
82072 
807276 
822234 
922104 
042776 
243236 
842436 
821316 
803302 
021442 
022412 
811706 
ooarue 
oo3010 
905406 
083000 
177562 
007254 
177504 


822130 
821644 
8223872 
0871442 
oaero2 
014150 
013630 
843732 
a14040 
014136 
013556 
011444 
O23212 
eeeeee 
ooaez2 
612122 
eegeee 
ooge4a 
290850 
8o0273 
oeg224 
oen24s 
000215 
089254 
0ag254 
pep203 
090253 
800287 
eo0210 
999252 
477776 
000261 
oog2ze 
pagzes 
477775 
200275 
900257 
200305 
280377 
000227 


NORM 
worolG 
NOTNOW 
NUBDICI 
NUMOTV 
MUMEMg 
NUMLPSL 
NUMOK 
NUMSON 
OPFTYP 
APRATO 
OuTs12 
POSIZE 
POWOWN 
PPBENO 
PRINT 
PRBFHO 
PREC 
PRICM 
PRIMOR 
PRISTR 
PRS 

PS 
PUSHL 
PUTCHA 
QuorTsy 
PEAORA 
REAONT 
READY? 
REENAB 
RETLNO 
REVRSE 
RND2 
RE 

a3 

a5 
SAVRG! 
SIN 
SKIPRT 
SKIPSS 
sp 
SORT 
START 
STOLNO 
STOSSN 
STOTXT 
STPRO 
STRGVA 
8, 0124 
TABLE? 
TABL 
TOL4EN 
KS 
TPHD 
TRAN 


TRNER4 
TRYECH 
TSTSTK 
TYPEY 
UAASR 
UATSTQ 
uUAi@A 
UAL2 
Uat79 
UA22 
tas 
UNARY 
UPPGOO 
vaL 
VARSRC 
vTWOSS 
sOVR 
SMLR 
SPRORG 
,AMPER 
 CHRE 
10S 
oouor 


817532 
Q23454 
812330 
O23302 
20216 
820362 
2284208 
820232 
B17736 
007212 
812166 
a10760 
8 830006 
087562 
8 024023 
007436 
6237146 
012252 
g05eo2 
905506 
on5e14 
= 177950 
8 1477776 
916072 
020706 
913162 
826934 
906614 
av1286 
815326 
222522 
014170 
= B89R66 
BxOO0oBs 
8%200a03 
3XO00905 
a2zime2 
Bs 206006 
221252 
921160 
axgaoea6 
Bs senses 
801102 
023950 
021366 
822232 
813192 
912669 
807036 
@12312 
921240 
@o2122 
® 177960 
= 980120 
@21912 


923900 
007366 
@12514 
007156 
914072 
014110 
813666 
@13750 
a14e2e 
814064 
813972 
212372 
823326 
823354 
@2232e 
a12134 
aeecee 
aneeee 
eaesen 
goez26 
20301 
220266 
BaB256 
800202 
389274 
ang246 
200286 
gag274 
000306 
200234 
GOOS12 
800212 
000217 
000237 
0203512 
809265 
aeg230 
477777 
B242 
eoasaa 


PF6 


777 


BASICL MACX11 vO2t 
AUN@TIME, 69 SECONDS 
GORE USED! 4K 

AQOINT 2228 22378 

AQDOVF 2248 22430 

ADDPOS 2243 22568 

ADOSTK 1559 22268 

AODZER 2244 22538 

ADSTK2 48340 ©4836 

ALLEXT 2327 2344 

ALLLOO 22818 2288 

ALLNOA 2282 2285" 

ALLOC 969 22730 

ALLOCL 938 94a4e 

ALLOC2 954 960" 

ALLSTR 2314 23268 

ALOG 60 3183 

AMATCH 4887 40988 

AMPWATL 3067 Toe3# 

ARGB 76 23698 

ARRAYS 69 * 3Lie 

ASSIGN 1079 1160" 

ASSSTR 1166 11758 

ATAN 68 3478 

ATNFN 2784 31788 

BEGIN 54018 

BEND 3558 = 3664 

BFSPEC 3598 2028 

SGETL 3568 = 3653 

BGET2 3578 3655 

au 2954 1235 

5319 53318 

8omM8 228 24008 

BOMBDO 2414 24478 

BOMBYM 2418 24388 

BOMBNE 2424 24288 

BOMBNX 2413" ©2416 

B8OMBOK 2427 24340 

BPOL 2737 27426 

BPUT 3588 3669 

BSTRT 3544 3666 

BUFCLR 649 659 

BUFEMP 3661 36788 

BYFTP 2025 24353 

CALL 1064 (e770 

CALLCK 11138 41152 

CALLML t4168 961124 

CALLM2 11278 = 1130 

CALLNM 4119 41128 

CALLX 1126 11320 

CALNRM 5178 518148 

CALOG 3379 33946 

CANFIT 5270 5276" 

CARRET 4976 49798 

CATCOM 3105 31368 

CAYLON 3101 31268 
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29704834 
4839 
23488 


4027 


3394 


342 2624 2626 2697 3234 


4573 
2830 2139 2143 2162 2182 3689 
4376 
45768 
4242 1667 4171 4409 4861 4898 


4571-45890 504 
4375 
2019 24478 


24768 


11468 


3693 


4893 


3695 


494g 


3724 


4983 


4624 


4993 


4623 


5263 


4626 


5293 


NS 


NO 


CATNOT 
CCEXIT 
CCMES 
CEXP 
CHKCHR 
CHKISE 
CHKOSE 
CLEAR 
CLMNLP 
CLMNPP 
CLMNTT 
CLRECH 
CLRFRE 
CLRLOO 
CLROK 
CLRSVA 
CLRVAR 
CNCFLG 
CNOFLG 
CODE 


COLONC 
COLUMN 


ComMCHK 
COMES 
COMTAB 
CONCAT 
cos 
COSFN 
GR 


CRLF ME 
OEPOUN 
OEFGOT 
DELMSG 
OEVERR 
DJMDON 
O}MGOT 
DIMLOO 
DIMNON 
OJMSCL 
OLvLOO 
DIVTEN 
ONPACK 
ONPBAD 
ONPGOO 
DNPIGN 
ONPLOO 
ONPNER 
OOALLO 
DOCHAR 
001 TNO 


DoNsG 
DOPYT 
OOTBAD 
OOTIGN 
OOTROT 
ECHOBA 
ECHOSP 
EDICHG 
EDICON 
EDYGRO 
EDT yMP 
ED IMME 
€0$M00 
EDMOV 
EOIMVU 
EDLOVE 
EQIPAS 
EOIPUT 
EOTRLC 
EDIRLO 
- EDIROO 
EDISAM 
EDISKI 
EDISRC 
cOIT 
EOUTL 
ENO 
ENDAB 
ENOCR 
ENDQUO 
ENDSQU 
EOF 
ERADD 
ERCHAN 
EREXP 
ERLOG 
ERPOR2 
ERPOLL 
ERR4WO 
ERRAGL 
ERRARA 
ERRARG 
ERROAT 
ERROEE 
ERROEF 
ERROIM 
ERROLV 
ERREXP 
ERRFNG 
ERRFPU 
ERRGO 
ERRMIX 
ERRMXY 


3096 
2498 
2293 
3382 
2885 
682 
898 
6438 
3648 
3638 
3228 
2067 
2682 
26818 
2604 
2698 
643 
3458 
3460 
314e 
4856 
1604 
73 
4294 
2536 
2997 
4877 
3065 
68 
2782 
2948 
4119 
2123 
92798 
924 
2198 
684 
925 
919 
9118 
912 
966 
26458 
26448 
26658 
26750 
2696 
2708 
26728 
2674 
948 
3931 
2915 


42998 
2829 
5302 
3292 
5289 
2988 
3448 
7328 
735548 
733 
824 
688 
7468 
7598 
8o5e" 
728 
7168 
706 
8238 
826 
796 
754 
703" 
696 
677# 
678 
12846 
33998 
4924 
4919 
4927 
1065 
2229 
2544 
31568 
23808 
30478 
31918 
1446 
3422 
2284 


4788 
1333 
9918 
930 
2989 
3254 
1084 


1326 
34014" 


30998 
2508 
24128 
33968 
24978 
{765 
1602 
865 
874 
873 
323 
209748 
26248 
2622 
26220 
26168 
68e 
346 
347 
315 


16068 
32.0 
4295 
25388 
21146 
4879 
30958 
3173 
31738 
657 
4a54 
roeS 4 | 
1089 
12008 
21098 
4622 
ieies 
9298 
928 
9168 
969" 
2651 
4346 
4028 
2694 
2738 
27248 
2676 
26838 
96a8 
39338 
2917 


4302 
2022 
3303" 
52938 
5292" 
21868 
345 
739 


7788 
8378 
693 
754 
764 
807 
7498 
722 
747 
836 
832 
ag2e 
777 
728 
699 
704 
682 
11828 
5402 
49328 
49248 
4930" 
11830 
31608 
2547 
3182 
3184 
3060 


14608 
3446 
2286 
2378 
1893 
133388 
100% 
935 
32760 
33408 
1118 
256 
13478 
{299 
3429 


2302 


3937 
25558 
253578 


1022 


$024 
654 


909 
652 
2023 
679 


322 
4296 


4818 


4863 


4927 


974 
975 


4453 
4205 
2098 
27058 


3944 
2922 


2024 
5328 


700" 


728 
74208 


a35e 
8168 
714 


7048 
837 


2558 
3418 


34848 
2294 
2373 
19258 


$005 
948 


1114 


4374 
3451 


2504 


1645 
4644 
872 


25968 

4033 

4293 
694 


654 
4298 


1186 


4920 


40568 


2702 


3944 
29378 


20268 


2062 


716 
886 


25568 


3495 
2299 
2375 


$007 
942 


4125 


2862 


2537 


fos 


1035 
4609 
867 


655 
4386 


1192 
4975 


2724 


1189 


3498 
2302 
23819 


938 


1134 


30868 


2518 


1698 


2018 
910 


1605 
4683 


1739 


2743 


3580 
2304 
3196 


956 


11454 


3188 


2342 


4843 


3900 
4034 


1632 


1690 


2745 


23524 


3484 


3227 


2515 


244 


4604 
1183 


1656 


1652 


963 


3444 


2547 


4295 


1747 


1674 


1661 


965 


3774 


25498 


1604 1944 


16968 1699 


2407 2436 


998 973 


478@ 4847 


3806 


1742 


2506 


ROH 


3943 


2404 


3946 


4382 


2405 


3993 


300 


ERRMX2 
ERRMXS 
ERRMX4 
ERRMXS 
ERRMX6 
ERRMX7 
ERRMXS 
ERRMX9 
ERRNEX 
ERROVY, 
ERROV2 
ERROVS 
ERROVR 
ERRPO2 
ERRPOS 
ERRPOS 
ERRPOS 
ERRPOL, 
ERRRET 
ERRRUN 
ERRSOV 
ERRSS4, 
ERRSS2 
ERRSSS 
ERRSTR 
ERRSXL 
ERRSX2 
ERASXS 
ERRSX4 
ERRSXS 


ERRSX6 
ERRSX7 
ERRSXS 
ERRSX9 
ERRSXA 
ERRSYN 
ERRTR7 
ERRTRS 
ERRTRN 
ERRYFN 
ERSQR 
ERSTAR 
ERSX18 
ERSX12 
EVAL 


EXECUT 


EXIT#2 
Exe 

EXPOIG 
EXPOUN 


EXPN 
EXPNEG 
EXPOK 
EXPTEN 
FACL 


Face 


FF 
FILLCH 
FILLCO 
FILLNO 
FIXCL2 
FIXRET 
FUxrst 
FIXUP 
FLE 
FUINE 
FIT 
FLX 
FNCHK 
FNFN 
FNNEWN 
FNNOCO 
FNNUME 
FNOLNN 
FNRCOM 
FNREPL 
FNRLUP. 
FNRSNU 
FNRSSC 
FNRSTR 
FNSTR 
FNSWAP 
FOR 
FORGO 
FORGOG 
FORGTL 
FORLOO 
FORLTL 
FORNEX 
FORNOL 
FORONE 
FORSKI 
FORZER 


28628 
37414 
1212 
13748 
4794 
4764 
32278 
31868 
1527 
7988 
798 
3i42e 
31610 
3947 
1286 
33988 
2952 
738 
1363 
40178 
42088 
3746 
2876 
2097 
3115 
1942 
1532 
3753 
2772 
885 
3768 
12868 
1252 
1767 
3204 
34048 


4965 
1805 
869 
1145 
25798 
2972 
1479 
2539 


2814 
875 
1923 
2132 
LT] 
5313 
5321 


2785 
5099 
3341 
3073 


2249 
2887 
3268 
3688 
4388 


2241 
2812 
3286 
3879 
4165 
2938 
3498 
68 
3488 
3587 
3584 
3579 
2227 
36084 
904 
2758 
3618 
3527 
2659 
3464 
3484 
3557 
3463 
3535 
3444 
35128 
3546 
35268 
3519 
3447 
34138 
1047 
1502 
1499 
15818 
1434 
1589 
1448 
1437 
14224 
14558 
1583 


2871 
3737 
1277 
1433 
46178 
47868 
3233 


1529 
799 
5032 
5166 
3289 
3144e 
1276 
3410 
29598 
1296 
1369 


4218 
3748 
2696 
4932 
31478 
1083 
1545 
3766 
26229 
1268 
4727 
1308 
12600 
1774 
3237 
3407 
981 
50768 
18838 
1883 
2777 
317 
34598 
15840 
25546 
1080 
2868 
1916 


2134 
3168 
5315 
5323 


318e8 
Sidse 
53440 
596" 
3234 
2258 
2899 
3302 
3882 
4394 
3240 
2246 
2864 
3386 
seas 
4393 
494 
338 
3478 
349 
35940 
3589 
35888 
35778 
so1ss 
4324 
26098 
36438 
$5528 
34058 
34700 
34948 
35658 
34678 
35458 
3466 
3553 
35548 
3538 
35368 
34440 
3483 
13868 
1506 
15420 


14368 
15050 
14698 
1443 

14320 
1458 

15078 


2885 
37718 
42998 
1423 


4538 


3042 
5a74 


3293 
12968 
3436 
3028 
2742 
43778 


3742 
2994 
4036 


4468 
12968 
37688 
2826 
1336 


1322 
1266 
1839 
3a4oe 
3509 
4146 


4947 
s2o2 


3278 


1463 
2682 
40558 


2256 
3396 
53188 
53308 


$102 

324 
2251 
2619 
3305 
3974, 
4399 

325 
2247 
2893 
3328 
3972 
4395 


2069 
348 
2071 


3995" 


36B3" 


3473 


15158 


14458 
1453 


4427 


1549 
50868 


3784 
20978 
4038 


4156 
1689 


2888 
4304 


1324 
1268 
48568 


3oaee 


4955 
3442 


1199 
3084 
3045 


2438 
3335 


272 

254 
2875 
3345 
3987 
4445 
4271 
2253 
2908 
3449 
3989 
4397 


2057 


34808 


1459 


1542 
5142 


2866 


37748 
2964 
40640 


1162 


2892 
1596 


1356@ 
1887 


4958 
34858 


{208 
3192 
1872 


22418 


1416 
2259 
2889 
3438 
3988 
4775 
1447 
2256 
2942 
3582 
3996 
4408 


2959 


T4721 


25878 


2959 


3774 


4170 


2999 
1856 


1360 
1922 


4963 


4274 
3238 
2472 


1448 
2268 
2941 
3580 
3993 


1419 
2257 
2959 
3747 
3995 
4443 


2071 


1477 


3144 


1179 


2554 
1393 


49698 


1408 
3444 
1178 


4487 
2263 
2955 
3586 
3997 


1489 
2374 
2965 
3763 
an4i 
4779 


3398 


1ee2 


2822 
{396 


4974 


£418 
3503 
1317 


41488 
2372 
2964 
3745 
4146 


1499 
2425 
2968 
3838 
4142 


t2m4 


30798 
1398 


5067 


4424 
3738 
1337 


1492 
2426 
2963 
S744 
4148 


4494 
2926 
2993 
3847 
4444 


3d22 
1409 


5141 


1497 
3734 
1371 


1549 
2431 
2907 
3816 
4149 


1550 
2429 
3223 
3897 
4145 


3334 
1423 


4626 
1511 


1561 
2432 
2994 


3848 


4162 


1568 
2542 
3257 
3858 
4150 


3069 


1431 


2569 
1578 


1982 
2433 
3222 
3848 
41467 


1583 
2874 
3259 
3871 
4451 


3242 


2938 


1744 


1823 
2543 
3285 
3859 
4168 


1624 
2625 
3265 
3873 
4161 


S44 


27368 
1844 


B07: 


2235 
2673 
S2Rt 
3675 
4169 


2239 
2611 
322 
5876 
4184 


ee 


FOUNOL 
FOUNDY 
FPPRES 
FPPSAV 
FRSTOU 
FUNCTI 
FUNCTY 
FUNOK 
FUNRET 
GCWAIT 
GETiBY 
GET2BY 
GETBYT 
GETCHS 
GETCHA 
GETVAR 
GETX 
GOEXEC 
GONOSA 
cose 
GOTECH 
Goro 
GOTOFN 
GOTONE 
GOTOOT 
GOTVAL, 
GSBCTR 
HORSTU 
HIFREE 
HISTR 
10EV 
iia 
1FCOMP 
IFLEND 
TELEQR 
TFLGTR 
TFLLTR 
TFLOOP 
TFNUME 
IFSEQ 
IFSGT 
IGNORE 
TqITs 
tRIt2 
ThITCO 
TMMED 
IMMSTM 
INT TBF 
INITSC 
INPEND 
INPEOL, 
INPGOO 
INPLOO 


INPNEW 
INPNGU 
INPNNU 
INPNUL 
INPOK 
INPPC 
INPRTR 
INPSTO 
INPSTR 
INPYT 
INPYOL 
INPYES 
INT 
INTL 
INTLA 
INTLB 
INT2 
INT2A 
INTS 
INT6 
INT7 
INTB 
INT9 
INTEXT 
INTFEN 
INTRTS 
IOINIT 
LOWAST 
ISLNO 
1SNUM 
ISVAR 
1TAB 
ITABLE 
ITSIN 
UMPROY 
KBCO 
KBHO 
KBIDUN 
KBINT 
KEYA 
KEYWOS 
LET 
LEVALT 
LEV2LT 
LEVFLT 
LEVFNE 
LEVLIT 
LEVPLY 
LEVPOS 
uF 
LIMIT 
LINA 
LINDUN 


5152 
5015 
2234 
2238 
4297 
3172 
3195 
3207 
3212 
3711 
2158 
2077 
3654 
36878 
36868 


36910 
1842 
1328 
1948 
2078 
1049 
27568 
3934 
2762 
30434 
32e0 
4088 
3120 
3378 
3418 
1958 
1238 
1232 
12488 
1283 
1264 
12298 
1200 
1239 
1261 
1032# 
2746 
2748 
2886 
702 
856 
2457 
642 
18388 
1769 
1833 
17708 


17798 
1828 
18728 
1868 
4778 
17698 
17768 
1826 
1794 
1252 
1762 
1748 
74 
38368 
3835 
3843 
3844 
38488 
3827 
3852 
3822 
3878 
3845 
4681 
2788 
3817 
6668 
3714 
5148 
4873 
4974 
3706 
2535 
4617 
1184 
2017 
3438 
2015 
234 
5168 
4648 
1852 
3989 
3984 
3962 
3994 
3976 
3974 
3992 
2928 


39234 
4388 


51758 
5Q238 
2978 
2973 
43030 
3474 
31978 
S2ig# 
32198 
37138 
2177 
2088 
36568 
3745 
3933 
1169 
3697 
16448 
13568 
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786 
1128 


1118 
1289 
1909 
2072 
2279 
2430 
2548 
2624 
sig4 
3216 
3345 
3497 
3552 
3816 
3925 
4428 
4229 
42v9 
4445 
4511 
4822 
4871 
4991 
4990 
5184 
5310 


694 

743 

866 

939 

972 
1199 
1273 
1429 
1469 
1489 
1537 
1579 
1687 
1785 
1886 
2139 
2307 
2344 
2749 


2891 ° 


3223 
3621 
3849 
3945 
4144 


4347 
4536 
4621 
4739 
4928 
4973 
5418 
5241 


762 

605 

a52 

917 
1028 
1115 
1229 
i3v2 
1497 
1539 
1793 
1945 
2315 
2339 
2477 
2686 
2797 
2857 
2938 
3356 
3136 
3445 
3445 
3467 
3528 
3595 
3689 
3752 
3938 
4064 
4132 
4224 
4506 
4708 
4809 
4934 
5043 
5284 


725 
787 
1123 


1149 
1292 
1973 
2994 
2283 
2431 
2549 
2638 
3126 
3218 
3392 
3499 
3678 
3849 
3936 
4499 
4230 
4384 
4449 
4542 
4823 
4476 
4952 
4993 
5263 
5312 


734 

748 

683 

944 

974 
1158 
1284 
1422 
1470 
149@ 
1539 
1580 
1692 
1789 
1889 
2443 
2378 
2345 
2743 
2898 
3236 
3633 
3828 
4982 
4445 


4405 
4546 
4623 
4741 
4930 
4977 
5122 
5245 


764 

506 

853 

918 
1237 
1118 
1242 
1393 
1458 
1544 
1815 
1966 
2347 
2340 
2478 
2687 
27614 
2641 
2939 
3972 
3138 
3448 
3447 
3468 
35308 
3633 
3694 
3787 
3932 
4362 
4434 
4222 
4511 
4763 
4813 
4935 
5298 
$258 


726 
788 
1424 


1245 
1293 
1979 
2095 
22A5 
2497 
2551 
2631 
3177 
3222 
3441 
3572 
yond 
3828 
3972 
41ta 
4231 
4397 
4454 
4915 
4876 
4878 
4954 
4995 
5265 
5344 


795 

752 

893 

944 

979 
1164 
L304 
44932 
1472 
15906 
1952 
4581 
1694 
4797 
4949 
2155 
2512 
2849 
2805 
2913 
35A6 
3659 
3829 
4QA3 
4148 


4410 
4947 
4626 
4744 
4972 
4979 
5122 
5299 


765 

812 

354 

920 
1639 
1127 
1248 
1594 
1476 
1673 
1818 
1974 
2313 
2543 
2479 
26a8 
2763 
2843 
2948 
3OR2 
3129 
3441 
3448 
3471 
3521 
3605 
3099 
3788 
3976 
saPs 
4154 
4225 
4995 
4772 
4844 
4937 
$171 
5292 


727 
793 
1129 


1217 
1323 
1984 
2176 
2290 
2499 
2622 
2682 
3113 
3276 
3443 
SoLt 
3623 
3824 
3977 
4129 
4232 
4ary 
4457 
4547 
4807 
4883 
4957 
So14 
5267 
5316 


797 

738 

9798 

945 
1072 
1169 
1323 
1432 
1474 
1529 
1952 
1999 
1695 
1799 
1924 
21462 
2318 
2470 
28279 
2955 
3589 
3662 
3838 
4134 
4149 


442th 
4546 
4685 
4747 
4933 
498g 
5128 
52n4 


757 

813 

855 

922 

24a 
1133 
1249 
1395 
1473 
1645 
1869 
2238 
2519 
2345 
2483 
2776 
2788 
2867 
2944 
3899 
314g 
3424 
3449 
3474 
3532 
3576 
3745 
3779 
4942 
475 
4155 
4334 
4527 
4774 
4815 
4938 
5272 
5542 


787 
a3 
1148 


12272 
1309 
1942 
2130 
2298 
2504 
2641 
2633 
312k 
S2"8 
3428 
3512 
36X2 
3823 
3994 
4437 
4233 
4409 
4469 
$522 


“46190 


4899 
4962 
5018 
S274 
2318 


709 

792 

903 

947 
1g¢2 
1175 
1327 
1436 
1478 
1942 
1553 
1674 
1697 
1628 
1952 
2174 
2319 
2476 
2612 
3922 
3475 
3644 
3831 
4176 
4150 


3/0 


3// 


R3SAVE 
Ra 


R4S5AVE 
RS 


READ 
READBA 
REAODU 
REAOGO 
READOU 
READOT 
REAOST 
READY 
REAQYO 
READY2 
REAFIN 
REANUL 
REASRC 
REENAB 
REMPAC 
RESREG 
RESTOR 
RETLNO 
RETRY 
RETURN 
RETVAR 
REVRSE 
RNOL 
RNOZ 
RNOCT 
RNOGOT 
HUN 
SAVCHA 
SAVE 
SAVREG 
SAVRGL 
SCANPN 
SCRATC 
SETLFE 
SIN 


1223 
1366 
1548 
1859 
1944 
1977 
2322 
2518 
2686 
2913 
3977 
3455 
3623 
3973 
4028 
4229 
4316 
4423 
4479 
4683 
4996 
5943 
5965 
5465 
S224 
9246 
3288 
2748 
1013 
2039 
2332 
3220 
3583 
4268 
4423 
4525 
4909 
5126 
3298 
2728 
694 
786 
867 
1833 
1335 
1458 
1496 
1583 
1774 
1892 
2063 
2241 
2383 


2426 
2682 
2693 
2875 
2993 
3382 
3449 
3634 
3809 
3879 
3987 
4448 
4245 
4399 
4625 
4852 
5145 
5238 
1062 
1899 
19138 
19808 
19248 
1904 
1984 
644 
650" 
6618 
1897 
1975 
1895 
3694 
4902 
46908 
1059 
5061" 
48848 
1055 
5p24 
3377 
78 
78 
3358 
923 
864 
77 
862 
3818 
2009 
bi 
64i8 
2087 
68 


1225 
1367 
1549 
1660 
1945 
4978 
2322 
2519 
2689 
2914 
3078 
3457 
3635 
3975 
4033 
4230 
4324 
4428 
4477 
4693 
4998 
5044 
3096 
5167 
5222 
5247 

329 

704 
1136 
2062 
2648 
3226 
3593 
4262 
4418 
4527 
4903 
5134 

338 

637 

694 

787 

e724 
1935 
1362 
1475 
1507 
15684 
4779 
1948 
2069 
2246 
2388 


2428 
2624 
2697 
2684 
2994 
3305 
3515 
3635 
3816 
388g 
3988 
4149 
4293 
4420 
4687 
4856 
5162 
5240 
18860 
1910 


“4988 


1949 
1954 
1926 
19870 
6518 
68B 
1926 
19458 
19858 
19448 
37298 
4956 


13168 
3176 
4685 
13598 
5054 
33850 
3338 
3340 
336 
9778 
909" 
4405 
a8gNw 
3922 
2955 
689 
864 
21038 
$a74 


1227 
4568 
1559 
4862 
41947 
1989 
2338 
2544 
2692 
2916 
3079 
3462 
3053 
3978 
4037 
4233 
4324 
4429 
4484 
4769 
5800 
5e45 
5104 
5470 
5223 
3263 
3248 

732 
4242 
2063 
2736 
3250 
3625 
4263 
4432 
45268 
4903 
5434 
3Q24 

638 

788 

788 

872 
1068 
1365 
4476 
4526 
4605 
1790 
4924 
2071 
2247 
2336 


2429 
2626 
2699 
2889 
3216 
3306 
3534 
3636 
3818 
3982 
3989 
4190 
4294 
4413 
4988 
4860 
5465 
5307 
4920 
1917 


19608 
897 
2201 


4758 
1957 


4967 


6394 
506" 
334 
335 
977 
anaane 

4371 


2126 
47438 


1229 
1379 
1653 
1865 
1948 
4984 
2332 
2545 
2692 
2918 
3088 
3467 
36355 
3979 
4041 
49235 
4334 
4432 
4482 
4794 
5ee2 
5346 
5408 
5472 
5226 
5209 
3394 

748 
1205 
2064 
2744 
3342 
3637 
4265 
4438 
4538 
4995 
5135 
3636 

639 

742 

795 

878 
1071 
1367 
1483 
1535 
$632 
4799 
4934 
2075 
2249 
2348 


2434 
2627 
2701 
2893 
3217 
3315 
3583 
3705 
3838 
3883 
3999 
4151 
4295 
4445 
4695 
4979 
5172 


19348 


986 
3985 


4969 


4894 


977 
2599 
3899 


4386 
2153 


£235 
1433 
4634 
802 
{95¢ 
{983 
2448 
2549 
2693 
2929 
3108 
3468 
3659 
3981 
4043 
4236 
4336 
4433 
4488 
480% 
5925 
$047 
$140 
S173 
5226 
5281 
3396 

746 
1269 
2066 
295% 
$326 
3863 
4268 
4449 
4607 
4907 
$136 


644 
726 
798 
948 

1157 

1394 

{464 

1543 
656 
ioe4 

[944 

2079 

2258 

2372 


2432 
2628 
2783 
2908 
3222 
3328 
3582 
3709 
3848 
3899 
3993 
4156 
4296 
4545 
4743 
4992 
5172 


1962 


{236 
5095 


49729 


978 


4625 


4545 
2172 


4329 
1444 
4662 
1694 
41953 
2985 
2430 
2645 
2695 
2931 
3ii2 
3469 
3660 
3983 
4046 
4237 
4338 
4437 
4493 
48e5 
3089 
5853 
53423 
5174 
5228 


3623 

755 
4798 
2068 
2973 
3359 
3884 
4349 
4442 
4641 
4999 
3452 


654 
738 
802 
915 

4141 

1399 

1485 

1549 

4674 

1807 

2009 

2226 

2254 

2376 


2433 
2629 
2803 
2941 
3223 
3357 
3588 
3731 
3847 
3908 
3995 
4161 
4298 
4546 
4760 
4996 
5205 


14967 


1196 


5075 


2598 


4601 
4680" 


1330 
1493 
4776 
1098 
1955 
2226 
245% 
2647 
2697 
2935 
saiy 
3472 
3662 
3986 
4054 
42462 
4340 
4439 
4535 
4846 
5016 
5054 
5444 
5477 
522¥ 


363> 

e1¢ 
4802 
2874 
2981 
3360 
3884 
4323 
444s 
4642 
49th 
5174 


652 

731 

805 

946 
459 
1400 
4486 
1550 
1698 
4815 
2018 
2453 
2255 
2403, 


2447 
2630 
2804 
2912 
3255 
3365 
3607 
3733 
3840 
3922 
3997 
4162 
4336 
4548 
4767 
5026 
5206 


2438 


4682" 


{334 
(532 
4777 
1898 
1968 
2236 
2452 
2649 
2699 
2935 
3123 
3475 
3663 
3987 
4093 
4259 
4349 
4444, 
4372 
4684 
3025 
5e55 
53145 
5183 
5230 


817 
1603 
2093 
2992 
3361 
3887 
4327 
4456 
4624 
4943 
$179 


653 
744 
8n6 
933 
£183 
1416 
4487 
1556 
1699 
{815 
2011 
2154 
2254 


2402 


2476 
2633 
2695 
2950 
3257 
3366 
3620 
3734 
3857 
3923 
4082 
4164 
43714 
4549 
4769 
5031, 
5207 


3992 


{332 
1333 
4822 
1998 
1964 
2242 
2477 
2652 
2704 
2954 
3124 
3477 
3664 
3988 
4294 
4262 
4354 
4443 
4572 
4082 
5e27 
5086 
5147 
5186 
5232 


g49 
1974 
2097 
2996 
3362 
4016 
4335 
4464 
4682 
4914 
5262 


654 

745 

676 

977 
1274 
1417 
1448 
1558 
i702 
1623 
2048 
2172 
2256 
2403 


2548 
2669 
2807 
2953 
3289 
3394 
3624 
3745 
3858 
3927 
4126 
4145 
4386 
aor, 
4775 
5g49 
S52it 


4676 


1334 
1534 
1825 
1921 
1963 
2252 
2479 
2607 
2783 
3023 
3125 
3505 
3666 
3989 
4095 
4264 
4359 
4455 
4573 
4854 
5028 
5097 
5149 
5187 
5234 


946 
1841 
2128 
3027 
3372 
4024 
4337 
4467 
4694 
4918 
5289 


635 

740 

816 

978 
1272 
1418 
1459 
1560 
1742 
1824 
2023 
2173 
2257 
2404 


2542 
2678 
2809 
2961 
3205 
3396 
3622 
3747 
3859 
3929 
4144 
4167 
4358 
4603 
4776 
5042 
5213 


1361 
1535 
1629 
1913 
1964 
2255 
2480 
2679 
2797 
3833 
3131 
3537 
3787 
3999 
4096 
4266 
4369 
4459 
4575 
4896 
5031 
5261 
5151 
5188 
5236 


952 
2312 
2133 
3959 
3374 
4026 
4339 
4492 
4875 
4926 


664 

768 

832 
1083 
1316 
1419 
1490 
4562 
1747 
1644 
2055 
2196 
2259 
2405 


2545 
2671 
2818 
2963 
3281 
3428 
3623 
3761 
3871 
3930 
4142 
4168 
4391 
4644 
47499 
5260 
5229 


1342 
1543 
1932 
1914 
1966 
2262 
2595 
2683 
2799 
3056 
3290 
3556 
37A9 
4047 
4223 
4267 
4361 
4463 
4576 
4893 
5033 
S062 
5153 
S2a3 
5238 


957 
2032 
2232 
3179 
3393 
4029 
4342 
4495 
4ang 
4937 


666 

778 

848 
1012 
1529 
1433 
1492 
1569 
4759 
1843 
2056 
2198 
2260 
2447 


2598 
2675 
2644 
2965 
32R2 
3425 
3604 
3763 
3873 
3943 
4144 
4169 
4393 
46°7 
4792 
SOS. 
5232 


1344 
1344 
1632 
1916 
1968 
2275 
2578 
2684 
2893 
3057 
3388 
3558 
3794 
4223 
4224 
4269 
4362 
4464 
4578 
4895 
5949 
3263 
S261 
5215 
5249 


959 
2034 
2276 
3205 
3409 
4095 
4359 
4519 
4882 
5176 


679 

772 

B49 
1013 
1531 
1444 
1494 
1572 
1763 
1859 
2057 
2235 
2261 
2423 


2599 
2677 
28612 
2967 
32R6 
3438 
3632 
3876 
3875 
3974 
4145 
4219 
4395 
4609 
4794 
5178 
5234 


1365 
1546 
1634 
1918 
1972 
2253 
2593 
2685 
2899 
3062 
3394 
3599 
3937 
4026 
4225 
4345 
4415 
4466 
4581 
4992 
242 
5064 
5162 
9222 
2243 


961 
2036 
2320 
Seu 
3435 
41209 
4363 
4523 
486 
124 


685 

778 

850 
1914 
13532 
1457 
1495 
1582 
1763 
1899 
2059 
2239 
2300 
2425 


2678 
2692 
2832 
2968 
3288 
$449 
$633 
3878 
3876 
3972 
4146 
4241 
4397 
4614 
4an9 
5144 
2236 


3/3 


See 


SINFN 2781 $2718 
SKJPOL 4729" 4934 4746 


SK}PQ2 47268 4738 4745 ° 
SKIPOS 47278 4733 
SKIPEO 783 718 835 927 {032 1435 1954 47308 4748 4742 4749 


SKIPHI 4734 47448 
SKIPRT 4736 47508 
SKIPTX 47478 4748 


SLASH 2945 29898 

SOPRAT 74 2627 3044 30640 3085 3098 3142 3561 

SOPRX 3975 3a8L8 

sp 2738 638 644 652 664 684 680 695 697 743 756 618 847 878 


1082 tate 41116 1117 1123 1132 1135 1136 1137 1141 1142 1143 1148 1149 
1159 1454 4205 4287 1214 4245 1246 1217 1218 1222 1233 1248 1244 1246 
1247 1262 4263 1269 1271 1272 1278 1280 13592 13463 1386 1529 1484 1482 
4492 1492 1494 1495 1496 1504 4509 1507 1542 15435 1514 4945 1516 1552 
1553 1554 1555 1556 {558 1560 4564 1562 1563 1504 1565 4977 4579 1589 
1584 1582 1583 1659 {768 4769 4776 1785 1789 1797 1798 1812 1812 1813 
1829 4831 1840 1863 {864 1865 1866 4867 1869 1873 1876 1978 1941 1913 
4952 4956 1968 1969 (9798 4971 4972 4973 1974 1977 4978 4979 1985 1986 
2198 2226 2237 2238 2273 2274 2288 2287 2229 23469 2350 2400 2472 2644 
2658 2653 2665 2666 2667 2668 2672 2673 2678 2679 2686 20A4 2687 2695 
27985 2786 2731 2744 2736 2738 2740 2744 2867 2861 2895 2902 2929 2938 
2959 2954 2953 2954 2988 2999 2993 2994 3027 3029 3038 3634 332 3235 
3937 3049 3e42 3043 3059 3961 3a62 3064 3068 3073 3071 3072 3073 3077 
3983 3e95 3097 3099 3122 3123 3404 3148 3129 32111 3112 3113 3114 3116 
3419 3128 3423 3126 3427 3435 3436 3472 3173 3479 3178 3180 3183 3229 
3218 32u1 Tez 32413 3214 3215 3217 3219 3228 3221 3245 3247 3249 $260 
3263 3309 33569 3373 3385 3386 3387 33868 3389 3398 3391 3392 3409 3413 
3420 3435 3437 3439 3444 3456 3457 3458 3464 3465 3478 347n 3496 39a. 
3507 3518 35141 3342 3543 3314 3529 3526 3578 3529 3548 35941 3554 3558 
3577 3578 3582 3599 3624 3636 3657 3667 3672 3646 3691 36098 3793 3879 
388g 3882 3863 3885 3886 3998 4815 4216 4017 4024 4928 4029 4930 4239 
4949 4a4y 4042 4044 4046 4047 4049 4050 4220 4228 4231 4237 4243 4259 
4268 4265 4267 4294 4298 4306 4344 4328 4325 4329 4342 4353 4355 4356 
4358 4359 4360 4384 4385 4479 4472 4472 4473 4474 4475 4476 4484 452¢ 
4549 4569 4582 4585 4602 4649 4626 4680 4oR, 4682 4683 46R4 4685 4696 
4687 4686 4089 4099 4694 4692 4693 4694 4695 48a1 4802 4875 4826 4831 
4833 48355 4837 4838 5079 5974 3137 5475 S20. 5202 52a3 S274 5278 Dang 
5214 $215 5216 5247 $219 5232 5242 5245 $249 $277 5278 5279 5288 D304 
5317 S324 5325 5326 $327 3328 5329 5330 5331 5332 S333 5334 5336 9338 


5339 59344 

SPARE 3308 

SPECME 20668 2094 2098 2101 2104 

SQRFN 2783031750 

SORT 683175 

SS4SAV 3178 34844064496 4834844490) 5840373303787 4767 4792 

SS2SAV 3ise 3191417) 48S £486) 1495) aS5G 4558 24889) 1872 3734 376347694794 
STAR 2944 «= 29728 

STARS 29799 = 2987 

STarT 66 209 o378 


STOAOK 5163 51678 
STOCOM 4774 4773 47758 


<i? 


STOLNO 5146 51556 
STomMc 4796 4a0as 
STONOS 4768 47726 
STOP 1056 12948 
STOSSN 4793 47970 
STOSTR 49188 © 4923 
STOSVA 1177 1872 4987 47898 


STosx 4811 4816 
STOTXT 49750 4978 
STOVAR 720 44724487) 4585) casa 942 a 7608 


sTovco 4804 4838 

STOVTA 4799 49058 

STPRO 76 3a34H = 3962 
STRGAR 2987's 38508 

STRGBT 3054 3054 3056" 
STRGUM 2836 26478 

STRGVA 2847 3e528 

SUBINT 4832 40350 

SVBSTK 1281 i496 1506 2969 - 48318 
SYMBOL 3078 308 

S$,0101 2929 20320 8 §=62033 
$0102 20368 2837 


Th 73 3308 334 4549 4868 4970 5060 
T2 75 3348 332 4546 4548 

T3 75 3328 333 1759 {763 1779 

TAB 2949 

TABL 4614 40348 

TAB2 4624 46520 

TABS 3924 39588 

TABLS 1695 16438 


TABLES 1041 10458 1046 1047 ig48 1049 1056 {052 1952 1993 1054 1055 1256 1097 
1258 1959 1260 4061 1262 4063 4264 1065 
TABLE? 29436 2944 2945 2946 2947 2948 2949 


TABLES 855 86o" 861 862 863 864 865 
TABLES 71 2774 27798 = =2784 2782 2783 2784 2785 2726 2788 
TBLIEN 1041 19658 

TBL4EN 855 865" 

TBLSEN 71 2774 28028 

TERMIN 2949 29578 

TK 2798 = 2913 

TKS 65 2788 §©62938 3718 

TPS 68 2818 = 2035 2072 

TPCN 2089 20918 

TPCO 2092 20958 

TPHO 3428 343 2079 2476 4634 

TPINT 236 2055" 

TPNXT 2058 20628 

TPS 28e8 2912 2082 4652 

TRAN 682 1810 4e52n 


TRANLY 4860" 4918 4929 4931 4950 4964 5140 
TRANVA 48618 4862 5968 

TRENBA 4943 4945 495." 

TRNER4 5433 5459 5a4ae 5485 


5 


TRNFN 
TRNPC 
TRYAGN 
TRYECH 
TRYKWO 
TRYNUM 
TRYSVA 
TSTS4 
TSYS2 
TSTSTK 
TYPE 
TYPEL 
UAL 
VALS 
UALBA 
VALO8 
vasec 
VAL8,5 
UAg2 
UAL? 
UAAT7A 
VAL78 
VAL70 
UALIF 
UAL? 
Uae 
VAG 
UA2S 
VAG 
UAS 
VAS 
UA9 
VAASR 
UAyne 
UANJMP 
VATSTS 
UATST2 
UAYSTA 
UINTEG 
UMEINUS 
UNARY 
UPARRO 
UPPACK 
UPPBAD 
UPPGOO 
UPPLOO 
UPPNER 
USRARE 
VAL 
VARBLE 
VARNOS 
VARSAV 
VARSRC 


VARSS 
vERNYM 
VONESS 
VTWOSS 
WIRET 
XCHAR 


4904 
4875 
48839 
2963 
4879 
4864 
5806 
29988 
2989 
2974 
26698 
2061 
3246 
3236 
32958 
3296 
3383 
3287 
3319 
3264 
3322 
33298 
3329 
3332 
3338 
3325 
33478 
3313 
32608 
3258 
32678 
3266 
3329 
3313 
33598 
3332 
3338 
3369# 
2962 
27488 
2947 
2943 
797 
S2iie 
5233 
52060 
5218 


7 
2744 
2842 

3168 
49968 


2834 
2288 
2878 
2896 
3901 
3698 
1998 
2338 
766 
1228 
1608 
2699 
3703 
4522 
5264 
5404 
4288 
391# 
435% 
4258 
3898 
436# 
4520 
4178 
75 
1919 
4230 
386e 
386" 
3828 
4154 
40a" 
4068 
4188 
3718 
3998 
75 
1686 
4735 
4134 
4268 
4534 
4198 
3726 
4078 
3738 
3748 
412" 
3754 
4548 
4558 
3768 
4298 


4940" 
4889 
4897 
2B75e 
4872 
48678 
5e168 
2995 
29928 
2982 
2083 
2878 
3248 
32868 
3304 
33020 
3305# 
3292 
33158 
33208 
33240 
3336 
33328 
33378 
33430 
33736 
3378 
33768 
3283 
32638 
$277 
32818 
33578 
3336 
3365 
33630 
33668 
3378 
29658 
2754 
29618 
32458 
5030 
5231 
5237 
5242 
52190 
637 
5073 
20300 
2844 
317 
500. 


2665" 


26988 
29018 
39030 
36988 
2048 
2350 
772 
1238 
1862 
2742 
3904 
4524 
5294 
5402" 
429 
392 
436 
426 
398 
437 
616 
418 
4040 
2879 
424 
389 
387 
383 
416 
409 
407 
4434 
372 
392 
3708 
1644 
4865 
4u4 
427 
2749 
420 
373 
408 
374 
375 
443 
376 
937 
939 
377 
430 


4s8z0 


2096 
48758 


29888 
R098 

20728 
32540 


3297 


3307 
3279 
3326 


3358 
3368 


5464 
5235 
52428 


2028 
5e59e 


29.38 


4399 
5810 


202 

2378 

773 
4245 
2925 
2776 
4025 
4526 
5311 


570 
481 
582 
504 
550 
584 


509 
405 
3489 
560 
548 
544 
596 
505 


004 
679 
374 
4608 
4933 
503 
566 
398, 
552 
524 
494 
534 
322 
50% 
320 
953 
955 
3538 
572 


2107 


3299 


3347 


33640 


32018 
3239 


2056 


4458 
5042 


2034 

2408 

776 
4259 
4946 
2802 
4945 
4532 
3319 


3064 
3116 


4608 
485 
3752 


1948 
928 
948 

1983 


705 

479 
1695 
4989 
1164 


4099 
Lo00 
4449 

493 
4327 
4251 
4341 


2745 
2747 


33898 


3364 


$241 


2154 


1476 
3047 


204 

2468 

780 
{286 
(965 
2996 
4657 
4855 
5363 


3066 


1766 
949 


2763 


719 
883 
4777 


£203 


4132 
2757 
1528 
1255 
54i2 
1287 


3979 
3983 


3367 


5244 


2475 


1543 
3099 


2058 

2538 

789 
4306 
2278 
3826 
4988 
4859 
53640 


9738 


4909 


823 
972 
1634 
1257 


4732 
4126 


1309 
4307 


5128 
4134 


5253, 


ase 


14790 


206 
254 
804 
1493 
2299 
3433 
4997 
4390 
5365 


$610 


4928 


878 
979 
1838 
4267 


5482 
4737 


29146 


4744 


2403 


1845 


2078 

2558 

812 
1547 
2306 
3202 
4176 
4912 
5376 


{672 


924 
(169 
4882 
4397 


4943 


$114 


3138 


3734, 


220% 

2588 

815 
1557 
2309 
3433 
4227 
4936 
53778 


1625 


1015 
1475 
4896 


1542 


4700 


2208 

733 

819 
1633 
2337 
3453 
4354 
494L 
5378 


1832 


1445 
1323 
1914 


2927 


4789 


221 
735 
622 
1643 
2615 
3524 
4357 
4984 
5393 


1636 


1958 
1359 
1921 


2929 


2220 

741 

666 
4657 
2625 
3596 
4504 
4994 
5394" 


1874 


3897 
1420 
2944 


3499 


223 

747 
L220 
1678 
2634 
3523 
4507 
5227 
5395 


1898 


4087 
1430 
3528 


2278 

763 
1224 
1804 
2646 
3569 
4509 
>2>0 
29399 


1916 


4116 
1478 
4ge5 


Se: 


SERyEC 
SLONGE 


SipBs2 
SMLR 

SNOLPT 
SNOPOW 
SNOPTP 
SNOSTR 


SPOLSH 
sPPgSz 
SPRBS2 
SPRORG 
SSaR 

SSTKSZ 


4050 
4348 
3778 
4418 
4278 
73 
4118 
3978 
4098 
3788 
sels 
4508 
3958 
4378 
4168 
3798 
3838 
3878 
3858 
3848 
3808 
4240 
4208 


3758 
4480 
4498 
3008 

3522 
4518 
4388 
3998 
4308 
4220 
3948 
4248 
4168 
3938 
4028 
Rive) 
44a8 
3020 

4183 
4348 
3908 
4560 
4038 
4018 
3968 
3928 
4398 

59 
58 


406 
435 
378 
448 
426 
aide 
412 
398 
4198 
379 
964 
454 
396 
438 
449 
38@ 
384 
308 
386 
385 
381 
422 
421 
4008 
3765 
44g 
458 
692 
3609 
452 
439 
400 
431 
423 
395 
425 
447 
394 
403 
382 
aaa 
4395 
4763 
434 
399 
1964 
404 
402 
397 
393 
440 
2232 
2984 


2229 
2994 
986 
i59 
255 
3348 
5280 
3394 
2976 
258 
216 
243 
444 
1647 
2614 
3049 
3756 
5026 
3863 
3377 
5364 
258 
3866 
84 


407 
580 
518 
606 
568 
4i5 
499 
407 
495 
528 
2317 
612 
465 
586 
5uL 
548 
598 
546 
$42 
608 
536 
556 
554 
402 


608 
ois 
743 
4011 
614 
588 
483 
574 
558 
47a 
562 
307 
469 
532 
902 
592 
1544 
4799 
576 
2738 
3023 
530 
526 
2748 
473 
596 


3341 


2972 
3251 

992 
4750 
2569 
3354 
5087 


3334 
2168 
2488 
2218 

578 
4928 
2656 
3146 
3778 
5236 


469 


853 


475 
2291 
2733 

497 
4447 


2755 
4599 

922 
4904 


2769 
477 


727 
4127 


4612 


2923 
4905 
4422 


4793 
5005 


3068 
4915 
4249 
4406 


2918 


2989 
3375 

995 
4733 
2852 
3486 
5099 


3334 
2461 


2147 

792 
4g49 

760 
3187 
4a49 
3049 


{201 


3128 
513 


2925 
1293 
4104 


3973 
{762 


545 


631 
4157 


1692 


2933 
2761 


1818 
5053 


4935 
1285 


2921 


3176 
3584 
1018 
1846 
2854 
3409 


3381 
2574 


2455 
1079 
£703 
2791 
3194 
4055 
5156 


4253 


934 


2931 
1343 
4739 


4705 


947 


ara 
4713 


4987 


2294 


4938 
1305 


2935 


3181 
3592 
4821 
4869 
3oa9 
3967 


2577 


2568 
1289 
4792 
2846 
3226 
4179 
5168 


4265 


10¢e 
3979 
4905 


so6y 
4772 


4921 


2545 


4972 
5116 


2939 


3184 


1339 
1926 
3015 
3936 


4642 


257 

1163 
1847 
2024 
3232 
4482 
5192 


1289 


2751 


2820 


4442 
4998 


4913 


2607 


3254 


1342 
4929 
3887 
4065 


4646 


2582 
1174 
1858 
2836 
3400 
4189 


2833 


2625 


1546 
3047 


4944 


2837 


1348 
1936 
3292 
4068 


5383 


2585 
12108 
1902 
2846 
3416 
aang 


3406 


2677 


2447 
5106 


4930 


2905 


13541 
1939 
3148 
4209 


3969 
1276 
1939 
2801 
3427 
4543 


3552 


2091 


2623 
5447 


3428 


1378 
2353 
3152 
4212 


4635 
1298 
2293 
2870 
3443 
4762 


3785 


3203 


2612 


3450 


1584 
2556 
31462 
4288 


4638 
1373 
2512 
26R4 
3917 
4779 


3236 


2644 


3518 


1464 
2382 
3165 
4057 


5353 
1422 
2326 
2904 
3534 
4783 


3494 


3432 


4956 


1464 
2385 
S268 
4663 


1412 
2362 
2997 
3555 
ogee 


SIF 


or 


886888868888 AAAAAAAAA SSSSSSSSSSSS YUIIVIVIY cececcccerce HHH HHH 
888888880888 AAAAAAAAA SSSSSSSSSSSS COU! cececccccece HAH HHH 
seseeeeeeese AAAAAAAAA SSSSSSSSSSSS TOQUTTiy ceccccceccce HHH HHH 
888 868 AMA AAA sss +3 8 ccc HHH HHH 
868 888 AAA AAA sss WW ccc HHH HHH 
688 BBB AAA AAA sss {1 ccc HHH HHH 
3Ba 888 AAA AAA sss Itt ccc HHH HHH 
888 B88 AAA AMA sss Mt ccc KHH HHH 
668 888 AAA AAA sss tl ccc HHH HAM 
88866888888R AAA AAA SSSSSSSSS tt ccc “HHHHHW HHH AHH 
88888b8e8888 AAA AAA Sssssssss Tit ccc HHH HHH HAH Hid 
8B8B8B88888B AAA AMA SSSSSSSSS M1 ccc HHHHHHHHHHHWHHH 
eee 888 AAAAAAAAAMAAAAA sss Il ccc HHH HEY 
B68 888 AAAAAAAAAAAAAAA sss M1 ccc HHH HHH 
ese 868 ARAAAAAAAMAAAAA sss M1 ccc HHH HHH 
BaB BBB AAA AAA sss MW ccc HHH 4H 
sea 688 AMA AAA sss Itt ccc HHH HHH 
388 888 AMA AAA sss Mt ccc HHH HHH 
888688888888 AAA AAA SSSSSSSSSSSS QILIYItr! ccccccccccce HHH HH 
88688b88R888 AAA AAA SSSSSSSSSSSS SSS 0508 ceccecccccce HHH He 
8888686888888 AAA AAA SSSSSSSSSSSS TILItgri! eccccccccece HHH HHH 
doooDDDODNND RRRRRRRRRRRR KKK KKK 

opo0000000000 RRRRRRRRRRARR KKK KKK 

obooo0D00000 RRRRRRRRRRRR KKK KKK 

000 op0 RRR RRR KKK KKK 

000 000 RRR RRR KKK KKK 

000 000 RRR RRR KKK KKK 

000 oo00 RRR RRR KKK KKK 

000 000 RRR RRR KKK KKK 

000 Doo RRR RAR KKK KKK 

000 ooo RRRRRRRRRRRR KKKKKKKKK 

000 000 RRRRRRRRRRRR KKKKKKKKK 

000 000 RRRRRRRRRRAR KKKKKKKKK 

ooo 000 RRR RRR KKK KKK 

000 000 RRR RRR KKK KKK 

000 000 RRR RRR KKK KKK 

000 900 RRR RRR KKK KKK 

000 000 RRR RRR KKK KKK a 

000 000 RRR RRR KKK KKK 

oopo00000000 RRR RRR KKK KKK 

O000D0000000 RRR RRR KKK KKK 

oooo0DDD0000 RRR RRR KKK KKK 
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888888888888 AAAAAAAAA SSSSSSSSSSSS VIIUQIII cccccccceecc HHH HHH 
888888888868 AAAAAAAAA SSSSSSSSSSSS YULUGLII ecccccccccce HHH HHH 
888888888888 AAAAAAAAA SSSSSSSSSSSS PSSS SSS: ecceccccccce HHH HHH 
888 888 AMA AAA sss Mt ccc HHH HHH 
888 bee AAA AAA sss ttt cce HHH lala] 
886 888 AAA AAA sss M1 ccc HHH HHH 
888 68 AAA AAA sss tt cce HHH HHH 
888 8BB8 AAA AAA sss Tit ccc HHH HHH 
686 888 AAA AAA sss Itt ccc HHH HHH 
8888888886888 AAA AAA SSSSSSSSS U1 ccc HHHHHHHHHHHW HA 
888888888888 AAA AAA SSSSSSSSS til ccc HHHWHHHW HHH HA 
8868888688888 AAA AAA sssssssss Wt ccc HHHHHWHHHHHR HAH 
388 888 AAAAMAAAAAAAAAA sss Wi ccc HHH HHH 
-I-J:} 888 AAAAAAAAAAAAAAA sss tr cce HHH HHH 
[-I-T:) 868 AMAAAAAAAAAAAAA sss 1 ccc HHH HHH 
BBB ses AAA AAA sss M1 ccc HHA HHH 
8e8 eB AAA AAA sss Mt ccc HHH Ha 
888 888 AAA AAA sss MW cec HHH HHH 
886688868888 AAA AAA SSSSSSSSSSSS YOQLTIILY ccccceccccccc HHH HHH 
888888868888 AAA AAA SSSSSSSSSSSS TULIGIUIY cccccccccece HHH HH 
886888888888 AAA AAA SSSSSSSSSSSS VILLTIrd! cccecceccecce HHH HHH 
oO00000000000 RRRRRRRRRRRR KKK KKK 

ooond00D00000 RRRARRRRRRRR KKK KKK 

oo0000D000000 RRRRRRRARRRRR KKK KKK 

000 000 RRR RRR KKK KKK 

ooo 000 RRR RRR KKK KKK 

000 ooo RRR RRR KKK KKK 

000 ooo RRR RRR KKK KKK 

000 000 RRR RRR KKK KKK 

000 000 RRR RRR KKK KKK 

ooo 000 RRRRRRRRARAR KKKKKKKKK 

000 000 RRRRRRRARRRR KKKKKKKKK 

000 opp RRRAARRRARAR KKKKKKKKK 

000 000 RRR RRR KKK KKK 

000 000 RRR = RRR KKK KKK 

ooo 000 RRR RRR KKK KKK 

000 000 RRR RRR KKK KKK 

ooo 000 RRR RRR KKK KKK 

000 000 RRR RRR KKK KKK 

obo0D0000000 RRR RRR KKK KKK 

obDD000000000 RRR RRR KKK KKK 

ObD000000000 RRR RRR KKK KKK 
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18 
aa 
12 
13 
14 
15 
16 
17 
18 
19 
28 
2y 
22 
23 
24 
25 
26 
27 
28 


MACX1L1 V@22 222MARe73 15145 


PAGE 1 
BASIC/PTS PARTSeBASICH 
OECeLieLprBAeA@LAs 
COPYRIGHT 1975 


OIGIYAL EQuIPMENY CorPORATION 
MAYNARO, MASSACHUSETTS 24754 


PAGE 2 


tTITLE BASICH VABLA EDL? B20 (REF) 01/31/73 
PASIC SOURCE FILE #15 


USER AREA AND ONCE*ONLY INIT, Cade, 
To BE LINKED LAST AFTER BASICL AND PpMpeti To FoRM 


BASIC, 


S23 


BASICH 


29 
38 
3a 
32 
33 
34 
35 
36 
37 
38 
39 
48 
4. 
42 
43 
“4 
45 
46 
47 
48 
49 
58 
54 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 


BASICH 


64 
65 
66 
67 
68 
69 
72 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
98 
91 
92 
93 
94 
95 
96 
97 
98 
99 
128 
101 
122 
128 
104 
135 
106 
127 
128 
109 
118 
411 
112 
113 
414 
215 
116 
117 
418 


MACKX22 


MACXAL 


20aag¢ 


aoaeoet 
820006! 
209010! 
300014! 


300016! 
aee2ot 
agaged! 
8eoe26! 
300039! 
800832! 
BoaaS4! 
8036! 
og0g4g! 
980042! 
000044! 
300046! 
20052! 
gpeg54! 
820056! 
gae62! 
800064! 
020086! 
200079 
800072! 
820074! 
880876! 
380108! 
o2e4a2! 
900104 
200106! 
3O0118¢ 
aeo112! 
aoe1i4s 
aee120¢ 
320124! 
000159° 
OO01540 


vo2t 


Y¥O22 


2oogce! 
980000 
200004 
Beeeve 
388083 
302004 
280005 
909096 
380007 
200048 


300000 


204737 
103452 
122127 
881045 


210500 
062708 
811023 
014082 
306363 
286102 
962902 
764083 
205502 
361802 
190082 
862702 
310340 
910240 
012709 
906303 
806122 
183422 
205300 
280773 
185923 
130223 
280393 
195002 
150022 
280392 
206032 
286803 
210255 
910365 
908137 
300137 
0001387 


22emMARe73 


22eMARe73 


2090086 


0000006 


82008006 


100008 


O9920 


2900086 
ogageeG 
2902006 
2o90ee6 
9909006 
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U 
§ GLOBALS 


' 
1GL08L 
1GLO8L 
1GL08L 
1GLOBL 
GLOBL 
1GLOBL 
GhOBL 
1GLOBL 
»GLOBL 
1GLOBL 
+GLOBL 
1GL08L 
+GLORL 


TP8, YKS 
START, FILLCO 

USRAREA 

LIMIT, POL, ARRAYS, POSIZE 
TABLES, TBLSEND 

COLUMN, FACL, FAC2, ,RPAR 
ERRMIX, ERRPOL, ERRSYN, ERRARG 
EVAL, INT, MAKEST, OPRATO, SOPRAY 
sGOMMA, Ti, T2, 73 

ARGB, SAVGWAR, NUMSGM, STPRO 
NORM, VAL 

RND1, RNDZ 

SSYKSé , IF PMP 


' 
} ASSEMBLY PARAMETERS 
i 


 UFNOF 
STPBSZ 28 
+ENDC 


' 
TFNOF 

SKBBSZ 820 
,ENOC 


1 
, TFNOF 


SULNSP 21228 
+ENOC 


15145 = =PAGE 4 


+CSecY 
RO 8x0 
RL ext 
Re 8x2 
RS axS 
r4 ax4 
R5 ax5 
SP 8x6 
PC "x7 
BL 840 


USRAREA?, WORD 
BASICH) 


STpBS# ITELEPRINTER BUFFER gl2e 
ICHARACTERS 


SKBBSé KEYBOARD BYFF, SIZE 
SCHARACTERS 


SYLNSP JUSER LINE SPACE 
BYTES 


JRND FUNCTION e= GENERATE RANOOM NUMAER 
SCAN PAST ARG [F PRESENT 


H 
RNOLFN} JSR 
acs 
CMPB 
BNE 
RNOFNI 
RNOFN2) MOV 
ado 
MoV 
MOV 
ASL 
ROL 
400 
400 
aoc 
aod 
BPL 
A00 
RPLUSE MOV 
MOV 
MOV 
RNORM} ASL, 
ROL 
acs 
dee 
aR 
REXP! © CLRB 
8188 
Swaa 
CLRB 
8188 
SWAB 
ROR 
ROR 
“ov 
MOV 
uMP 
ERRNOS}| JMP 
ERRNDA| JUMP 
RNOFNE} 


PC, @WEVAL 
ERRNDA 
(R41) 4) @,RPAR 
ERRNOS 


R5,RO 
#RND2, RB 
ORO, RS 
(RB ERZ 
RS 


Re 

(RB) OpR2 INOW BY 3 

ORO RS 

R2 

@R|,R2 INOW BY Zeetees 
RPLUS 

#420000 ,R2 IGET 2093246 


IMULT BY 2 


RS, ORO SSTORE NEW GENERATORS 


R2, 06RD) 
#204,K0 PINTTIAL EXPONENT 
oe JFLOAT RESULT 


REXP SJUMP WHEN LEADING BIT FoUNU 
RO HAQJUST EXPONENT FOR SWIFT 


RNORM 
RS 
RB RS 
RS 


R2 


RB,R2 VINSER? EXPONENT INTO RESULT 


R2 

RE 

RS FINSERT * SGN 
R2,FACACRS) 

R3,FAGZ(RS) 

@#OPRATOR 

@RERRSYN 

OSERRARG 


3274 


B2S- 


‘. eee 


BASICH 


119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
132 
132 
433 
434 
135 
136 
437 
138 
139 
148 


BASICH 


144 
142 
143 
144 
445 
146 
147 
148 
149 
150 
154 
152 
153 
154 
155 
156 
157 
156 
i159 
160 
161 
162 


MACKAY 


6901494 
898244! 
800146) 
980152! 
990154! 
800160! 
000162! 
oon164s 
808172! 
ape174! 
ege2ea! 
eee2o2! 
eeo2ae! 
oge2ig! 
ooe2i6/ 
go0222! 
opo226 
eoo232! 


MACXi1 


080236! 
aep242! 
080244! 
oeo25e! 
800252 
oo0254 
e0260! 
BOn262! 
080266! 
280279! 
8eo272! 
ooo274! 
880276! 
O0B30g¢ 
O00304/ 
208310! 
900314! 
800320 


Veas 


004737 
103436 
122127 
081927 
005765 
081425 
180017 
042765 
880433 
905765 
100820 
689465 
192905 
212765 
985065 
800137 
080137 
00137 


veer 


804737 
103424 
122127 
884023 
085008 
905765 
081003 
005765 
001416 
100002 
085308 
800421 
o5208 
812965 
805065 
8801357 
200137 
980137 


yagS FUNCTION ROUTINE 


PG, OSEVAL 
ERABSA 

(RL) 6,8, RPAR 
ERaeSS 

FACL(RS) 

ABSENT 

agsx 

#LOOBRH, FAELCRS) 
ABSX 


FACZ(RS) 

ABSXx 

FACR(RS) 

ABSx 
944908, F AGG(RS) 
FAC2(HS) 
PROPRATOR 
@#ERRARG 
@BERASYN 


ISGN PUNCTION ROUTINE 


22eMARe7S «15145 = PAGE 5S 
o00900G ABSFNi SR 
acs 
2908006 CMPB 
BNE 
9890086 rs? 
sea 
BP. 
108008 sgo008aG aie 
8 
QeogeeG ABSINT! TST 
BP, 
oeoeseeG NEG 
ave 
944988 o98008G MOV 
9998086 Cur 
9808006 ABSX! dMP 
098006 ERABSAS JMP 
8800086 ERaBSS} JMP 
ABSFNE} 
22eMARe7S 45145 PAGE 6 
oogesac SGNFNI ys 
cs 
0000006 CMPB 
BNE 
CLR 
9800006 rst 
BNE 
seeoons TS? 
SEG 
SGNFLT} 8PL 
OE 
BR 
SGNPOS} INC 
@88G0RG MOV 
08d000G CLR 
2689086 SGNX1 JMP 
8809086 ERSGNA! JMP 
8800086 ERSGNS} JMP 
SGNFNE} 


PC, OREVAL 
ERSGNA 
(RA), 8, RPAR 
ERSGNS 

Re 


FACLCKS) 
SGNFLT 
FAC2(KB) 


RB FAGZCRD) 
FAC(KS) 
@ROPRATOR 
O#ERRARG 
@#ERASYN 


Gaeé 


327 


BASICH 


163 
164 
165 
166 
167 
168 
169 
178 
172 
172 
173 
174 
175 
176 
477 
178 
179 
188 
181 
182 
183 
184 
185 
186 
187 
188 
189 
198 
191 
192 


BASICH 


193 
194 
295 
196 
197 
198 
199 
2008 
201 
202 
203 
204 
2a5 
206 
207 
208 
209 


MACXIL 


ao9524! 
880350! 
3083545 
88336! 
200349! 
300344! 
898359! 
898352! 
808356! 
690360! 
OBD364! 
089366! 
898379! 
080372! 
800374! 
B0O376¢ 
o004e0! 
O90404s 
990406! 
oea4ig! 
899412! 
OO04168 
000422! 
880424! 
080426! 
880432! 


MACX11 


880436! 
o00442! 
000444) 
30045¢! 
Oo0452! 
800456! 
880462! 
ooe4e4l 
000466! 
300479! 
9004741 
920500 
300504! 


veer 


904737 
122127 
804836 
985846 
116526 
021627 
183483 
162716 
880772 
167526 
1eeo0s 
085916 
081922 
283316 
880416 
810502 
084737 
011608 
905822 
151002 
862708 
112720 
885302 
883374 
980137 
090137 


vo2a 


064737 
183046 
122427 
oe1915 
905065 
085065 
#12602 
905202 
281402 
114265 
900137 
200137 
200137 


22aMARa73 


e9ap08G 
9880206 


seopeec 
ooe210 
oae110 
2a000RG 


298005 
990040 


8900006 
B0000RG 


22eMARe73 


0000086 
0890086 


8000006 
8820006 


9880086 
O90R006 
9e09006 
0000206 


15145 = =PAGE 7 


ITAB FUNCTION ROUTINE 


TABFNE are 


BNE 
CLR 
MOVB 
TABB! = GMP 
BLO 
SUB 
BR 
Tasct © SUB 
BPL 
CLR 
BNE 
bec 
BR 
TABNON| MOV 
JSR 
MOV 
CLR 
81S 
aoo 
MOV 
oec 
8GT 
TABNULL 1 UMP 
ERTABS) UMP 
TABFNE| 


15145 PAGE 8 


) LEN PUNCTION 
LENFNY JSR 
gcc 
CMPa 
BNE 
CLR 
CLR 
MOV 
INC 
BEG 
MOVB 
JMP 
ERLENAI JMP 
ERLENSt UMP 
LENFNEt 


PG, @AARGB 
(RE), a, RPAR 
ERTABS 

*(SP) 
FAC2(R5), (SP) 
(SP),#72, 
TABC 

#72, ,$SP) 
TAGE 
@COLUMN( RS), (SP) 
164 

($P) 

TABNON 


PC, @#MAKESIR 
(SP), RO 
RZ 


(RB), R2 
#5,RO 
BL, (KB) 
R2 


78d 
O#SOPKATR 
@BERRSYN 


ROUTINE 

PC, OWEVAL 
ERLENA ' 
(R4) op 8, RPAR 
ERLENS 
FACACKS) 
FAC2(R5) 
(SP) o,R2 

R2 

106 
(R27 ,F AC2(R5) 
OROPRATOR 
@RERRARG 
@WERRSYN 


ce a 


B27 


“ae De 


BASICH 


210 
212 
212 
213 
214 
215 
216 
247 
2168 
219 
228 
222 
222 
223 
224 
225 
226 
227 
226 
229 
238 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
244 
242 


BASICH 


243 
264 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
268 
261 
262 
263 
264 
265 
266 
267 
268 
269 
2708 
e7a 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
299 
291 
292 
293 
294 
295 
296 
297 


MACXLL 


ooe5i9/ 
ooosi4at 
090516! 
9ees22¢ 
880524! 
898526! 
098532! 
880554! 
990549! 
800542! 
800546! 
088552! 
ORO56g4 
080564! 
890579° 


888574! 
8B0609" 
oeg6a4) 
080606) 
800614! 
890629! 
988622¢ 
980626! 
820630! 
898636! 
380642" 


MACXL2 


880646! 
080652! 
B80654' 
900668! 
808662! 
908666! 
800679! 
889674! 
BBB676! 
980722¢ 
8087048 
680719! 
380714! 
080716! 
880729! 
O80724) 
288726! 
800752! 
868734! 


BBa74Q98 
8007464 
980759! 
900752! 


8907540 
890756! 


2007628 
600766! 


2090779" 
8807720 
820774+ 
0887764 


281909! 
381902! 
801206! 
981018! 
884014! 
881020! 
681922! 


881226! 
8812308 
301834! 
501049! 
0819426 
801044 


3812504 
201052! 
001054! 


veer 


884737 
193823 
122127 
081922 
942602 
329227 
Betas 
124227 
204011 
805865 
205965 
116265 
900137 
880137 
900137 


004737 
122127 
081016 
142765 
812746 
910502 
904737 
011600 
116560 
990137 
000137 


vo2L 


804737 
183133 
122127 
304132 
904737 
103125 
122127 
881124 
004737 
193517 
994737 
122127 
84114 
285998 
805765 
784877 
905765 
893474 
156508 


226627 
901002 
285006 
080464 


205002 
157602 


021627 
381004 


820022 
OB3454 
619200 
880452 


385903 
157603 
461603 
262703 
810365 
942683 
462703 


964602 
262702 
819265 
012602 
860202 
362792 


121322 
281406 
085200 


22eMARe73S 15145 PACE 9 

y ASC FUNCTION ROUTINE 

090908¢ ASCFNI 338 PG, OeEVAL 

ce ERASCA 
oeaeeeG CMPB (RE) 0,8, RPAR 

ONE ERaSCcy 

MOV (SP)e,R2 
177777 cmp R2,0477777 

8EO ERASCA 
CTT TTF cure (R2), 84 

BNE ERASCA 
8ogoeeG CLR FAGA(NS) 
000006 CLR FACZ(KS) 
890883 so0Bee6 MOVB 34R2) FACZERS) 
2808086 MP @BOPRATOR 
990800 ERASCA JMP @BERRARG 
egogogG ERASCS| UMP OWERRSYN 

ASCFNE} 

» CHRS FUNCTION ROUTINE 
egeeeeG CHASFNY JSR PG, OMARGB 
Ba080R6 cure (RY) Oy 8, RPAR 

8Ne ERCHRS 
090208 eoeeenG 81¢8 6200, FAC2(R5) 
CITT TEY MOV #4,0(8P) 

MOV R5,R2 
8000086 JsA PC, @AMAKESER 

MoV (SP), Ko 
Oo0e08G BORED MOVE FACQ(KS) ,3(RO) 
9000086 ump OWSOPRATR 
ageveac ERGHRS} JMP @RERRSYN 

CHRFNEI 
22eMARO7S «15445 = PAGE 19 

} POS FUNCTION ROUTINE . 
0800006 POSFNI SR PG, OREVAL 

acc ERPOSA 
Ge0R0RG CMPB (RL) 6) 8, COMMA 
BNE ERPOSS 
000006 JSR PC, @WEVAL 
Bcc ERPOSA 
8ooveaG CMPB CRO) oe, COMMA 
BNE ERPOSS 
0890006 JSR PC, OWEVAL 
acs ERPOSA 
0880906 SR PCG, OWINT 
8eneR0G CMPB (RL) 0,8, RPAR 
BNE ERPOSS 
CLR Ro 
oengegs TST FACL(KS) 
: BNE POSF 
2000806 TST FAC2(HS) 
BLE POSF 
8900006 81sB FAG2CRE) RS 

HCHECK NULL XS 

Beeee2 177777 CMP 2(SP) 48477777 
BNE POSx 
CLR Ro 
BR POSF 

ICOMPUTE LENGTH OF xs 

POSX! CLR RZ 
o90e02 8386 2 (SP),R2 

ICHECK NULL YS 
177777 CMP CP) 04777797 

BNE Posy 
NULL YS) ANS 3S MINCNPLENCXS)) 
cup RB, Re 
BLE POsr 
MOV R23, RO 
eR Posr 

JSAVE ADOR OF END OF YS IN To 

POSY} CLR RS 
oeenne BySB O(SP),RS 

aco (9P), 83 
0p0R83 ano #3,R3 
8898006 MOV RS, T2GRS) 

MOV (SP) o,R3 
TTT aod a3,R3 

SSAVE AOOR OF ENO OF XS IN Ty 

aoo (SP), R2 
BOIR03 ano 83,2 
880006 MOV R2,72¢R5) 

MOV (SP) O,R2 

400 RO,R2 
egoeve ado a2 


aR2 
IFIND MATCHING FIRST GHARACTER 
POSFST) CMPa CRS), (R206 
BEQ POSREM 
POSTRYI INC RQ 


STAKE CHAR MOO 128 


RAIS N 


GASICH 


298 
299 
300 
304 
302 
383 
304 
305 
306 
337 
308 
309 
312 
34a 
342 
345 
314 
315 
316 
347 
318 
319 
329 
323 
322 
325 
324 


BASICH 


325 
326 
327 
328 
329 
330 
334 
332 
333 
334 
335 
336 
337 
338 
339 
349 
344 
342 
343 
344 
345 
346 
347 
348 
349 
350 
354 
352 
353 
354 
355 
356 
357 
358 
359 
3oo 
3oa 
362 
363 
364 
365 
366 
367 
368 
369 
370 
374 
372 
373 
374 
375 
376 
377 
378 
379 


MACX11 


901956! 
801062! 
991064! 
801066! 


801079! 
aore72! 
301074! 
201976! 
304192 
01104! 
804119! 
81112! 
aoiii4/ 
001116! 
81129! 
081122! 


O81124! 
983126! 
884132! 
OB41356! 
001142! 
881146! 


MACXL1 


001152! 
981156! 
801160! 
OB1164! 
881166! 
801472! 
681174! 
ae12ee! 
001204! 
881210! 
aor2i4! 
OB1L216¢ 
ao12228 
901224! 
881238! 
801254! 


4256! 
801249! 
ao124e2! 
9812446 
981246! 
881259! 
ab1252¢ 


801256! 
301269! 
O81264! 


ogr27B¢ 
901274! 
001276! 
3813208 
BO1302¢ 
BO13504! 
1318! 


O813ie! 
OB1314! 
881316! 
681320! 
8813522! 


OB1324+ 
801326! 


B9L338+ 
881332! 
BOL554+ 
BO1336! 


a81342¢ 
8013440 
OB1346! 


Voet 


520265 
604372 
493020 
880417 


210246 
48346 
285283 
320365 
081419 
220265 
204422 
122223 
201779 
942693 
242682 
268754 


822626 
310065 
085965 
090137 
000157 
300137 


vees 


884737 
183144 
122127 
04143 
004737 
193586 
904737 
916546 
316546 
122127 
904877 
904737 
193472 
904737 
122127 
304867 


912692 
342626 
100483 
904055 
305722 
803802 
12782 


305000 
824627 
157600 


905765 
100444 
284402 
910803 
880403 
816503 
283433 


329003 
104001 
310003 
328203 
101026 


160203 
205223 


210246 
210522 
219346 
904737 


842602 
042608 
BOL68 


22eMARo73 


8080086 


O8B0006 
OO8202RG 


oponeeG 
geeeaeG 
0900206 
99a220G 
agaze06 


22aMAR®73 


ag0000q 
oaggeeG 
8900086 
ogoweaG 
ag00e0G 
aga0006 
89Q0006 
2900086 


8g88206 
8808006 


809824 


477777 
ooaeee 


89o000G 


egeeues 


2000006 


15145 = PAGE Beg 


cme 
Bye 
CLR 
BR 


Ras 74 188) 
eget 
posre 


ICWECK THAY REMAINING GHARS MATCH 


POSREM} MOV 
MOV 
INC 

POSNXT} CMP 
BEo 
CMP 
geo 
CMPS 
B&Q 

POSNO! MOV 
MOV 
BR 


RZ, 0(SP) 
R3,0(SP) 
RS 

RS, T2(RS) 
POsr 
ROsTLGRS) 
POSNO 
(RZ) eg (RS) e 
POSNXT 
CSP) 4, RS 
(GP) o,R2 
posrry 


JRETURN FROM FUNCTION 


POSFi CMP 
POSF2y MOV 
CUR 
JMP 


ERPOSAE UMP 
ERPOSS) UMP 
POSFNE| 


15145 PAGE 1% 


(SP)4,(SP)e 
RB, FAGZCRD) 
FACA(KS) 
@#OPRATOR 
@RERRARG 
ONERRSYN 


} SEG PUNGTION ROY? INE 


SEGFNi JSR PC, OMEVAL 
ace ERSEGA 
CMPB (RO) 4,8, COMMA 
BNE ERSEGS 
JSR PO, OOLVAL 
acs ERSEGA 
usr PG, @MINT 
MOV FAGL(RS),0(SP) 
MoV FACZ2(K5),e(SP) 
cure CR4) oH, COMMA 
BNE ERSEOS 
Jgr PG, @NEVAL 
acs ERSEGA 
ysr PG, O8jNT 
MPs (R4) oy 8, RPAR 
BNE ERSEGS 
IGET X VALVE JN RZ 
MOV (SP) o,R2 
MOV (9P) 4) RB 
emt SECXO 
ONE SEGNUL 
vst R2 
BGT SEG, 
SEGXBE MOV #4 ,R2 
COMPUTE LENGTH OF AS IN RO 
SEGLI CLR RO 
cMP (SP), 6477777 HCHECK NULL STRING 
B1SB CSP) RO 
jGET Y VALUE IN RS 
seoTy, 1ST FACS(H5) 
BM SEGNUL 
BEO secrye 
MOV RB,RS 
BR SEGRNG 
SEGTY2] MOV FACA(KS) RS 
BLE SEGNUL 
JCHECK BCeR2CsRICIRG 
SEGRNG! CMP RB,RS 
BHT SEGRe 
MOV RB,RS 
SEGR2t CMP RE RS 
BH SEGNUL 
ICOMPUTE LENGTH OF OUTPUT STRING 
§u8 RZ, RI 
ING Ry 
IMAKE NEW STRING QF THE CORRECT LENGTH 
MOV R2,0(9P) jSAVE START CHAR 
MQV R5,R2 
MOV AS, 0(3P) 
vSR PG, @aMAKESYR 
IFEX SYACK AND MOVE IN CHARS FROM O40 STRING 
Mov (SP) a) R2 JNEW STRING POINTER 
MoV (SP)o, RO JSTART CHAR 
400 CSP), RO 1AO0 OLD STR POINTER 


eee 


333 


et 


BASICH MACX11 ve2t 22mMARC7S 15145 = =PAGE 1404 


388 881358! 210216 MOV R2,(SP) SAVE NEW STRING 

381 001352! 205003 CLR as 

382 8013544 154243 8tSB (RZ) ANS pR3 1S NEW STRING LENGTH 
383 301356" 762702 Bg0005 400 #3,R2 yADOP FIRST CHAR JN NEW STR 
384 8813562! 062709 s90082 400 82,R0 PADOR START CHAR IN OL9 &TR 
385 901366 112922 SEGLP} MOVE (RO) Op (RZ) 6 SFYLL IN NEW STRING 

386 881370! 2053083 ogc RS 

387 081372! 3891375 BNE SEGUP 

388 881374! 709137 2000086 vMP @RSTPRO 

389 VOUTPUT NULL STRING 

399 901400" 012716 177777 SEGNULI MOV 477777, (SP) 

391 881404! 890157 AB0808G SEGX) UMP ORSOPKATR 

392 901410! 799137 B9BB0R6 ERSEGA JMP @RERRARG 

393 001414! 080137 B0900006 ERSEGS} yMP @HERRSYN 

394 SEGFNEY 

395 

396 


337 


BASICH MACX11 yO2i  22eMAR@7S 15145 PAGE 42 


397 1 VAL FUNCTION ROUTING 

398 081429! 994737 Bpeeddc VALFNE = ySR PG, @WEVAL 

399 381424! 103956 gcc ERVALA 

408 901426! 122127 saege0G cMPB (RL) 0) #8, RPAR 

401 081432! apdo5s 8NE ERVALS 

402 JREAD STRING 

403 001434! B11600 MOV (SP), KO 

404 001436! 620927 177777 CMP RO, #477777 ICHECK NULL STRING 
405 901442! aos906 BNE VALR : 
406 081444! 995965 segeues CLR FACS(RS) 

487 901458! 905965 oap80808 GR PACQCRS) 

408 391454! 905726 TST CSP)e 

409 991456! 990435 BR VALS 

410 «201460! sosave VALRE CLR RZ 

411 904462! 154902 ese (RO), K2 

412 081464 319216 MOV R2,(5#) 

413 901466" 262799 agooes 400 a3,RO 

414 991472! seag02 aoo RO,RZ 

415° 001474! 195912 CURB (Re) 

416 881476/ 010446 MOV R4,9(SP) 

417 301500! 010146 MOV Riyet9P) 

418 094502! 710246 MQV RZ, 0($P) 

419 PREAOD ASCIY NUMBER ANO EXPONENT 
420 081504! 984737 seD000G - JSR PC, eevAL 

424 INORMALIZE TO FORM FLT PT NUMBER 
422 001510 294737 se0ve06 uSR PG, @#NORM 

423 801514' 219365 sgo0006 MOV RS FAGLCRS) 

424 9091528" 219465 segg026 MOV R4FACZ(R5) 

425 JCMECK ENO OF STRING 

426 081524/ 105719 VALCEL =TS8 (RO) 

427 881526! 394403 BEG VALX 

428 981538! 122927 ogne4e Cups (RO) oe, #8, 

429° 9091534) 904773 Bea VALCE 

430 HRESTORE REGS ANO RETYRN To EVAL 
431 901536" g29926 VALXt CMP RO, (SP)+ 

432 901549 991019 BNE ERVALA 

433° 901542! 712604 MOV CSP) ORL 

434 881544! 312604 MoV (SP) 0,R4 

435 201546! 042602 MOV CSP) 0, R2 

436 301550! 149218 MOVE R2, (RO) JRESTORE STRING LENGTH 
437 901552! ag9137 gsoge0e8G VALJt | UMP @ROPRATOR 

438 991556! 080137 seon006 ERVALS! JMP @BERRSYN 

439 901562 300137 ogo0eeG ERVALAT MP OBERRARG 

440 VALFNES 

441 

442 


33S 


BASICH 


443 
aag 
445 
446 
447 
448 
rr) 
458 
451 
452 
453 
4354 
455 
456 
457 
456 
459 
460 
464 
462 
463 
466 
465 
466 
467 
468 
409 


BASICH 


470 
474 
472 
473 
474 
475 
476 
477 
478 
479 
430 
484 
482 
483 
4a4 
485 
486 
487 
488 
489 
490 
494 
492 
493 
494 
495 
496 
497 
498 
499 
308 
521 
502 
583 
504 
505 
586 
597 
308 
509 
510 
514 
312 
513 
544 
515 
516 


MACXLL 


084566! 
381572 
304574! 
981600! 
901602! 
O81606! 
881619! 
OB1614! 
201616! 
281622! 
681626! 
981632! 
881656! 
891649! 
801642! 
901646! 
881652! 
081654) 


881660! 
801664! 


MACXS1 


3016708 
aB1672 
OBLO74s 
301676! 
3017008 
801702! 
301704" 
881706! 
ao4710/ 
O84712! 
Oor7140 
804716! 
904729! 
304722! 
804724! 
884726! 
081730! 
901732! 
081734! 
81736! 
901749! 
981742! 
801744! 
901746! 
801750¢ 
084752! 
901754! 
901756! 
884769! 
881762! 
884764! 
301766! 
9841767! 
381770! 
BOL772¢ 
304774! 
04776! 
8017778 
982009! 
802001! 
892002! 
a02ea3! 


voes 


804737 
193432 
122427 
801032 
942746 
818502 
486737 
211603 
862723 
849365 
895965 
804737 
ITT TT la 
819682 
816546 
904737 
912646 
804357 


800437 
6204357 


yaar 


200000 
200000 
000008 
909029 
8899090 
9e0008 
289800 
092214! 
oe2g76! 
88000 
ov0g0 
a0ggag 
a20008 
380000 
299000 
299809 
200ec0 
280880 
299900 
ao0008 
a90008 
298080 
988080 
200940 
288088 
380000 
909908 
808008 
898808 
280009 
888098 
800 
O09 
op294Q! 
ap2gaal 
388020 
280 
030 
80g 
928 
aoe 
028 


22uMAR®73 15145 PAGE 15 


) STR FUNCTION ROUTINE 


OBouea6 STRFNE JSR PG, OREVAL 
acs ERSTRA 
2000086 CMPB (RQ) o,e,RPAR 
BNE ERSTRS 
820920 MoV 828,0(SP) 
MOV RS,R2 
e906 JSR PC, @@MAKESTR 
MOV CSP), RS 
890083 400 #3,R3 
2989006 MOV RS,T2¢R5) 
8900286 CLR TACRS) 
BooR0e6 vSR PG, @#NUMSGN 
WORD = SAVEHAR 
MOV SP,R2 
ooeeeeG MOV TACRSQ,0(SP) 
aoeneeG vSR PC, @UMAKESTR 
MOV (SP) 4) (SP) 
og0eae6 MP @aSTPRO sPROTECT STRING 
0900006 ERSTRAI JM? OWERRARG 
200806 ERSTRS) JMP @RERRSYN 
STRFNE} 
FNENOT 


22eMAR@7S 45345 PAGE 14 


) 

! 

J USER AREA STORAGE CELLS 
! 

u 


srt Word) | 8 JSYMROLS 
:WORD gs WGIMIT 
WORD 8 . yPOL 
WORD 8 IPOSIZE 
«WORD 8 PARRAYS 
WORD a SHIFREE 
WORD 8 JLOFREE 
sWORD = USREODE COVE 
tWORD = USRLINE PLINE 
WORD g IVARSAV 
WORD OB sSS1SAV 
WORD @ sSS2SAV 
sWORD 8 SLINFNG 
WORD tJ ¢ SGSBCTR 
sWORD B HCOLUMN 
»WORD 2B CLMNTTY 
sWORD 8 yFACL 
sWORD 9 iF AC2 
sWORD 8 sRASAVE 
»WORO @ sRISAVE 
»WORD JRESAVE 
WORD 8 IRSSAVE 
WORD f pRASAVE 
sWORD = el 
WORD 8 172 
sWORD of v8 
WORD 8 PRNOL 
WORD 8 sRNOQ2 
RANOS ,WORD yRNOCT 
WORD 8 1LOST7R 
WORD 8 WHISTR 
BYTE ] 1ODEV 
sBYTE 8 dTOEV 
. TPBFH. yTPHO 
e KBBFHS yKBHO 
sWORD  O pECHOSP 
- BYTE 8 JCNCFLG 
1BYTE 2 ICNOFLG 
BYTE 2 sFILLCO 
:BYTE @ dFILLNO 
BYTE t) JFIWLCH 
BYTE @ 1 CSPARE BYTE) 


336 


BASICH 


517 
518 
519 
520 
524 
522 
523 
524 
525 
526 
527 
528 
529 
530 
534 
932 
533 
534 
535 
536 
537 
538 
539 
540 
543 
542 
543 
544 


BAS|CH 


545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
564 
562 
563 
564 
565 
566 
367 


568 
569 


570 
574 
572 
573 
374 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 


388 
589 
598 
594 
592 


“MACKXLL 


802004! 
062006! 
882019" 
oo2012! 
ooesias 
882016! 


382049! 
882042! 
BO2044! 
802046! 
392039! 
oe2052 


MACKX22 


oo2214! 
9e2220! 
892222! 


882224! 
4922268 
802252! 
9922356! 
862244! 
AG2258! 
802252! 
202269! 


OB2264! 


802270! 
892274! 
BB2276! 
BO23a45 
082311! 
882313" 
982329¢ 
O82326! 
802334! 
882342! 
802350! 
802352! 
862353! 


802354! 
882369! 
302364! 
8823664 
382370! 
802374! 
382376! 
O9240R¢ 
882402! 
882406! 


OB2419! 
ap2414! 
OO2417¢ 
8024245 
0024324 
O02435! 
902434) 
392449! 


0024444 


ye2i 


os2g2e/ 
992037! 
802820! 
ag2g2a) 
ee2g2g/ 
BReR00 

oe2g29! 
992049! 
992037! 


ap2ese! 
882973? 
900008 

082054! 
002054) 
080880 

002954! 
og2074! 
292073! 


op22iel 


ve2a 


162704 
922626 
8890442 


980005 
842726 
8946767 
942737 
42794 
285744 
812737 
610467 


942702 


384367 
O15 
940502 
230126 
015 
117 
951546 
946194 
947855 
244449 
015 
077 
000 


204767 
120027 
881532 
885902 
120927 
201002 
885202 
200445 
120927 
804358 


094367 
915 
048 

820423 
117 
209 

912705 

042704 


911503 


22eMARO7S 


22amARe73 


017776 


agssear 
2900006 
ao22i40 
160890 


880806 
001108 


oeonee! 


000756 

B12 
044523 
030468 

612 
852120 
020072 
026114 
047147 
944455 

g12 


999722 
890116 


300101 


090111 


BB96O36 

612 
8265314 
047048 


893374! 
2208096 


O800R4 


eoog04 


920103 
1081 


843049 
020501 
047049 
926105 
242116 


b12 
042531 
047855 


15145 PAGE 43 


' . 
} USER 370 BUFFER AND BUFFER HOR, SPACE (TTY) 


J 
KBBFHiT © KBByFS s8STAy 
e KOBENS BEND 
WORD KBBYFS 1BGETL 
WORD KBBYFS 1B6ET2 
sWORD) §=- KBBUFA sOPUT 
o a sBFSPEC 
KBBUFL 8, 
: 8, oSKe9Sz HDEFAYLT-SIZE = 20 CHARS, 
KBBENL 8,01 
rEVEN 
| 
TPBFHAt © TPOYyF, dBSTRY 
. TPBENY BEND 
oo @ #BGETL (NOT USED) 
»WORD = TPBUF2 pBGET2 
sWORD = TPBUFR paPyt 
o ] JBFSPEC 
TPBUFL 8, 
F #, esTPasz HOEFAULT © 20 CHARS, 
TPBENL 8,04 
+EVEN 
USRLINEt 
18", ¢SULNSP HOEFAULT § 129 
USRCODE! 


15145 = PAGE 16 


’ 
} esQNCESONLY INIT, CODE 
’ FINO OUT HOW MUCH CORE AND EXPANO USRAREA ACCORDINGLY 


j 

DECCORE I Sy8 #47770,R4 HCOME HEHE ON TRAP FOR BAD MFM, 
CMP (SP) 4, (SP)e 
BR TRYCORE 1 REF,, AND OEC, CORE SIZE 

' 

ONCEONLIRESET 
MOV wTMPSTCK, SP iTEMP, STACK 
JSR PC, IFPMP VIN]T FOR FPMP ROUTINES 
MOV WOECCORE, O44 }SET UP TRAP ADOR, 
MOV #160200,R4 y28K 

TRYCOREI TST 3(R4) sTPAPS TO DECCORE IF BAD gnDR 
MOV 90 ,0n4 JFALLS THRU IF OK @ RESTORE TRAP. ADGR, 
MOV R4,HICORE 

FINITIALIZE Yor oF BASIC 
MOV #BASICH, RY 

IPRINT HEADING ANO REAO ANSWER 

INfHOI JSR R3,PRMSG 


BYTE «45,12 
sASCIL (BASIC Vaaqas 


BYTE = .512 
sASCTI OPT FNSt AwALL, NeNONE, [e@INDE 


BYTE = 4.5432 


eASCIT ¢ 78 
sOYTE t 
EVEN 
vSR PG,ROANS ¢ 
CMPB ROBIN HCHECK FOR N 
BEQ INTSAV 
CLR RZ ICLEAR ALL FLAG 
cMPB RO WA JCHECK FOR A 
BNE INUTT 
INC R2 sSET ALL FLAG 
BR INTALR 

INtTIY CMPB RO wey HCWECK FOR | 
BNE INTHO 

SPRINT HEADING FOR INUIV FUNCTIONS 
JSR RS, PRMSG 
:BYTE «= 45,.12)42 
ASCII § YeYES NeNOF 
BYTE 868 

INfALLY MOV WENTAB,RS 
MOV eTABLES,R4 


IGET NEXT FUNCTION TAULE ABDRESS 
INELPE MOV (RB) RS 


337 


BASICH 


593 
394 
595 
596 
597 
598 
599 
600 
604 
602 
603 
004 
605 
626 
607 
628 
699 
642 
614 
642 
6413 
644 
615 
$16 
647 
o18 
619 
620 
624 
22 
623 
624 
625 
626 
627 
628 
629 
630 
634 
632 
633 
634 
635 
636 
637 
638 
639 
yy) 
644 
642 
643 
644 
645 


BASICH 


646 
647 
648 
049 
650 
554 
652 
653 
654 
655 
656 
657 
658 
659 
660 
664 
662 
663 
664 
665 


666 
667 
668 
669 
670 
672 
672 
673 
674 
675 
976 
677 


678 
679 
689 
684 
682 
683 
684 
685 
686 
687 
688 
089 


698 
691 
692 
693 
694 


MACX11 


892446) 
392459! 
ao24540 
a0246g" 


802462! 
802466! 
8224794 
882474! 
382476! 
88252Q! 
862582! 
o92510! 
082516! 
882522! 
802524! 
8B2526' 
082539! 
282533! 


882534! 
802549! 
OB2544! 
902546! 
80255¢¢ 
082552! 
202556! 


B02569+ 
892562! 
882566! 
OG25798 
902572 
8825768 
382609! 
982604) 
OG2619¢ 


802612! 


802616! 
882622! 
982624! 
882626! 
882632! 
002634) 
882636! 
902649! 
882642! 
B02644+ 


MACKXLY 


382646! 
882652! 
282656! 
882662! 
802666! 
392672! 
882676! 
882702! 
8027364 
882712! 
862716! 
882724! 


882732¢ 
8827354" 
92749! 
822743! 
982750! 
882756! 
302761! 


882762! 
882766! 
892772! 
0827745 
2830aG! 
B23e02¢ 


203004! 
883819! 
863812! 
893B29! 
383826! 
883232! 


BB30S4! 
883049! 
9835044! 
803046! 
383852! 
OB3B54! 


303056! 
493862! 
38364! 
883872! 
983108! 
BO3106! 


03110! 
903114! 
ao3120¢ 


Vo2t 


186983 
462705 
262704 
098773 


320427 
101052 
320527 
103046 
285722 
884027 
316567 
816567 
204367 

015 
889060 
#90800 
035940 

200 


8046767 
120927 
ae1ge2 
803724 
800443 
120027 
B81344 


816198 
162796 
919024 
O12321 
926365 
103774 
862705 
320427 
194715 


910167 


8427282 
820283 
160193 
820227 
193805 
942224 
84773 
160344 
985724 
998779 


Vees 


16704 
162706 
316705 
310465 
£62704 
219465 
162704 
318465 
962724 
019465 
342765 
342765 


363903 
304367 
e415 
126 
342523 
846522 
oee 


804767 
120927 
801457 
120927 
981354 
383203 


804367 
O15 
740514 
838863 
342425 
B28 
agsese! 
304767 
120027 
804432 
120027 
381354 
085203 


884367 
B15 
052126 
936476 
849502 
ag 
293119! 
304767 
122027 
201404 


22eMARe73 «15145 PAGE 1604 
BP, INTFN 
Beege2 400 A283 Wskle A FUNCTION 
aneeR2 ano #2, Re 
BR INTLP 
JPRINT QUESTION FOR FUNCTION, GE? ANSWER 
Og000R6 INTFNG CMP R4, TB SEND 
BHI INISAV 
OOS544t cMP RO, BFNTABE 
BHIS INTSAV 
TS? R2 
BNE INTOF 
890004 ggoo1e MOV 4(R5),FNNAMS 
880986 apae.9 MOV ORS) ) FNNAM2 
800530 vSR RJ, PRMSG 
o12 BYTE = 45442 
FNNAMZ] ,WORD 8 
FNNAM2} ,WORD @ 
e4e sASCILT fF pe 
BYTE 868 
sEVEN 
900542 JSR PG, ROANS 
808316 cmPe ROBIN CHECK FOR N 
BNE INTTY 
TST (R4)e 
8R ININXT 
900434 INITYS CMPB RO wry sCHECK FOR Y 
BNE INTFN 
JOBFINE THE FUNCTION 
INTOFs MOV RL RO 
e@pageeG sya STABLES, RO 
MOV RO, (R4D> JPLACE AOORESS IN TABLE 
INIMVE MOV CRI) Op (Rie 
agave cue R3,2¢K5) 
BLO TNTMY 
900030 INENXT} ADO #40,R9 
8800886 CMP R4, #TOLSEND 
80S INTLP 
JSAVE TOP OF BASIC 
1751262 INISAV] MOV RL, USRAREA 
NMOVE USER AREA TO TOP OF Basie 
884670! MOV #YSR,R2 
MOV R2,R3 ICOMPUTE RELOCATION CONSTANT 
sus RO,R3 
og22i4¢ MOVLP} CMP R2, 8USRCOOE 
BHIS MOVOON 
Mov CR2) (RID S 
80 MOVLP 
sus RJ, e(R4) HRELOCATE NON®ZERO ENTRIFS 
TST (RY)e 
BR MOVLP 
MOVDON 
3YD 
22eMARe73 «145145 = PAGE «47 
JINITIALSZE USER AREA 
880512 MOV HICORE,R4 §R4 1S HIGHEST ADDR, IN CORE 
890300 sys #300,R4 
175416 MOV USRAREA,RS 
B0Ce06 MOV R4,LIMITORS) 
800134 sys #234,H4 SPOINTER SPACE 
28092R6 MoV R4,POL(R5) JBASE MF STACK 
8208086 sue #SSTKSZ,R4 IMAX, STACK SIZE 
2900086 MOV R4,ARRAYS(R5) = jSHIEST ARRAY STOR, LOC, 
a0040 aoo 940,R4 
9000086 MOV R4,POSTZE(R5) 
832331 apaveeG MOV #32334, RNOG(RS) 
163251 200006 MoV #463294,RND2(R5) 
HOLALOGUE To SET YP TERMINAL TYPE 
ASKSER} CLR RS 
000512 JSR RS, PRMSG 
o12 012 sBYTE = 5442542 
954501 320124 sASCII FAST SER TERM! 
O20122 942524 
077 
BYTE @ 
sEVEN 
2e0514 JSR PC,ROANS 
90116 cMPG RO, BIN 
BEG ASKOON 
860233 cMPa RO ety 
BNE ASKSER 
INC Rg 
A00242 ASKLAL JSR RS, PRMSG 
012 1BYTE «15,42 
230063 024049 sASCIT ' ASA (308 BAUD) 24 
820060 240502 
837453 
BYTE 8 
EVEN 
gees? JSR PG,ROANS 
O90132 cups RO,etY 
BEQ ASKOON 
Og8196 cMPS RB,eIN 
BNE ASKLA 
INC RS 
800170 ASKVTI JSR RS, PRMSG 
012 BYTE = 45442 
032460 924049 sASCIT 8 VIQS (>eOg9g Baunyee 
830066 220060 
942325 937454 
BYTE 8 
EVEN 
880166 vs PG,ROANS 
BOO154 CMPG RB et 3Y/ 
BEG ASKOON 


~ 


BAS|CH 


695 
696 
697 
698 
699 
790 
70% 
792 
783 
794 
705 
726 
707 
728 
739 
740 
714 
722 
743 
74 
745 


716 
717 
718 
719 
720 


BASICH 


747 
748 
749 
759 
732 
752 
753 
754 
755 
756 
757 
758 
759 
768 
76% 
762 
763 
764 
765 
766 
767 
768 
769 
778 
773 
772 
773 
774 
775 
776 
777 
778 
779 
788 
78 
782 
783 
784 
785 
786 
787 
788 
789 
798 
79% 
792 
793 
7194 
795 
796 
797 
798 
799 
bee 
6e4 


MACX11 


883122! 
883126! 
883130! 


8031352! 
OBS154/ 
883136! 
Bo3i4a! 
803142! 
883146! 
883159! 
8831546 
903156! 
303168! 


883162! 
805166! 
803179! 
803174! 
003377! 
aes2oa) 
aes2i2! 
39S216! 


aos22g! 
a93224/ 
893227! 


883259! 
BO3234 
883236! 
903246! 
883244! 


83246! 


203252¢ 
a03254! 
303269! 
003262! 
803266! 
093276! 
893272! 
093274! 
003276! 
8eS3e0! 


093302° 
BBS306! 


MACX11 


883312 
OO3314° 
303320! 
BBS3246 
883330! 
BBS334! 
803356! 
BB3342/ 


BBS5640 


BB5366! 
OB3371! 


3O3374! 
3O3376! 
883409 
893404! 
303406! 
aOS4igl 
983412! 
aasas4! 
883416! 
88342g! 
9B3422¢ 
883424! 
2834268 
8834320 
BOS4S4/ 
BB3436! 
393449! 
3G3444! 
383446! 
893459 
BO3454 
803456! 
283469! 
BB3464s 
BB3466! 
383479! 
3O3474! 
203476) 
ao3sag¢ 
893504! 
383506! 
303519! 
803514! 
883516! 
083529! 
BOS524/ 
O83526¢ 
PB3530¢ 


Vos 


128027 
684355 
900700 


349382 
884412 
886323 
COAS2 
862702 
819503 
862703 
112223 
122225 
122223 


895737 
801414 


ees2zgl 


84307 
e153 
gag 


312702 
812283 
204403 
862703 
849322 


986167 


240320 
189737 
190375 
132037 
21372 
939903 
085203 
986205 
286323 
800283 


083267 
103737 


Vez 


108373 
123790 
242790 
240067 
304367 
390000 
916790 
386207 
283364) 


280800 


283363! 
900 
rrr) 


apogee! 
380140 
847122 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
290140! 
200256/ 
044102 
177777 
300236! 
809324! 
043523 
309324) 
200436 
240524 
080436+ 
Beosigl 
242514 
8pe5ia/ 
800574) 
251501 
200574! 
290646! 
344183 
090646) 
2041592! 
249529 
704152! 
204420! 
242523 
eo1e2g? 
091566! 
040526 


22eMARe7$ 145345 PAGE 4704 
090116 cMPB RO, BIN 
BNE ASKYT 
BR ASKSEK 
ASKOONT MOV RI, RZ 
Bea FULLOON 
asl RS 
aoo RS,R2 
OB35035" ao ePILLTB,R2 
MOV RO,RS 
ognee0G ano BFILLGOYRS 
MOVB {RZ ey (R30 
MOVB (RZ), (RS) & 
“OVE (RZ), (RE) & 
FILLOONS 
HPRINT OUT IF USER FUNCTIONS LOANED 
290846 1S? 0846 
Lia} NQUSR 
098956 usr RI, PRASG 
e12 022 sBYTE = 45442442 
042523 020122 sASCTL 4 YSER FNS LOADED! 
029423 047544 
942305 
BYTE B 
vEVEN 
NOUSR} 
280826 JSR RS, PRMSG 
912 B12 BYTE = =—:15,42,12,2 
sEVEN 
HCHECK IF RNOL LOADED 
8808086 MOV #TABLES,R2 
MOV (R2)o,R3 
8E0 NORNO 
092834 apo BRNOFNORNOLFN, RS 
MOV R3, (RZ) HDEFINE RNO ASO 
NORNOI 
egonees JMP START 
HSUBROUTINE TO PRINT A MESSAGE 
PRMSG{ MOV RY ,RO 
1777768 PRLP! © TST8 eeTPoe2 
BPL PRLP. 
899008G MOVE {RB oe, OeTPB 
ONE PRUP 
MOV RB,RS 
TNC RJ 
ASR RS 
ASL RS 
Rvs RS 
HSUBROUTINE TO READ ANSWER FROM TELETYPE 
176452 ROANS? = INC RAND 
8908000 Ts78 OnrKs 
22eMARe7S 45445 PAGE 4702 
ePl, Rpans 
eeoee2G move @8T(942,R0 
177908 aye #477608,R08 
Beeun4 MoV RO, INGH 
177716 JSR R3,PRMSG 
INCHI WORD J 
477772 MOV INCH, RO 
RTS PG 
' a,%20 
YMPSTCKI 
HICORES ,WORD @ 
FILL TG, #5 
bit 015 BYTE Gp 44595 bLASI 
204 B12 BYTE 8,084,232 yVTOS 
FNYABI 
,WORD = RNDLPN 
WORD = RNOFNE 
e20104 sASCTT ¢RND fF 
;WORD =e}, } RND 
WORD ed 4 SIN 
WORD ey 5 COs 
WORD =} 1 SQR 
+WORD eh, y ATN 
WORD cry 1 EXP 
WORD), y LOG 
»WORD = ABSFN 1 ABS 
sWORD = AGSFNE 
820423 sASCTI ¢aBS ¢ 
WORD ed, y INT 
WORD SGNFN + SGN 
WORD SGNFNE 
820116 sASCIT 1S6N ¢ 
WORD TABFN 5 YAR 
»WORD:  TABFNE 
820182 sASGIT «Tag tt 
*: WORD LENFN y Lee 
WORD WENFNE 
020226 sASCIT 'QEN F 
;WORD = ASCFN base 
»WORD = ASCFNE 
020305 sASCIT ASCE 
sWORD = CHRSFN 1 CHAS 
WORD = CHRFNE 
822122 sASCIL ¢CHRS? 
WORD POSFN 5 POS 
sWORD = POSFNE 
020123 ASCII (POS # 
+WORO = SEGFN 1 SES 
WORD = SEGFNE 
022107 sASCIL ¢SEGSE 
,WORD = VALFN y VAL 
WORD) = -VALFNE 
620114 sASCIY of VAL fF 


B3YA 


3Y¥3 


BASICH 


882 
63 
804 
805 
806 
807 


BASICH 


ABSFN 
ARGB 
ASKOON 
BASICH 
COLUMN 
ERASCA 
ERLENS 
ERRMIX 
ERRSYN 
ERSGNS 
ERVALA 
FAC2 
FNEND 
FNTABE 
TNTALL 
INTLP 
INLTI 
KOBFHL 
LIMIT 
NORM 
ONCEON 
POSIZE 
POSFST 
POSREM 
PRUP 
REXP 
RNOLFN 
RPLUS 
RS 
SEGFN 
SEGNUL 
SEGTY2 
SGNFN 
SOPRAT 
STRFN 
TABFN 
TABNUL 
TPB 
TRYCOR 
uSR 
Val 
Vaud 
SSYKS2 
tRPAR 


MACX12, ¥ 


883534! 901566! 
003536! g01678) 


@2i 


O835484 252123 322122 


ae222q! 


MACX12 


280140R 
8 eneees G 
883132R 
sageger 
2 seveee CG 
980564R 
089504 
2 eeneee G 
= eevsee G 
2OSS2aR 
BG1562R 
BS seoten G 
221678R 
OO3544R 
OO2434R 
OB2444R 
892492R 
Sa2ag4R 
3 enecee & 
S eeeene 6 
BB2224R 
B enocee 
O81950R 
9810879R 
@B3254R 
BOQO74R 
9000B2R 
O9BO52R 
=XOOG0003 
991152R 
904400R 
881304R 
OBV2I6R 
B aavees 6 
OB1566R 
BOV324R 
290426R 
s eaves G 
882250R 
8O167B8R 
= evenen G 
921552R 
= onesea G 
B enecee 6 


VO2a 


ERRORS petvecTegt @ 


22eMARW73 «45445 


PAGE 4703 


WORD 
sWORO 
sASCII 


FNTABE} 


22eMARe73 15445 


ABSFNE 
ARRAYS 
ASKLA 
By 
OECCOR 
ERASCS 
ERPOSA 
ERRNDA 
ERSEGA 
ERSTRA 
ERVALS 
FULACO 
FNNAML 
WICORE 
INTOF 
INTMV 
INTTY 
KeeUFS 
MAKEST 
NQRNOD 
OPRATO 
POSF 
POSF2 
POSTRY 
PRMSG 
RNOFN 
RNOL 
RO 

R4 
SEGFNE 
SEGRNG 
SeGx 
SGNFNE 
SP 
STRFNE 
TABFNE 
TBLSEN 
TPBENY 
TL 
USRARE 
VALCE 
VALR 
STPASZ 


BOG2S6R 
B eteeen G 
BB3294R 
= 909040 
B82214R 
980579R 
@81142R 
BOSLS4R 
O@14619R 
BBL66R 
BB1556R 
Ss eeseen G 
0825246R 
B83364R 
882560R 
882579R 
@82552R 
= BO202ER 
B etenee 
BES24GOR 
2 aeenee G 
O81324R 
881126R 
O81254R 
983252R 
BBGVL4ER 
2 eeesen 
8xX0OR000 
2x009e04 
80142aR 
881312R 
B94494R 
BBO324R 
Sx000006 
OB1679R 
BOASSE6R 
Bs a6eeee G 
O82B75R 
BS eteene G 
SORSZORG 
O81524R 
BO1460R 
= 990028 
= BOS544ER 


1 ENO 


PAGE 474 


ABSINT 
ASCFN 
ASKSER 
CHRENE 
ERAGSA 
ERCHRS 
ERPOSS 
ERRNOS 
ERSEGS 
ERSTRS 
EVAL 
FILLOO 
FNNAM2 
TF PMP 
TNTFN 
TNINXT 
INT 
LENFN 
MOVDON 
NOUSR 
PC 
POSFN 
POSNO 
POSX 
RAND 
RNOFNE 
RNOZ 
RL 

R5 
SEGL 
SEGR2 
SEGX® 
SGNPOS 
START 
TAB 
TABLES 
TKS 


SULNSP 


STRFN 
TREN 
Mhst 


ONCEONL, 


080174R 
290510R 
682752R 
BO8646R 
68B226R 
$89642R 
BB1L46R 
QBGLSOR 
O01414R 
BB16O4R 
S @eeoee G 
883102R 
B825Z26R 
B @neoee 
982462R 
BO2688R 
Ss seeeee CG 
OOB456R 
882646R 
683220R 
3XO08087 
BO00646R 
OO1L146R 
689794R 
O84700R 
BORL40R 
Ss eegeee 
5X209001 
SX0O8C05 
@81296R 
O84S20R 
@61252R 
OBG276R 
BS @aeees 6 
BOGS44R 





OB2040R 
8 eneene 6 

RB22,4R 

033420R 

OB1556R 
= 080429 


str 


agsx 
ASCFNE 
ASKVT 
CHRSFN 
FRABSS 
FRLENA 
FRRARG 
FRRPOL 
ERSGNA 
ERYAARS 
FACL 
FILLTB 
FNTAR 
INCH 
INEHA 
INTSAV 
KBRENZ 
LENFNE 
MOVLP 
NUMSGN 
POL 
POSFME 
POSNXT 
POsY 
RAOANS 
PNOFN2 
RNORM 
Re 
SAVCHA 
SEGLP 
SECGTY 
SGNFLT 
SGNX 
STPRO 
TARC 
YARNON 
YMPSTC 
TPRUFY 
13 
USRLIN 
VALFNE 
SKBUS2 
COMMA 


Oeg222R 
808974R 
BU3A56R 
QB8974R 
@88232R 
O2B90aR 
B geneee 6 
a #08eee G 
OEBS14R 
080432R 
3 evesee 6 
B DBS3OSR 
023374R 
2B3334R 
B82270R 
852612R 
8 B2037R 
@88910R 
3B2626R 
zB eneoee ¢ 
& veseee G 
981452R 
@81L976R 
901200R 
BB33B2R 
BOOV1OR 
a2an62R 
8X000202 
Bw ecesee 6 
QO1366R 
O@1L270R 
900279R 
Q@20319R 








QO0368R 
Q80S76R 
BOSS64R 
= 822954R 
B enteee ¢ 
882074R 
2015660R 
= G80022 
s eeeene G 


ByYY 


ay 


a 


BASICH MACX11 


RUN@TIMET 
SoRE USO! 


AGSFN 
ABSFNE 
ABSINT 
agsx 
ARGO 
ARRAYS 
ASCFN 
ASCFNE 
ASKOON 
ASKLA 
ASKSER 
ASKVT 
BASICH 
BL 
CHRFNE 
CHRSFN 
COLUMN 
DECCOR 
ERABSA 
ERABSS 
ERASCA 
ERASCS 
ERCHRS 
ERLENA 
ERLENS 
ERPOSA 
ERPOSS 
ERRARG 
ERRMIX 
ERRNDA 
ERRANDS 
ERRPOL 
ERRSYN 
ERSEGA 
ERSEGS 
ERSGNA 
ERSGNS 
ERSTRA 
ERSTRS 
ERTABS 
ERVALA 
ERVALS 
EVAL, 
Fact 


Face 


FILuco 
FILLOO 
FILLTS 
FNEND 

FNNAMY 
FNNAM2 


vo2s 

18 SECONDS 

3K 
1208 774 
13598 775 
125 1298 
126 428 
41 164 
35 655 
2118 787 
2268 708 
678 682 
6758 684 
6628 672 
6879 696 
7oe 563 
738 185 
2408 794 
2298 798 
37 173 
5498 556 
224 13568 
123 1378 
212 217 
214 2258 
234 2390 
195 2058 
197 2868 
245 249 
247 254 
38 116 
38 

88 1168 
62 1ise 
38 

38 145 
327 334 
329 336 
143 1568 
145 1598 
445 4630 
aay 4640 
166 1898 
399 432 
404 4360 
39 9 
37 112 
423 

37 113 
260 262 
33 725 
708 7098 
783 7598 
4668 
604 6268 
605 6298 


22ahARe73 


138 
229 


694 


697 


249 


253 
256 
456 


437 
338 
344 


4398 


128 
124 


129 
347 


15445 


132 


6998 


2240 


s2ge 
Seis 
158 


159 
392" 
3938 


142 
127 


131 
334 


PACE 4705 
1358 

205 224 
189 206 
194 242 
133 147 
134 149 
360 407 


see 


22> 


24a 
458 


4159 
424 


392 


239 


248 
198 


168 


arg 


32% 


252 
228 


199 


463 


393 


326 
236 


203 


438 


330 
318 


224 


464 


337 
333 


272 


SYb 


S98 444 
$55 476 
232 237 


347 


FNTAB 
FNTABE 
WICORE 
IF PMP 
INCH 
INTALL 
INLOF 
INTFN 
INTHO 
INILP. 
INTMV 
LNINXT 
INISAV 
INLTI 
INITY 
INT 
KBBENY 
KBBFHY 
«GBUFS 
LENFN 
QENFNE 
GIMET 
MAKES] 
MOVDON 
MOVLP 
NORM 
NORNO 
NOUSR 
NUMSGN 
ONCEON 
OPRATO 
Pg 


POL 
POS}ZE 
POSF 
POSsF2 
POSFN 
POSFNE 
POSFST 
POSNO 
POSNXT 
POSREM 
POSTRY 
POSX 
Posy 
PRUP 
PRMSG 
RO 


RL 
R2 


RS 


RS 


HAND 
RDANS 
REXP 
RNOL 
RNO2 
RNOFN 
RNDFN2 
RNOFNE 
RNOLFN 
RNORM 
RPLUS 
SAVCHA 
SEGFN 
SEGFNE 
SEGL 
SEGLP 
SEGNUL 
SEGR2 
SEGRNG 
SEGTY 
SEGTY2 
SEGX 
SEGXD 
SGNFLT 
SGNFN 
SGNFNE 
SGNPOS 
SGNX 
SOPRAT 
sP 


589 
629 
568 
“4 
738 
581 
683 
593 
5658 
5928 
6248 
617 
576 
579 
615 


52k 


403 


621 
758 
66H 
4098 
67# 
112 
278 
313 
411 
637 
688 
283 
366 
626 
702 
748 


7638 
ez5e 
648 
555 
75¢8 
5890 
6248 
598" 
583 
596 
626 
6278 
599 
5828 
6188 
254 
5200 
5208 
522 
784 
785 
654 
188 
64ea 
648 
422 
7298 
7168 
455 
807 
124 
79 
330 
613 
653 
637 
264 
3178 


1048 


727 


795 
727 
123 
96" 
436 
796 
797 
3548 
387 
356 
366" 
3634 


360" 


3498 
1548 
778 
779 
1546 
1576 
188 
167 


7378 


753 


au 
629 


684 


332 


523 


455 
420 
332 
668 


267 


737 
006 

85 
155 
300 
rey 


764 


364 


256 
168 


6328 


339 


524 


375 


437 
442 
337 
680 


276 


663 

86 
181 
317 
443 


669 


144 
466 

98 
183 
288 
349 
445 
782 

91 
286 
374 
635 
706 
754 
434 
652 
113 
198 
298 
4a9 
653 


680 


367 


394 
169 


5268 


450 


204 
164 
339 
692 


278 


675 

a7 
483 
344 
444 


671 


165 
563 

92 
186 
289 
366 
448 
783 

96 
295 
384 
636 
707 


549 
653 
124 
499 
306 
453 
655 


692 


3900 


a7. 


459 


223 
189 
375 
754 


307 


687 

90 
184 
354 
426 


68s 


196 
624 

93 
220 
290 
369 
435 
786 

99 
304 
382 
641 
708 


557 
654 
127 
203 
38 
454 
657 


7458 


173 


349 
194 
398 


3108 


743 
% 


4189 
353 
428 


685 


ais 
624 

re 
201 
294 
372 
436 
707 
124 
305 
386 
662 
745 


558 
659 
129 
220 
347 
458 
656 


747 


479 


437 
214 
420 


719 

93 
236 
358 
434 


693 


230 
$32 

97 
203 
292 
373 
449 
708 
195 
3a6 
423 
663 
719 


568 
656 
134 
224 
318 
5a9 
659 


477 


229 
422 


7338 
96 
237 
3463 
436 


695 


246 
686 
178 
245 
293 
377 
457 
724 
476 
318 
454 
073 
728 


590 
657 
433 
222 
333 
592 
794 


184 


235 
4a4 


7351 

97 
257 
3465 
575 


733 


250 
639 
145 
226 
295 
380 
577 
725 
aii 
312 
452 
675 
727 


595 
134 
232 


334 
594 


202 


244 
450 


98 
262 
378 
578 


736 


255 
641 
137 
218 
298 
3a2 
540 
728 
113 
358 
453 
685 
728 


598 
147 
234 


355 
670 


215 


248 
455 


192 
266 
379 
5R2 


738 


378 
642 
108 
222 
373 
583 
672 


20g 
S60 
965 
6R7 
733 


616 
149 
237 
S62 
or4 


23s 


252 
459 


178 
275 
384 
614 


748 
335 


129 
234 
328 
3A5 
634 


2e4 
3863 
585 
699 
738 


623 
155 
258 


373 
675 


236 


254 
555 


146 
277 
385 
618 


749 
348 


110 
269 
310 
418 
635 


282 
$65 
592 
74 
739 


628 


156 
269 
476 
625 


START 
STPRO 
STREN 
STRFNE 
eS 

T2 

T3 
TAB 
TABC 
TABFN 
TABFNE 
TABLES. 
TABNON 
TABNUL, 
TOLSEN 
TKS 
TMPSTC 
1P8 
TPBENS 
TPBFHS, 
TPBUFA 
TRYCOR 
uUSR 


USRARE 


USRCOO 
USRLIN 
VAL 
VALCE 
VAGFN 
VALFNE 
Vaud 
VALR 
VALX 


i 
1FOMMA 
 RPAR 
SKeBSz 
SSTKS2 
sTPesz 
SULNSP 


BASICH 


wawoweUNE 


278 
343 
416 
33 
41 
4448 
4058 


48 

40 
1698 
178 
1648 
1908 


176 
478 
36 
32 
554 


532 
3507 
531 
554 
4748 
34 
481 
482 
42 
4268 
3988 
a4ge 
409 
425 
427 
153 


37 
56 
44 
52 
68 


MACX11 


272 
344 
47 
730 
388 
a2 
803 
290 
284 


172 
a7Se@ 
784 
782 
599 
1798 
1688 
598 
746 
7568 
734 
5398 
53.8 
534 
5580 
634 
738 
5438 
S438 
429 
429 
799 
ee 
43ve 
4108 
4a3in 
174 
246 


527 
654 
538 
342 


yeaa 


284 
392 
418 
463 


290 
306 


922 


628 
748 


736 
535 


632 
637 


187 
259 
122 


22eMARe7S 


282 285 288 29% 303 304 
353 372 374 377 378 379 
431 433 434 439 448 454 
308 454 458 

433 

724 

5378 

$630 

202 526 35278 526 537 5 tbe 
328 335 

444 165 196 2i3 238 255 


45145 PAGE 14 

BASIC/PTS PAaRTS@gaS{CH 
DECaL = PTBACACLAS 
COPYRIGHT 1973 


DIGITAL EQUIPMENY CORPORATION 
MAYNARO, MASSACHUSETTS 04754 


312 
3aa 
497 


539 


342 


313 
390 
458 


5428 
426 


346 
473 
460 


7554 


446 


333 
478 
550 


759 


334 
412 
554 


BASICH 


128 
aa 
12 
13 
14 
15 
46 
47 
18 
49 
28 
23 
22 
23 
24 
25 
26 
27 
28 


BASICH 


29 
30 
34 
32 
33 
34 
35 
36 
37 
38 
39 
40 
44 
42 
43 
ae 
45 
46 
47 
48 
49 
50 
54 
52 
53 
54 
55 
56 
37 
58 
59 
60 
64 
62 
63 


MACKXLL 


MACX12 


voes 22emMARe73 


VBaL 22emMARa73 


15445 PAGE 2 
TITLE 


a ee ares 


15145 PAGE 3 


4 
} GLOBALS 


! 
+GLOaL 
1GLOBL 
1GL08L 
GLO, 
»GLOBL 
16,084 
16,081 
1G084 
1GLO8L 
1GL08L 
1GLOBL 
1GL08L 
1GLOBL 


BASICH Vasa EDIT 4228 (REF) 01/31/73 
BASIC SCURCE FILE #15 


USER AREA AND QNCE®ONLY INIT, Caor, 
To BE LINKED LAST AFTER BASIC! AND FpMpeit To FoRr™ BASIC, 


BSe 


TPB, TKS 
START, FILLCO 

USRAREA 

LIMIT, POL, ARRAYS, POSIZE 
TABLED, TSLSEND 

COLUMN, FAC1, FAC2, ,RPAR 
ERRMIX, ERRPOL, FRRSYN, ERRARG 
EVAL, INT, MAKEST, OPRATO, SOPRAT 
sGOMMA, T3, T2, 13 

ARGB, SAVCWAR, NUMSG’, STPRO 
NORM, VAL 

RNOL, RNOZ 

SSYKS@ ,1F PMP 


) ASSEMBLY PARAMETERS 


' 
1 TPNOF 
svpes2 s2e 
,ENOC 
! 
1 TFNOF 
skeesz #20 
yENOG 


1 UFNOF 
SULNSP #422 
ENOC 


SypOsé sTELEPRINTER BUFFER SIZE 
ICHARACTERS 


SKBBSé JKEYBOARD AYFFY SIZE 
JCHARACTFRS 


SYLNSP JYSER LINE SPACE 
BYTES 


oe) 
&, 
Gy 


iad 


“ 


BASICH 


64 
65 
66 
6? 
68 
69 
79 
” 
72 
73 
74 
75 
76 
7 
76 
79 
8e 
as 
82 
83 
64 
65 
86 
87 
86 
69 
98 
94 
92 
93 
94 
3 
96 
97 
968 
99 
128 
184 
402 
423 
124 
405 
406 
197 
1968 
129 
418 
Feet 
412 
413 
414 
415 
416 
4147 
416 


BASICH 


119 
128 
322 
322 
123 
12¢ 
125 
126 
127 
126 
129 
130 
132 
132 
133 
134 
135 
136 
137 
138 
139 
140 


MACX12 


aooeee! 


020002! 
820806! 
aoneig! 
oBoe14" 


080016! 
aeoezg! 
goog24! 
880826! 
aeoe3e! 
080832! 
ooagses 
000836! 
o9a04e! 
090042! 
agagsas 
000046! 
980052! 
ooegses 
080056! 
oopge2! 
opoged! 
880866! 
ogoe7g! 
980072! 
oo0e74! 
080876! 
oe0198! 
06102 
000104! 
o901c6! 
o90119/ 
090112 
aee114/ 
090129! 
808124! 
e013 
808134! 


MACXL2 


O00149¢ 
aaoregs 
200146! 
800152! 
80154! 
O8G16g8¢ 
880162! 
800164! 
980172! 
880174! 
800200! 
808202! 
880206! 
880219! 
900216! 
808222! 
888226! 
B8B232! 


Ve2s 


Boegog! 
902998 
389001 
3e9ee2 
889823 
3OOBS6 
090825 
289006 
OpeR07 
390048 


084737 
103452 
122127 
004045 


010509 
862708 
811883 
244802 
286305 
086182 
262082 
861903 
985502 
361902 
190002 
862702 
310310 
19240 
912728 
886383 
886102 
183402 
885300 
280773 
185e03 
150203 
880303 
183902 
150002 
300382 
2846082 
696083 
910265 
840365 
080157 
090137 
280137 


VO22 


084737 
183438 
122127 
901027 
805765 
281405 
100017 
242765 
290445 
905765 
100018 
895465 
102005 
012765 
285965 
280137 
280137 
900137 


22eMARe73S 


oesoeeG 
a90008G 


8900006 


198008 


OBG201 


oeovesG 
990000G 
8e00eR6 
8989006 
8980096 


22eMARe73 


0g0R00G 
aga00es 
0980006 


190008 
898006 
9900006 


044000 

0990806 
aaoeeeG 
Bae0ee6 
a900006 


8088086 


15145 PAGE 4 


CSEcT 
RO "x0 
ri ext 
R2 8x2 
RS x3 
R4 x4 
RS "x5 
gP 5x6 
PC 8x7 
BL 249 


USRAREAS , WORD 
BASICHY 


SRNO FUNCTION e* GENERATE 8ANDOM NUMRER 


SCAN PAST ARG {F PRESENT 


4 

RNOLFNG JSR 
acs 
CMPB 


BNE 
RNOFNG 
RNOFN2} MOV 
400 
MOV 
MOV 
asl, 
ROL 
400 
aoo 
aoc 
apo 
BP, 
aoo 
RPLUS| MOV 
MOV 
MOV 
RNORM} ASL 
ROL 
6cs 
oec 
6R 
REXPI CRO 
Byse 
SWAB 
CURB 
Byss 
SWAG 
ROR 
ROR 
MOV 
MOV 
vMP 
ERRNOS| UMP 
ERRNDAY UMP 
RNOFNET 


15145 = PAGE 5 


PC, @eEVAL 
ERRNDA 

(RL) 6,8, RPAR 
ERRNOS 


RS,RO 
#RND2,RO 
@RO,RS 
2G RB) gR2 
RS 


RZ 
(ROO, RZ 
oRD,RS 

R2 

ORO, R2 
RPLUS 
#199000,R2 
RS, ORD 

RZ, 0(RD) 
#201,K0 

RS 

RZ 

REXP 

Rg 

RNORM 

RS 

R2,RS 

RS 

RZ 

RO, RZ 

R2 

R2 

RS 

RQ, FAGACRS) 
RS FAGZCRS) 
S#OPRATOR 
O#ERRSYN 
@#ERRARG 


sAQS FUNCTION ROUTINE 


ABSFNI JSR 
acs 
cMPa 
BNE 
TS? 
BEG 
BPL, 
BIC 
BR 

ABSINT} TST 
PL 
NEG 
ave 
MoV 
CLR 

ABSX1 UMP 

ERABSA] UMP 

ERABSS! UMP 

ABSFNE} 


PG, OWEVAL 
ERABSA 
CRY) op #,RPAR 
ERABSS 

FACa (KS) 

ABSINT 

Agsx 
#300080,F ACL (RS) 
AGSX 

FAC2(K5) 

agsx 

FAG2(K5) 

AgSX 
844008, F ACY (95) 
FAC2(KS) 
@ROPRATOR 
@SERRARG 
@WERRSYN 


sMULT AY 2 
INOW BY 3 


INOW BY Zeeloes 


GET 200526 
STORE NEW GENERATORS 


yINTTTAL EXPONENT 
JFLOAT RESULT 


HJUMP WHEN LEADING BIT FAUNO 
ADJUST EXPONENT FOR SHIFT 


PUNSFRY EXPONENT [NTO RESULT 


FINSERT * SIGN 


BASICH MACX14 va2d 22aMARe73 415145 PAGE 6 


142 ySON FUNCTION ROUTINE 

142 000236! 306737 oeegeg SGNFNI JSR PG, @WEVAL, 
443 900242! 193424 its ERSGNA 
444° 990244" 122127 ge09006 CMPB (RL) o¢#,RPAR 
145 g98250' 304923 BNE ERSGNS 
446 900252! J05e00 CLR RB 

147 «990254! 985765 seaveeG TST FACA(RS) 
148 a9a260! 294923 BNE SGNFLT 
149 330262! 285765 egog08G TST FAGZ(RS) 
450 900266! 21410 BEO SGNX 

151 900270" 190002 SGNFLT} GPL SGNPOS 
452 200272! 905300 OC Ro 

153 990274! agoeas aR 104 

154 998276! o932ag SGNPOS} INC Re 

155 090300! 910965 saggoRs “QV AB, FAGZCRS) 
156 990304) 095965 sagaeRs CLR FACL(RS) 
157 g803ia’ 280137 seogaad SGNX! JM PROPRATOR 
158 992314! 290137 oBgaveRG ERSGNA! JMP @RERRARG 
159 98320! 390137 sooR006 ERSGNS| yMP @RERRSYN 
160 SGNFNEI 

164 

162 


386 


BAS|CH MACX11 Vee. 22eMARe73 15445 PAGE 7 
163 


sTaB FUNCTION ROUTINE 
164 998324! 394737 a900006 TABFNT SR PC, @#ARGB 
165 8883304 122127 sa980806 CmMPB (RL) oem, RPAR 
166 3803344 104936 BNE ERTABS 
167 2890336" 365046 CUR e(SP) 
168 908340! 116516 soaB00G MOVB = FAC2(K5), (SP) 
169 «388344! 224627 900110 TABBS «= CMP. (SP),#72, 
178 «908358! 193438 Bo TABC 
172 808352! 162716 390118 Sys 872,,0SP) 
172 4880356" 390772 BR TABB 
173° 23A36B! 167516 a9e980G TABCI sub @COLUMN(RS), (SP) 
174 300364! 199003 BPL, 104 
175 «200366! 705816 CLR (SP) 
176 380370" AB1g22 BNE TABNON 
477) 280372! 293316 oec (SP) 
478 900374" 390414 BR TABNULL 
179 =990376! 319522 TABNON} QV RS,R2 
182 899400! 294737 eg00086 JSR PC, @#MAKESPR 
281 820404" 311600 MOV ($P),Ko 
182 4380486! 295902 CLR R2 
183) 200410! 151902 8ysB (RO), RZ 
184 390412" 362700 se0003 400 63,R0 
185 280416! 112729 sogo4e0 MOVB HBL CRODe 
186 880422! 395322 oee R2 
187 g00424! 203374 BGT ry} 
188 980426' 299137 sgeuceG TABNULL I IMP @SSOPKATR 
189 298432! 280137 soeB08G ERPABS} UMP @#ERRSYN 
192 TABFNE] 
194 
192 


BASICH 


193 
194 
295 
496 
497 
198 
199. 
208 
203 
202 
203 
204 
205 
226 
207 
208 
209 


BASICH 


218 
213 
212 
213 
214 
2a5 
216 
247 
216 
219 
220 
223 
222 
225 
224 
225 
226 
227 
228 
229 
230 
232 
232 
233 
234 
235 
236 
237 
238 
239 
248 
244 
242 


MACKLL 


000436! 
390442! 
900444! 
30a45g¢ 
300452! 
600456! 
909462! 
o0n464! 
820466! 
090479! 
ogae74! 
8oa5og° 
990504! 


MACKL1 


8905184 
BOO514¢ 
800516! 
889522! 
a00524/ 
880526! 
8898532! 
8085344 
300540! 
800542! 
080546! 
880552! 
800566! 
gpese4/ 
088578! 


BOO574! 
B8B608! 
BBHO04! 
208606! 
389614! 
820629! 
908622! 
890626! 
802638! 
880656! 
600642! 


vai 


684737 
193816 
122127 
381035 
095065 
905065 
812602 
805222 
091422 
114265 
900137 
980157 
390137 


yeas 


004737 
103023 
122127 
001922 
212602 
320227 
301444 
121227 
401011 
OB5965 
385065 
116265 
280137 
8891357 
280437 


664737 
122227 
501016 
142765 
312746 
830502 
384737 
211609 
116568 
000457 
300137 


22eMARe7S 15145 PAGE 8 

1 LEN FUNCTION ROUTINE 

8900086 LENFNE =JSR PC, OWEVAL 

ace ERLENA 
8900806 compe (AL) oe 8, RPAR 

BNE ERLENS 
ogeoeeG CLR FACa(RS) 
peeeeeG CUR FAC2(R5) 

MOV (SP) %,R2 

TNC R2 

aEQ 106 
8e0R006 “ove RZ) gFACZERS) 
8880086 JMP @ROPRATOR 
800088 ERLENAT IMP @#ERRARG 
9290086 ERLENS| JMP @#ERASYN 

LENFNE} 
22eMARo7S 45145 PAGE 9 

4 aS FUNCTION ROYTINE 
889808G ASCENE = ySR PC, @eEVAL 

: acc ERASCA 

op000eG cMPB (RY) O18, RPAR 

BNE erases 

MOV (SP) %,R2 
477777 CMP R2,8477777 

Bea ERASCA 
690001 CMPB (R2),84 

BNE ERASCA 
080B086 CLR FACA(KS) 
9ee28G CLR FAC2(KS) 
Cages goeeR0G Move SERZ)pPACZERS) 
8900086 MP @BOPRATOR 
8899886 ERASCA} UMP @SERRARG 
990R08G -ERASCS) UMP @RERRSYN 

ASCFNE} 

1 GHRS FUNCTION ROUTINE 
8g8080G GHASFNY JSR PC, @WARGB 
B00900G CMP (RE) o,%,RPAR 

BNE ERCHRS 
Bee2o9 a900806 ayce #208, FAC2(R5) 
900083 Mov #4,0(SP) 

MOV R5,R2 
8900086 Jsr PE, @UMAKESTR 

MOV (SP), KO 
BBSRCRG BHOR03 MOVB FACQ2CR5),5¢RB) 
0920006 vMP @sSOPRATR 
888908G ERCHRS| JMP @RERRSYN 

CHRFNE} 


BSE 


VTARKE CHAR MOD 126 
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243 1 POS PUNCTION ROUTING 

244 090046" 924737 aazeeeG POSFNI JSR PG, OaEVAL, 

245 000652! 103133 gcc ERPOSA 

246 900654" 122127 oges0eG CMPB (RL) 049, COMMA 
247 g2866a 394132 BNE ERPQSS 

248 900662! 224737 agogueG usr PC, @MEVAL 

249 309066! 193125 ace ERPOSA 

250 980678! 122127 seo9e06 cMPB CRE)O,#, COMMA | 
251 309674) coii24 BNE ERPOSS 

252 090676! 284737 sg00006 uSR PC, @vEVAL 

253 080702! 193517 acs ERPOSA 

254 382724! 904737 2908006 ysr PG, O#INT 

255 @80719' 122127 seap0eG CMPB (Ro) oye, RPAR 
256 890714" 201114 ONE ERPOSS 

257 300716" 285028 CLR RB 

258 990720! 288765 sgge20G TS? FACL(AS) 

259 g9a724) 294977 BNE POSF 

268 080726" 7285765 sae0086 TST FACZ(K5) 

264 880732! 293474 BLE POSF 

262 000734! 156508 ga00006 ase FACZ(R5) RA sRO ISN 
263 HCHECK NULL XS 

264 3890740! 926627 agoev2 177777 GMP 248P) 58477777 
265 999746! a02902 BNE POSX 

266 380750 oa5909 CUR RO 

267 390752! aa9464 BR POSF 

268 ICQMPUTE LENGTH OF xs 

269 988754! 395902 POSX! CLR R2 

278 G00756 157602 aoe0R2 BySe @2(SP),R2 

274 ICHECK NULL YS 

272 «900762! 921627 177777 CMP (SP) 48477777 
273 000766" Be1804 BNE Posy 

274 JNULL YS, ANS JS MENCNSLENEXS)) 
275 «900778! a2g902 cup RO,R2 

276 800772! 393454 BLE POsF 

277 300774! nip208 MOV R2,RO 

278 380776! 900452 BR POSF 

279 ISAVE ADOR OF ENO OF YS IN T2 
288 001900! 905903 POSY! CLR RY 

284 2281902! 157603 cooveD 81SB (SP) RS 

282 981806! 361603 apo (SP), R3 

283 821918! 362723 2900003 aoo #35,RS 

284 001914! 039365 onaB006 MOV RS,T2(R5) 

285 981928! 012603 MOV (SP) o,R3 

286 881822! 062723 sooons - ado #3,R3 

287 HSAVE ADDR OF END OF XS IN Tt 
288 201826! 261602 ano (SP), K2 

289 881930! 262702 coBee5 aod #3,R2 

290 801034! 219265 G029006 MOV R2,TUCRS) 

294 a1948" 432602 MOV (SP)o,R2 

292 881242! 269902 apo ROyRZ 

293 881044! 262702 gage02 ado 42,R2 

294 IFIND MATCHING FIRST CHARACTER 360 
295 o01850! 124322 POSFST) CMPB (R3) (R29 
296 381052! 202406 8E0 POSREM 

297 001954) 99520 POSTRY} INC RO 
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298 301056! 820268 see0egs cme R2,TL(R5) 
299 084962! 394372 BNE POSFST 

308 881064! 395900 CUR Re 

301 801066! 280417 BR Posr2 

302 ICHECK THAT REMAINING CHARS MATCH 
303 901070" 010246 POSREM} MOV R2,0(SP) 
304 881872! 218346 MOV R3,0(SP) 
305 091974! 395203 INC RS 

306 981076! 220368 oae0e0s POSNXT} CMP R3,T2(RS) 
307 981102! 201419 8EQ POSF 

308 891194! 220265 sooeeeG cmp R2, TLRS) 
309 981110! 281402 BEG POSNO 

310 G04112/ 422223 cMPB (HZ) Op (R36 
3120 84114" 302779 BE POSNXT 

312° 384116! 342603 POSNOt MOV (SP) O,RS 
313° 882128! 212602 MOV (SP) 0, R2 
314 081222! 200756 8R POSTRY 

315 JRETURN FROM FUNCTION 

316 001124! 222626 POSFI CMP (SP) 9, (SP)4 
317 081126! 010865 coeeoed POSF21 MOV RO, FACZCRS) 
318 801132! 905965 og0B006 CLR FACL(RS) 
319 304136" 390137 ag0g006 uMP @ROPRATOR 
320 301142! G80137 B900006 ERPOSAT UMP @BERRARG 
324 381146 200137 ago0eaG ERPOSS! JMP SBERRSYN 
322 POSFNEI 

323 

324 
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325 4 SEG FUNCTION ROUTINE 

326 881152! 294737 aesgedc SEGFNS ySR PC, @MEVAL, 

327 -301156/ 183116 Bcc ERSEGA 

328 991168! 122127 g808e6 cMPs CR) oy #, COMMA 

329 084164! 204113 ANE ERSEGS 

330 384166! 284737 ageeee6 JSR PG, OWEVAL 

331 801172! 193506 Bcs ERSEGA 

332 881174! 384737 Bg0R806 usr PG, ee\NT 

333° 381208! 216546 sp00006 MOV FACL(KS),@¢SP) 

334 984204! 216546 aooee0G MOV FAC2(KS),e¢SP) 

335 801218" 122127 aeaoues cura (RL) Oe), COMMA 

336 982214 304077 BNE ERSEGS 

337 9842164 284737 seo0006 JSR PC, OeEVAL 

338 2814222' 193472 acs ERSEGA 

339 981224! 3846737 sa00R86 JSR PG, OeENT 

348 381230! 122127 agepe06 ces ¢RL)6)e,RPAR 

344 381234" 204067 BNE ERSEGS 

342 IGET X VALUE IN R2 

343 081236! 212602 MOV (SP) o,R2 

344° «884240 012620 MOV (SP) 6,RO 

345 883242! 180403 OMT SEGxo 

346 991244! 901955 BNE SEGNUL 

347 881246" 005702 rst R2 

348 «981250! B83902 acT SEG. 

349 881252! 942702 g8000% SEGXBt OV #4,R2 

350 ICOMPUTE LENGTH OF AS IN Ro 

354 081256! oe5oce SEGLI CLR RO 

352 901260 24627 177777 cue (SP) 8477777 SCHECK NULL STRING 
353 081264! 1576089 990080 8SB @(SP),RO 

354 IGET Y VALUE IN RS 

355 881278" 295765 ceseBeG SEGTY{ TST FACL(RS) 

356 9012744 199444 amy SECNUL 

357 981276! 281402 BE secry2 

358 ge1308! B12883 MOV RO,RS 

359 381302! 380403 BR SEGRNG 

360 G81304! 2316503 seen0eG SEGTY2) MOV FAC2(HS) RS 

364 BB14318' 083433 BLE SEGNUL 

362 ICWECK B<eR2caR3<aRg 

363 981312! B2eee3 SEGRNGI CMP RO,RS 

364 801314! 104904 BH} SEGR2 

365 B81316! o188e3 MoV ROARS 

366 901328! #20203 SEGR2} CMP R2,R3 

367 004322! 191026 BHI SEGNUL 

368 ICOMPUTE LENGTH OF OUTPUT STRING 

3609 904324! 160203 sys RZ, RS 

378 091326 o95203 INC RS 

373 IMAKE NEW STRING OF THE CORRECT LENGTH 

372 881330" 910246 MoV R2,0(SP) JSAVE START CHAR 
373 804332! 238502 MOV ROyR2 

374 804334! 319346 MOV R3,0(SP) 

375 881336! 394737 aoeeDes ysr °C, OUMAKESTR : 
376 IFEX STACK AND MOVE IN CHARS FROM OLM STRING Sb6A 
377 864342! 032602 MOV (SP) o,R2 NEW STRING POINTER 
378) 884344! 312609 MOV (SP) 4,RO JSTART CHAR 

379 881346! 267680 aod CSP), RO 1A0D OLD STR POINTER 
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388 801358" 810216 MOV R2, (SP) tSAVE NEW STRING 

384 801352! 205803 CLR Rs 

382 981354" 154203 a[SB (R27, KS }R3 1S NEW STRING LENGTH 
383 891356! 062702 BaeB85 aoo #3,R2 FADDR FIRST CHAR JN NEW STR 
384 881562! 262709 s208082 aoo 42,R0 yAQDR START CHAR IN OLO STR 
385 3801366! 112922 SEGLP | MOVE (RB) SO, (RAD + sFYLL IN NEW STRING 

386 «981378! 8859383 bec RS 

387 981372" 204375 BNE SEGLP 

386 881374! oea1Sy 22800006 uMP @BSTPRO 

389 FOUTPUT NULL STRING 

398 981408! 312726 477777 SEGNULI MOV #477777, 05P) 

394 881404" 300137 B80000G SEGX? JMP @SSOPKATR 

392 881419" 2899137 seoRo8G ERSEGAL JMP @#ERRARG 

393 881414! 290137 agg000G ERSEGSt UMP @RERRSYN 

394 SEGFNE} 

395 

396 


363 
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397 
398 
399 
400 
404 
422 
403 
404 
405 
406 
407 
408 
409 
410 
44a 
412 
413 
414 
415 
416 
417 
418 
419 
428 
423 
422 
423 
424 
425 
426 
427 
428 
429 
438 
434 
432 
433 
434 
435 
436 
437 
438 
439 
448 
44g 
442 
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443 
446 
445 
446 
aay 
448 
ang 
450 
454 
452 
453 
454 
455 
456 
457 
456 
459 
460 
46% 
462 
463 
464 
465 
466 
467 
468 
469 


MACXAL 


a81429! 
a014244 
3044268 
OB1452¢ 


OB1434s 
281436! 
8014420 
a01444¢ 
801459! 
Ob1454! 
001456! 
301469! 
201462! 
O04464! 
801466! 
801472! 
201474! 
0844768 
O81500° 
0815024 


801504! 


804519" 
901514! 
381529! 


BB15244 
081526! 
881558 
884534! 


804536! 
0015494 
801542! 
001544! 
01546! 
801550! 
084552 
391556! 
081562" 


MACX1L 


801566! 
9045720 
O045740 
ao¢oog" 
284602! 
001606! 
084618 
oaisi4: 
901616! 
221622" 
201626! 
821632" 
821636! 
201649" 
ao164se: 
81646! 
001652" 
aa1654° 


881660! 
0016645 


ve2s 


004737 
183956 
122127 
001054 


a1i6a8 
328027 
381806 
205065 
395065 
305726 
280435 
495892 
154902 
918216 
062700 
86a9z2 
185012 
a10446 
810146 
310246 


204737 


204737 
348365 
910465 


185719 
881423 
122027 
984773 


920826 
204810 
812603 
312604 
912602 
129238 
200457 
880137 
980137 


vo2s 


984737 
193432 
122127 
3810351 
342746 
340522 
284737 
211683 
262793 
948365 
383965 
084737 
3880006 
342602 
846546 
304737 
12616 
880137 


890137 
200137 


22eMARe73 


o0geeeG 
eaevens 


177777 


B9ORRRG 
3080086 


889803 


oegeoes 
egoaeeG 
ogaevec 


008048 


Sesob8G 
99e0006 
8O00B8G 


22eMARe73 


0900086 
2900006 
oege20 
peeee6 
290003 
8oaeeeG 


889006 
98A808G 


0900086 
BaaeeaG 
2900006 


9800006 
2880006 
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) VAL PUNCTION ROUTING 
VALFNE VSR PC, OREVAL 
Bce ERVALA 
cMPS (RY) Oe 8, RPAR 
BNE ERVALS 
TREAD STRING 
MoV (SP) ,KO 
CMP RO, 8177777 
BNE VALR 
CLR FACA(KS) 
CLR FAC2CR5) 
TST (SP) 
BR VAL 
VALRI CLR R2 
aise (RO) KZ 
MoV R2,¢SP) 
400 03, RO 
aoo ROR2 
CL RB (R2) 
MOV R4,0(SP) 
MoV Ro,0(SP) 
Mov R2,0(SP) 


FREAD ASeLT NUMBER ANO EXPONENT 
INORMALIZE TO FO 
JSR 


PG, eeNORM 

mov RS FAGLERS) 

MOV R4,FAGZ(RS) 
JCWECK END OF STRING 
VALCEI STB = (R@) 

REQ VALX 

cMPB (RB) oO, #8L, 

ct) VALCE 
JRESTORE REGS AND RETURN TO EVAL 
VALX1 CMP RO, (SP)+ 

BNE ERVALA 

MOV (SP)6,R4 

MOV (SP)o,R4 

MOV (SP) ey R2 

MOVB = R2, CRB) 
VALI UMP @SOPRATOR 
ERVALS! UMP @#ERRSYN 
ERVALA] UMP PRERRARG 


VALFNES 
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PC,eaVAL 


RM FLT PT NUMBER 


} STR PUNCTION ROUTING 


STAFN| JSR PG, OE VAL 
acs ERSYRA 
CMPB CRY) Oy#,RPAR 
BNE ERSTRS 
MOV #28, 0(SP) 
MOV R5,R2 
JSR PC, @MMAKESTR 
MOV CSP) RS 
aoo a3,R3 
MOV R3,T2(RS) 
CLR TEER) 
JSR PC, @#NUMSGN 
sWORD = SAVOHAR 
MOV SP,R2 
MOV TA(A5),0(SP) 
JSR PC, OMMAKESTR 
MOV (SP) o, (SP) 
vMP @RSTPHO 
ERSTRAT MP @#ERRARG 
ERSTRS| JMP @BERRSYN 


STRFNE| 
FNENDI 


HCHECK NULL STRING 


RESTORE STRING LENGTH 


367 


PROTECT STRING 


36s 
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470 
472 
472 
473 
47a 
475 
476 
477 
478 
479 
480 
483 
482 
483 
rr) 
485 
486 
487 
488 
489 
499 
494 
492 
493 
494 
495 
496 
497 
498 
499 
528 
50. 
302 
503 
504 
505 
506 
507 
308 
509 
518 
512 
512 
513 
514 
515 
316 


BASICH 


547 
518 
519 
528 
32k 
322 
323 
324 
525 
326 
327 
328 
529 
530 
533 
532 
533 
334 
535 
336 
537 
538 
539 
548 
54% 
342 
543 
544 


MACXAL 


081678¢ 
o81672¢ 
BOL674! 
381676" 
081708! 
O01702¢ 
O8170468 
2017068 
081718! 
884712 
aea714! 
O82716! 
881729! 
881722¢ 
O017248 
801726! 
881739! 
884732! 
OBL734q! 
201736! 
801749" 
201742° 
OO1744+ 
801746! 
984759! 
883752° 
081754! 
881756' 
OB1769" 
O91762¢ 
OB1764! 
@84766! 
0817678 
084778" 
084772! 
OO1774! 
8B1776¢ 
0847778 
a62g00' 
@g2e01! 
o82002! 
BO2B03! 


MACXAL 


B62004! 
382806! 
882810! 
682012! 
o02014! 
882016! 


882049" 
@82042¢ 
882044) 
982846! 
202050' 
382952! 


vo2n 


a00ese 
oeeo0a 
000008 
ogeeae 
209029 
290008 
380000 
ae22se! 
ag2074) 
200020 
30008 
200000 
780820 
280000 
300908 
280008 
390800 
ascoee 
sgegeg 
290800 
voageg 
009029 
280820 
9890@ 
900000 
TTT 
200000 
aeeace 
TTT) 
TTT I 
eeoee8 

200 

20g 
ea2940/ 
e206! 
eeoece 

200 

020 

oe@ 

Tr) 

Ty) 

60g 


veer 


ae2e2g! 
202037! 
a82a29! 
ae2g2e/ 
282e20' 
200029 

292920 
302949) 
202037? 


3020546) 
382073! 
380000 

3028544 
3B2954/ 
a9e808 

ae2054! 
302074) 
802073! 


2e2214¢ 
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) 

5 

J USER AREA STORAGE CELLS 
U ‘ 

u 


SRi 1WORO 
(WORD 
;WORD 
{WORD 
(WORD 
sWORO 
(WORD 
(WORD 
{WORD 
‘WORD 
a WORD 
»WORD 
;WORD 
‘WORD 
1 WORD 
a WORD 
a WORD 
» WORD 
(WORD 
WORD 
sHORD 
sHORO 
yWORD 
WORD 
;WORD 
WORD 
‘WORD 
+WORD 

RAND! =, WORD 
‘WORD 
(WORD 
BYTE 
sBYTE 
e 
e 
s WORD 
BYTE 
(BYTE 
BYTE 
sBYTE 
BYTE 
BYTE 
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sSYMIQLS 
LIMIT 
pPAL 
sPASTZE 
PARHAYS 
SHIFREE 
HLOFPEE 
yCOOE 
VL INF 
HVARSAV 
ySSiSAV 
ySS2Sav 
WLINENG 
IGSBETR 
COLUMN 
ICLMNTTY 
yFAact 
1FAC2 
PROSAVE 
FRASAVE 
IRASAVE 
PRSSAVE 
pRASAVF 
me 

v2 

7s 
PRNOL 
FRND2 
yRNOCT 
ILOSTR 
VHISTR 
1rOneV 
sPDEV 
sTPHR 
yKAHD 
rECHOSP 
sCNCELG 
SCNOFLG 
IFILLCO 
JFYLLNG 
SFILLCH 
1 (SPARE BYTE) 


366 


' 
) USER 1/0 BUFFER AND BUFFER HOR, SPACE (TTY) 
' 


KBBFHLI + KBBUFL 
ry KBBEN} 
»WORD KBBUFL 
;WORD = KBBUFSL 
;WORD = KSBUFL 
* 9 

KBBUFL 8, 

, ®, ©SKBBSZ 

KBBENL 8,04 
sEVEN 

J 

TPOFH1y © TRBYUF. 
* TPBENL 
. a 
,WORD = TPBUFS 
WORD YPBUFS 
. @ 

TPBUFL 8, 

. ® eSTPBSzZ 

TPBENL «8,02 
EVEN 

USRLINES 

13, ¢SULNSP 

USRCODES 


sBSTPT 
1BEN® 
rBCETL 
BGET2 
18PUT 
IBFSPEC 


JOEFAULYT SIZE = 28 CHARS, 


sBSTOT 

SEND 

18GET1 (NOT USED) 
$BCET2 

sapur 

1BFSPEC 


HOEFAULT 2 2¢ CHARS, 


JOEFAULT # 122 


367 
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545 

546 

547 

548 

349 982214! 162704 917776 

559 082220! 022626 

553 982222! ge0412 

552 

553 382224/ sgage5 

534 982226! 942706 3033604" 

555 982232! 204767 seag08G 

556 882236! 012737 a02214) ooeBe4 

557 992244! 042704 160800 

538 a92250' 205744 

559 92252! 012737 soegee gonee4 

568 282268! 319467 sa%100 

564 

562 

ui 892264 812703 seapee! 

6 

563 982279' 384387 990756 

50q@ 002274! O15 912 

5367 982276! 949582 9446523 920103 
882304! a38126 930460 401 

$68 092311! 013 912 

569 992313! 147 052320 043060 
BB2320! 854516 828072 926501 
082326! 346104 926914 947069 
OB2334/ 247955 347437 326105 
802342! 344449 944455 042116 

579 002359! ous 612 

574 g92352/ 877 

572 062353! ove 

573 

374 982354! 984767 990722 

575 g82360! 120827 ao0116 

576 982364! g9i542 

577 902366! og8ee2 

578 982370! 129627 909303 

579 092374! B81902 

580 882376! 005202 

584 sezeog! o90415 

582 902402! 126027 308133 

ae 882406! oBis3e 

86 

585 082410! 984307 f02636 

586 ag24i6/ e415 oi2 O42 

587 392417! 049 226533 642531 
082424! g29123 347848 347955 
02432! 117 

588 002433! 808 

389 882434! 012705 9933740 

590 992440/ 312706 ogoREes 

594 

592 902444! o44503 


—_——— 


BASICH MACX14 vos 


593 902446! 196085 

594 082459! 262705 900002 

595 002454! 062704 aaBeR2 

596 902460! 299775 

597 

598 082462! 228427 so00006 

599 982466! 192954 

608 902470! a2gs27 9935441 

604 282474) 193966 

602 082476! a05782 

603 082500! oefo27 

604 992502! 916567 ao0B04 opns4 
605 9092519! 316567 opee06 opens 
686 882536! a04367 290530 

907 op2522! o15 giz 

608 382524! opeeoe 

609 902526! agegoe 


642 382530! 035048 249 
614 382533! rr) 
612 


613 992534! 204767 009542 
614 8925494 428027 390126 
615 382544/ ga4g22 

616 382546! c05724 

647 902550! a98413 

618 962552! 120927 900133 
619 «882556! BBi344 

628 

624 882568! B10108 

622 092562! 162708 eseseRG 
623 a02566! a40924 

624 982578! 042323 

625 902572! B29365 gp0002 
626 3825764 193774 

627 382600! 262705 990019 
628 982604! 023427 soee006 
029 ge2zoie! 184715 

630 

633 

ase 882022 910167 175268 
63 

634 982616! 032702 8890708 
635 382622! 019203 

636 082624! 160123 

637 382626! B2a227 BBz2i4! 
638 382632! 103885 

639 992634 942222 

648 382636! 384773 

641 282640 160344 

642 992642" 995724 

643 202644" 990772 

644 

648 


' 
} eONCESONLY INIT, CODE 
' FINO OUT HOW MUCH CORE AND EXPAND USRAREA ACCORDINGLY 
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’ 
DECCoRE! sus #47779,R4 1CQME HERE oN TRAP FoR BAD MEM, 
CMP CSP) 4, (SP)e 
BR TRYCOKE p REF, AND DEC, CORE S{ze 
' 
ONCEQNL I RESET 
MOV aTMPSTCK, SP sTEMP, STACK 
JSR PC, IFPMP JINIT POR FPMP ROUTINES 
MOV #DECCORE, O44 sSET UP TRAP ADOR, 
MOV #469000,R4 12aK 
TRYCOREITST o(R4) 1TRAPS TO OECCORE IF GAD A0DR 
MOV 8O,0n4 FALLS THRU IF OK @ RESTORE TRAP ADDR, 
MOV R4,HIGORE 
DInbttautZe Tor of BAsIC 
MOV WOASIGHARS 
JPRINT HEADING AND REAO ANSWER 
INTHOE «SR RS, PRMSG 
1BYTE = 4.532 
sASCIT 'BASTG Vaesal 
sBYTE = 99422 
sASCII FORT PNSI AwALL, NeNONE, [eINDS 
BYTE 49532 
eASGTY OF 
,BVTE 8 
1EVEN 
JSR PG, RDANS 
cure RO,#IN HCNECK FOR N 
BEQ INTSAV 
cur R2 HCLEAR ALL FLAG 
cues ROI sCHECK FOR A 
BNE INTs 
tne RZ SSET ALL FLAG 
BR TNTALL 
INTTIE CMPB ROOT HCHECK FOR J 
ONE TNYHO 
JPRINT HEADING FOR JNOLV FUNCTIONS 
JSR RS, PRMSG 
BYTE = 15412)42 
sASCII § VeYES NeNOs 
sOYTE 38 
TNEALLE MOV BENTAB, RS 
MOV STABLES, R4 
GET NEXT FUNCTION TABLE ABORESS 
INELPT MOV (RS), RS 
BPL INFN 
aod #2,R5 WSKIP A FUNCTION 
aod #2,R6 
BR INTLP 
ITPRINT QUESTION FOR FUNCTION, CET ANSWER 
TNIFNG = CMP R4,6T85END 
BHy INTSAV 
cme RS, eFNTABE 
BHIS INTSAV 
TST R2 
BNE UNTOF 
MOV 40R35)¢FNNAML 
MOV 6¢R5),PNNAM2 
JSR RS, PRMSG 
BYTE 15,42 
FNNAM1{ , WORD a 
FNNAM2$ ,WORO 8 
ASCII fF 4 ft 
BYTE @ 
EVEN 
JSR PG, ROANS 
CMPB RO, ON HCHECK FOR N 
BNE INTTY 
TST (R4)o 
@R INENXT 
INTTY} MPS RO, ery ICWECK FOR Y 
BNE INTFN 
HDEFINE THE FUNCTION 
INfDPT MOV Ry she 
sye STABLES, RO 
MOV RO, (RA) JPLACE ADDRESS IN TABLE 
INIMVE MOV (RFPS (RAO 
cup RF,2(R5) 
B,0 INTMY 
ININXT} A00 40,29 
CMP R4, 8TULSEND 
BLOS INELP 
HSAVE YOR OF BASIE 
INESAV] MOV RU, USRAREA 
IMOVE USER AREA TQ TOP OF Baste 
MOV BYSR,RZ 
MOV R2,A3 ICOMPUTE RELOCATION CONSTANT 
sys REARS 
MOVLPY «CMP RQ, #USRCODE 
BHIS MOVOON 
“OV (RQ), iRLIe 
BEO MOVLP 
SUB R3,e(RY) JRELOCATE NON®ZERO ENTRIES 
TST (Ri)e 
BR MOVLP 
MOVOON] 


BOF 


369 


BASICH 


646 
o47 
048 
oe9 
659 
653 
652 
653 
654 
655 
656 
057 
658 
639 
oes 
663 
962 
663 
664 
665 


$66 
667 
Ty) 
09 
678 
673 
672 
673 
074 
675 
676 
q77 


BASICH 


695 
696 
697 
698 
699 
709 
704 
702 
703 
704 
705 
786 
707 
708 
709 
728 
744 
742 
743 
746 
745 


716 
717 
718 
749 
720 


724 
722 
723 
724 
725 
726 
727 
728 
729 
730 
734 
132 
733 
734 
735 
736 
737 
738 
739 
740 
744 
742 
743 
746 
745 
746 


MACX12 =: VO23 


882646! 016704 
092652! 162706 
082656 336705 
892662! 016468 
882666! 162704 
062672! 538465 
802676 162786 
892702! 9139465 
892786! 362706 
982712! 310465 
882726! 032765 
092724) 322765 


082732! oe5g05 
002734) 3946367 
692749! o15 
882743! 186 
892759! 94252 
802756! 346522 
082764! 608 


082762! 984767 
992766 129627 
992772! 81457 
927746! 129927 
agseog! 301354 
sesee2! ceszey 


sasee4! 04307 
a03a18! ois 
@eSe12! 9405146 
BOSe29! 239863 
88Se26/ 342325 
ag3e32/ eug 

esses! 
8838345 384767 
803040! 129927 
893044! 394432 
693846! 129927 
89352/ 391354 
993054! agS203 


893056 284367 
993962! o13 
853064! 252326 
893872! 336476 
003190! 349502 
go3in6/ TT) 

oesiis/ 
BGS118! 284767 
883114! 120027 
883120! 981406 


MACX12 = -VO22 


083122! 129927 
883126! 361353 
883150" 996708 


883132! 049302 
883134! gelai2 
BBS3136! 886303 
883149! 299302 
883142 962702 
983146! 319503 
883158! 362703 
883154! 112223 
893156! 122223 
893160! 112223 


903162! 995737 
883166) ao1416 
203179! g84se7 
803474 ois 
083477! 125 
O8S204! o49106 
BOS212! 942103 
oeS2i6/ gee 

aes22a/ 


O83228' 394367 
aes224/ 915 
oo3227' 906 


885238! 912702 
BOS2354) o12203 
883236! 399423 
883240! 262703 
883244! 319332 


003246! 300467 


803252! 338308 
883234! 1959737 
803269! 490375 
@e3262' 112937 
883266! 394372 
883279! 230003 
823272! 285203 
80S274/ 2B6203 
803276! 2096303 
8e33ae/ 290203 


893302! 269267 
B8S386! 199757 


22aMARe7S 


090522 
eeese5 
175126 
ogepees 
age134 
geveeec 
opooeeG 
eeesees 
aseseo 
agegees 
832332 
168254 


998512 
012 
854503 
820322 
877 


808334 
988116 


ogeass 


960242 

022 
830065 
928968 
037453 


oapes2 
900133 


989116 


896378 

922 
932468 
838866 
642325 


880266 
990353 


22eMARG7S 


998116 


8033563! 
sogoess 


809B46 
990096 

O82 
042523 


8208125 
042495 


280026 
B12 
2000006 
agoo14 
oggeeeG 


4777766 
sgeveeG 


176452 
o98900G 


@12 
220124 
842524 


024049 
940502 


924849 
820060 
037453 


O12 
028122 
047544 


O32 
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PINITIALSEE USER 
MOV 


sus 
MOV 
MOV 
sus 
MOV 
sus 
MOV 
aod 
MOV 
MOV 
MOV 


JOLALOGUE TO SET 
ASKSER} CUR 
usr 
BYTE 
eASCII 


iOVTE 
sEVEN 
JR 
cure 
BEG 
cure 
One 
tne 


ASKLAT JSR 
- BYTE 
vASCTY 


sOY7E 
vEVEN 
JSR 
Cure 
seo 
cure 
BNE 
INC 


ASKVTS JSR 
BYTE 
ASCII 


BYTE 
+EVEN 
JSR 
CMPB 
BEQ 


45145 PAGE 1704 


cMPB 
BNE 
BR 


ASKOON! MOY 
8Eo 
aS. 
aoo 
aoo 
MOV 
aoo 
MOVB 
“ove 
“ova 

FILLOONS 


AREA 
HLCORE, R4 

#360, 44 
USRAREA,RS 
R4,LIMITCRS) 
#434, R4 

R4, POLCRS) 
w3STK92, RE 

RG, ARRAYS(RS) 
946,R4 

RG, POSTZE(RS) 
932334, RNOG (RS) 
8463294, RNBZCRS) 


iR4 1S HIGHEST ADOR, JN CORE 


{POINTER SPACE 

SBASF OF STACK 

IMAX, STACK SJZE 

SHIEST ARRAY STOR, LOC, 


YP TERMINAL TYPE 
RS 


RS, PRMSG 
49512542 
TRAST SER YERMYS 


PG, ROANS 
RO,OIN 
ASKOON 
ROatY 
ASKSEK 
RS 


RY PRMSG 
43,22 
‘4a3@ (388 BAUD) 


°C, ROANS 
RB,atY 
ASKOON 
RB, WIN 
ASKLA 

ay 


RI, PRNSG 
13,42 
‘VT9S (>86a8 BAU 


8 
PG,ROANS 


AB,BtY 
ASKOON 


v 


oye 


RB ,BIN 
ASKVY 
ASKSER 


AZ RZ 
FILLOON 
Ry 


RS, RZ 
FILL TB ,R2 
RB, RS 
OFILL EO RS 
(2) 6) CRS DO 
{R2) op (RS) 
(R2}6,(RS)S 


PPRINT OUT JF USER FUNCTIONS LOADED 
rs? 084g 


BEO 
JSR 
BYTE 
sASCII 


sOYTE B 
vEVEN 


JSR 
BYTE 


EVEN 
ICWECK TF RNOL L 
MOV 


MoV 
it) 
aoo 
MOV 


MP 


ISUBROUTINE To P 

PRMSG} MOV 

PRUPI TST8 
BPL 
Move’ 
ONE 
MOV 
INC 
ASR 
ast 
Rvs 


NOUSRE 


NORNO} 


NQUSR 

RI, PRMSG 
15,12442 

"USER FNS LOADED 


RS, PRMSG 
29932742,0 


OAQED 

STABLES, R2 
(RQ)o,R3 

NORNO 
@RNOFN@RNOLPN, RS 
R34 (RZ) 


syarr 
RINT A MESSAGE 
RI, RO 


OnTPBe2 
PRLP 
(RO) o, OnTPR 
PRUP 

RO,RS 

RY 

RS 

RS 

RS 


‘ 


JOEFINE ARNO aso 


ISUBROUTING TO Read ANSWER FROM TELETYPE 
AND 


RDANS} INC 
7378 


OntKs 


390 


Raed 


BASICH 


747 
748 
749 
758 
753 
752 
753 
754 
755 
756 
757 
758 
7359 
768 
763 
762 
763 
764 
765 
766 
767 
768 
769 
778 
772 
772 
773 
774 
775 
776 
777 
778 
779 
788 
734 
782 
783 
784 
785 
786 
787 
788 
789 
799 
794 
792 
793 
794 
795 
796 
797 
798 
799 
800 
6a. 


BASI{CH 


ao2 
823 
eae 
625 
826 
807 


MACXLL 


883312! 
893314) 
283329! 
093324! 
883338! 
883334! 
883336! 
003342! 


BBS364s 


893366! 
083374! 


OBS374! 
083376! 
agseeg! 
803404 
893406! 
8034.9! 
oesei2! 
883414! 
883416! 
883429! 
983422) 
093424! 
883426! 
0834320 
883434! 
8834364 
Bp3eeg! 
oo3ee4s 
883446! 
883459 
8B3454/ 
883456! 
BO340g8 
83464! 
883466! 
08347B! 
BOS474/ 
883476! 
ae3sog! 
883504! 
883506! 
oe3510/ 
803514! 
893516! 
oo3520! 
ao3524! 
883526! 
083539! 


MACKAL 


BO35S4! 
803536! 
883549) 


Vous 


180373 
123709 
042700 
842967 
084307 
rT TTT) 
036708 
880207 
O83364/ 


BO3365! 
eee 
908 


eeooee! 
oegiég! 
849122 
479777 
477797 
179779 
177777 
479777 
179777 
179777 
890149! 
oog2sel 
04f104 
177777 
e9e23e/ 
a9g324/ 
843523 
B0e3z4) 
288436! 
240524 
290436/ 
eeesigl 
042524 
200510 
ae0574/ 
054504 
og0s74/ 
900646! 
044183 
986646! 
004152! 
047529 
06115! 
80142! 
842525 
oeieze 
294366! 
049526 


veas 
291566! 


201679! 
952423 


ap22zql 


22eMARe73 


og60026 
477908 
beene4 
177726 


177772 


o1a 
o24 


820104 


820223 


828116 


820102 


820116 


820385 


822322 


820323 


022307 


o2o114 


22eMARe73 


822422 
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845 
822 


nove 

Mg 
Bic 
Mov 
usr 

INCH), WORD 
MOV 
ats 


THPSTCKI 
HICORE) ,WORD 


FILL Bs,e93 
Lb “avte 
BYTE 


FNTABI 
WORD 
sWORO 
sASCIT 
2 WORD 
WORD 
s WORD 
WORD 
tWORD 
WORD 
1 WORD 
+WORO 
‘WORD 
sASCIT 
sWORD 
aWORO 
WORD 
sASCII 
WORD 
:WORD 
sASCIT 
‘WORD 
;WORD 
ASCII 
WORD 
2 WORD 
sASC3I 
(WORD 
WORD 
sASCTI 
WORD 
{WORD 
sASCTI 
;WORD 
WORD 
ASCII 
(WORD 
WORD 
ASCII 
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WORD 
eWQRO 
ASOT 


FNTABEY 


s ENO 


8,029 


ROANS 

087K 842, RE 
8477600,R0 
RO, INGH 
RY, PRMSG 


tJ 
INCH, RO 
Pg 


842,35 
8,864,342 


RNOLFN 
RNOFNE 


STREN 
STRPNG 
‘STRS! 


ONGEON, 


HLAse 
iVTOS 


RNO 
SIN 
eos 
sar 
ATN 
EXP 
LOG 
ags 


we ee ee 


i INT 
1 SGN 


1 Ta 


y STR 


SIA 


ae 7s 


ey 


BASICH 


ABSrN 
args 
ASKOON 
BASICH 
COLUMN 
€RASCA 
ERLENS 
ERRMIX 
ERRSYN 
ERSGNS 
ERVALA 
Face 
FNEND 
FNTABE 
INJALL, 
INI ye 
wnt 
KBBFHS 
LUMST 
NORM 
ONGEON 
POSI2E 
Posrs? 
POSREM 
PRUP 
REXP 
RNOLFN 
RPLUS 
ny 
SEGPN 
SEGNUL 
StGTY2 
SGNFN 
SOPRAY 
STREN 
TABFN 


MACKX22 -VO22 


6OG246R 
B seeees G 
983132R 
geeog2R 
& eecese 6 
Beg5o4R 
@eg504R 





B@VI20R 





9821670R 
BOS544R 
O82434R 
0624448 
9024g2R 
O82204R 
S eeeeee GC 
BS evcves G 
B02224R 
8 eeevee 6 
901950R 
804970R 
BO3254R 
886874R 
gogeg2Rr 
98G852R 
®X800893 
902152R 
O0140ER 
9633848 
BOG2S6R 
@ eeasee G 
BOL566R 
8883248 
889426R 
3 eveeee G 
9B2250R 
981670R 
8 evesee G 





ERRORS pETEcTEO! @ 


BASJCH 


RUN®T IMEI 


MACX21 = -VO24 


GORE YSED! 3K 


18 SEGONOS 
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agSFNg 
ARRAYS 
ASKLA 
aL 
OECCOR 
ERASCS 
ERPOSA 
ERRNOA 
ERSEGA 
ERSTRA 
ERVALS 
FU_CO 
FNNAMS 
WICQRE 
INJQOF 
INtMY 
INSTY 
KBayrs 
MAKEST 
NORNO 
OPRATO 
POSF 
POSF2 
PosTRY 
PRMSG 
RNOFN 
RNOY 
Ro 

Re 
SEGFNE 
SEGANG 


VALR 
STPBS2 





8 geg04e 
@e2214R 
B80570R 
BeIL4ERR 
BBSLSAR 
BBZ4LBR 
BGL668R 
981556R 

eeoe G 

25Z4R 
GOSIOER 
B92560R 
882970R 
Og2552R 

§ P82820R 

B aeen0eae 
BOSZ4OR 

8 esseen G 
G01124R 
BOLLZOR 
9802056R 
BBSZS2R 
BEGHLOR 

8 esses G 

8xg80088 

sxoeo0g4 
B02426R 
891312R 
OOL4E4R 
SOB3Z4R 

SNG50006 
OOL67OR 
BEGASER 

8 enoees G 

8 OO2875R 








904524R 

921460R 
= 920828 
3 BO3B44R 
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AaBSIn? 
ASCFN 
ASKSER 
CHRFNE 
ERABSA 
ERCHRS 
ERPOSS 
ERRNOS 
ERSEGS 
ERSTRS 
eval, 
FYLLDO 
PNNAM2 
TFPMP 
UNIFN 
UNINXT 
tnt 


LENFN 
MQVOON 
NQUSR 
PC 
POSFN 
POSNO 
Posx 
RANO 
RNOFNE 
RNO2 
Ry 

as 
SEGL 
SESRZ 
ScOxe 
SGNPOS 
START 
TARB 
TABLES 
Tks 
TPOFMS 
T2 
USRGOOD 
VALFN 
VALX 
SULNSP 
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wo0.74R 





BBeLSOR 
0a1444R 
B84604R 
B teoeee 6 
@3L92R 
OG25zoR 
@ seccen G 
882402R 
BB2600R 
SB Gaeeee G 
BOG4I6R 
B02646R 
BOSZ220R 
5X000007 
G69640R 
BBLLLOR 
BOO7IAR 
864 700R 
BeeL4oR 
& eneoee G 
BNDOSOSS 
5x800085 
OHL256R 
OGLSZOR 
984252R 
O0G276R 
9 eneese G 
BORS44R 
o eaneee G 
¥ Geeoee G 
SH2e40R 
B Seoeee CG 
BH22,4R 
984420R 
SILSIOR 
s 969120 


agsx 
ASCFNE 
ASKVY 
CHRSFN 
eRagss 
ERLENA 
ERRARG 
ERRPOL 
ORSGNA 
ERTABS 
FACa 
FILLTB 
PNPAR 
tNeH 
INTHO 
INTSAV 
KBBENY 
LENFNE 
MOVLP 
NUMSGN 
POL 
POSFNE 
POSNXT 
Posy 
ROANS 
RNOFN2 
ANDRM 
Re 
SAVCHA 
SEGUP 
SEGTY 
SGNFLY 
SGNX 
STPAD 
TABC 
TABNON 
TMPSTC 


eeg222R 
080974R 
883056R 
B8G974R 
B0GZ32R 





O@Q314R 
G80432R 
ws seseee G 
B BOSS6SR 
983374R 
BVISS4R 
@02276R 
882612R 
8 BB2B57R 
@OOILOR 
082626R 
ws eeeoee 
Bs eneeee 6 
981152R 
OB1076R 
@01000R 
BB330Z2R 
BOBGLOR 
gpee62R 
axg08002 
BS e0eeee 
B01366R 
OB1Z70R 
B20Z70R 
BOSS1LOR 
BS etesee 
BOBSEOR 
@BBS76R 
@B3364R 
s B82054R 
B enesee ¢ 
O02874R 
BOL560R 
s g29028 





oat 


S375 


ABSFN 
ABSFNE 
AGSINT 
agsy 
ARGS 
ARRAYS 
ASCFN 
ASCFNE 
ASKOON 
aSkiA 
ASKSER 
ASKVT 
BASICH 
BL 
CHRFNE 
CHRSFN 
COLUMN 
DECCOR 
ERABSA 
ERaBSS 
ERASCA 
ERASCS 
ERCHRS 
ERLENA 
ERLENS 
ERPOSA 
ERPOSS 
ERRARG 
ERRMIX 
ERRNOA 
ERRNDS 
ERRPOL, 
ERRSYN 
ERSEGA 
ERSEGS 
ERSGNA 
ERSGNS 
ERSTRA 
ERSTRS 
ERTABS 
ERVALA 
ERVALS 
EVAL 
Fay 


FAG2 


FILLCO 
FULL 
FULLTB 
FNENO 

FNNAMS 
FNNAM2 


FNTAB 
FNTABE 
HI CORE 
TFPMP 
INCH 
INTAGL 
INLOF 
INSFN 
INJHO 
INILP 
TNUMV 
INUNXT 
INTSAV 
INET 
INTTY 
INT 
KBBENY 
KBOFHS 
KBBUFS 
LENFN 
LENFNE 
GUMIT 
MAKEST 
MOVOON 
MOVLP 
NORM 
NORND 
NOUSR 
NYMSGN 
ONCEON 
OPRATO 


Pg 


POL, 
POSIZE 
POSF 
POSF2 
POSFN 
POSFNE 
POSFST 
POSNO 
POSNXT 
POSREM 
POSTRY 
POSX 
Posy 
PRUP 
PRMSG 
RO 


1288 
1588 
125 
126 
43 
35 
2ii# 
2268 
670 
6758 
6628 
6878 
76" 
738 
2408 
2298 
37 
5498 
124 
123 
212 
214 
231 
195 
197 
245 
247 
38 
38 
88 
62 
38 
38 
327 
329 
143 
145 
445 
447 
166 
399 
404 
39 
37 
423 
37 
266 
33 
789 
783 
4668 
604 
605 


589 
688 
568 
“4 
758 
58i 
683 
593 
5658 
3920 
6248 
617 
576 
579 
615 
39 
521 
508 
528 
19460 
2078 
35 
39 
638 
6378 
42 
726 
712 
44 
5538 
39 
728 
326 
574 
33 


259 
381 
2448 
3220 
2956 
329 
3068 
296 
2978 
265 
273 
7348 
365 
658 
152 
292 
403 


a 
7 
1298 
128 
164 
635 
787 
788 
682 
686 
672 
696 
563 


794 
799 
173 
556 
1360 
1378 
237 
2258 
239a 
2050 
2068 
249 
253 
126 


1168 
aise 


423 


336 
1508 
1598 
4o3e 
aoee 
1898 
432 
43a 
79 
112 
123 


785 
7098 
7398 


6088 
6090 


7638 
805" 
648 
555 
7528 
sage 
6240 
3988 
583 
596 
626 
6270 
599 
5828 
6168 


S268 
5200 


229 


694 
$97 


219 


253 
256 
136 


37 
338 
sat 


age 


120 
124 


129 
su7 


7378 
733 


039 


004 
332 


523 


235 
94s 


135 
129 
332 
668 


207 


737 
686 

85 
155 
3ea 
44a 


432 


6998 


2248 


3200 
Sais 
138 


399 
3920 
3938 


442 
127 


134, 
334 


6328 


339 


524 


375 


357 
342 
337 
682 


276 


663 

86 
184 
347 
443 


1358 


205 


189 


194 
133 


134 
368 


5268 


450 


204 
164 
339 
692 


278 


675 

87 
183 
344 
444 


224 


206 


2un 
147 


aa 
4e7 


459 


223 
188 
375 
734 


307 


687 

90 
184 
354 
426 


see 


220 


244 
158 


152 
424 


say 
194 
398 


Sige 


743 


185 
333 
428 


392 


239 


248 
198 


168 


437 
242 
420 


m9 

93 
236 
338 
434 


439 


324 


252 
228 


199 


229 
422 


7330 
96 
237 
363 
436 


463 


393 


326 
258 


203 


235 
444 


734 

Fd 
237 
35 
575 


438 


330 
318 


222 


464 


337 
333 


222 


244 
430 


98 
262 
378 
578 


248 
455 


472 
266 
379 
5R2 


398 
355 


232 


252 
459 


178 
275 
354 
614 


ang 
426 


237 


254 
555 


146 
277 
589 
618 


376 


seP 


RY 
n2 


as 





gipRo 
STREN 
STRFNE 
a 

T2 

tS 
TABB 
TABG 
TABFN 
TABFNE 
TABLES 
TAQNON 
TABNUL 
TBLSEN 
TKS 
IMPSTC 
TPB 
TPBENY 
TPOFHL 
TPOUFS 
TRYCOR 
usR 
USRARE 
USRCOO 
USRLIN 
VAL 
VALCE 
VALFN 
VALFNE 
Vaud 
VALR 
VALX 


' 

1 COMMA 
»RPAR 
SKBBSZ 
SSYKSZ 
STPas2 
SULNSP 


3550 
3928 
1420 
1608 
251 
158 


748 


622 
733 


447 

87 
479 
275 
343 


422 
639 


284 
369 
624 
704 
744 
426 
649 


173 
284 
423 
659 
745 
633 
1846 
638 


727 


765 
727 
493 
960 
436 
7% 
797 
3530 
387 
3356 
Joes 
3638 


3608 


3498 
1548 
776 
779 
1948 
1378 


167 


483 
482 


4268 
3988 
4408 
409 
405 
427 
153 


37 
56 
44 
52 
68 


272 
344 
47 
738 
388 
862 
ee3 
299 
286 


172 
1738 
784 
782 
599 
1798 
1888 
596 
746 
7568 
734 
5398 
5318 
534 
5580 
634 
730 
5438 
eres 
420 
429 
799 
(VT) 
4370 
4ie8 
4348 
474 
246 


527 
634 
536 
542 


122 
433 

69 
182 
277 
347 
are 
099 

68 
285 
379 
025 
795 
742 
424 
653 
112 
479 
299 
424 
654 


908 


439 


sos 


236 
198 


203 
352 
416 
493 


298 
386 


$26 
748 


736 


487 
250 
122 


669 


444 
446 

90 
2183 
286 
349 
445 
782 

9 
286 
374 
635 
766 
754 
434 
632 
143 
198 
298 
449 
653 


oe 


367 


304 
169 


282 
333 
431 


308 
453 


724 


5378 


656 


202 
326 
144 


671 


165 
563 


106 
289 
366 
416 
783 


295 
384 
636 
787 


549 
683 
124 
199 
336 
433 
655 


3908 


47a 


263 
372 
433 


454 


526 
335 
165 


684 


196 
621 


200 
298 
309 
435 
786 

99 
384 
382 
64s 
708 


537 
654 
427 
203 
3268 
454 
637 


7450 


2868 
374 
434 


458 


5278 
196 


Tuy 


555 
655 
12¥ 
228 
347 
436 
638 


747 


293 
377 
433 


528 
23 


693 


238 
632 

97 
203 
292 
373 
449 
708 
125 
306 
423 
663 
729 


568 
656 
432 
223 
318 
589 
659 


177 


246 
636 
196 
ats 
293 
377 
487 
724 
196 
348 
453 
673 
725 


590 
657 
133 
222 
333 
592 
704 


264 


sas 
378 
448 


537 
238 


304 
379 
434 


5380 


255 


733 


258 
639 
495 
246 
295 
380 
577 
725 
114 
342 
452 
675 
727 


595 
134 
232 


334 
5¥4 


200 


312 
330 
457 


539 
3aa 


736 


255 
64 
497 
248 
298 
382 
580 
728 
113 
358 
453 
685 
728 


598 
147 
234 


355 
629 


215 


313 
398 
458 


5428 


448 


738 


328 
042 
178 
222 
sas 
SAS 
ore 


2n0 
360 
365 
687 
733 


616 


149 
237 
369 
604 


2335 


516 
4n3 
460 


7558 


446 


748 
335 


129 
234 
348 
385 
634 


284 
363 
585 
699 
738 


623 
155 
258 


373 
645 


236 


333 
4n8 
552 


759 


749 
34g 


118 
269 
318 
410 
$35 


282 
365 
592 
77. 
739 


6768 
156 
266 


476 
625 


264 


eh 


334 
4t2 
504 


77 


FPMPL2 MACKL2 


ne 


CeOdoVeaw 


FPMPLa 


19 
41 
12 
13 
14 
15 
16 
17 
18 
19 
20 
22 
22 
23 
24 
25 
26 
27 
28 
29 
38 
34 
32 
33 
34 
35 
36 
37 
38 
39 
4a 
44 
42 
43 
44 
45 
46 
47 
4a 
“9 
50 
34 
52 
33 
34 
55 
56 
57 
58 
59 
6e 
64 
62 
63 
64 


MACK1 


a8eoog! 


yeas 


yoe2s 


200804 
882003 
980003 
o0eeay 
980801 
806804 
800001 


880207 


300004 
ogaed4 
200804 
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1 SHAS © FPMP POR BASIC 


SBaSe1 
CNOS2a4 
CNOSSa4 
CNOSi8ai 
GNOS2081 
CNOS2781 
CNOSSOa4 


BASIC SOURCE FILE #9 


1GLOBL ERRFPY » IF enue 


VINITIALIZE FPMP ROUTINE 


JLOFPS #1000 


SLOFPS #1900 


IFPMPY 
“FOF FRY 
sWORD = 4.70327 
sWORD = 3,88 
ENOC 
ATS PC 
VFpU ERROR INTERRUPT KOUTINE 
ERRFPUt 
tPOF = FRU 
WORD = 470227 
+WORO 8= 4.008 
wMP @SERVEC 
vENOC : 
vUPNOF MIN 
CNOS37 82 
CNOSS9a1 
CNOS4182 
eENDC 


ee ReeeOSeeRSrerey) 


FROM HERE ON THI$ 19 THE SAME AS PPMP’ PTX 


RES PORSR ESOS eee) 
FPROOUCT CODE 
COMPUTER 

I CONFIGURATION 

1 

ISOFTWARE REQUIREMENTS 


iy 
DPROGRAM NAME 
IVERSION 


y 
JOESERIPTION 
4 

) 

1 

JAUTHOR 

j 

HOATE 


’ 
) 


OGGoLLaNPPMACARLA 

POP eis 

PAPER TAPE CONPIGYRATION [8 MINIMUM 

ap92 WORDS MEMORY 

PAL @ddS (QR MACROSS) 

LUNKed(S (OR LINKeSS) 

FPMPell 

VERSION LEVEL 14 

PATCH LEVEL A 

FLOATING POINT MATH PACKAGE 

PLUS TRAP WANQLER 

(FLOATING POINY SUBROUTINES TAKEN PROM 

00Se1i FORTRAN [V OTS) 

E, PETERS (TRAP HANDLER & PACKAGE 
INTEGRATION) 

AUUST, {992 

COPYRIGHT £972, OLGITAL EQUIPMENT GORP,, 

MAYNARD, MASSACHUSETTS 02754 


FE/ 
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65 1 sCSECY 

66 sSFOF SINGLE 
87 CNDS294 

68 CNOSS3 

69 CNOS4s4 

78 CNDSOaS 

74 GNOSS8e4 

2 CNOS20e4 

73 CNOS3B84, 

14 CNOSS784 

75 CNOSS684 

76 CNOSS90L 

77 CNOS4iF4 

78 CNOS 4484, 

79 CNOS4684 

80 sENOC 
83 sSPOF =O9UBLE 
82 ENDSis4 

83 CNOSS ag 

as CNOSAa84 

85 CNDSS3e4 

86 CNOSS 404 

87 CNOSS5 04, 

88 CNOSL602 

89 CNOSS 983, 

98 CNOS2884, 

94 CNOS 4503, 

92 CNOS4744 

93 ENOC 

94 sJFOF = SINGLES O0UALE 
95 NOS Bas 

96 CNOSORS 

97 CNOSSie4, 

98 CNOSA2RS 

99 ,ENOC 

tT) IFDF © CNOS38 
181 CNOS2s4 

402 CNOSL 8m 

403 CNOSZae4 

194 CNOS2i81 

405 CNOSSB=1 

106 CNOSS204 

407 vENOC 

ioe i TPNOF rey 
199 EFOF — CNOS3}GNDS261CNOS37} CNDSS9 
118 CNOS2e2 

cert CNOSL8e4 

112 CNOSSORS 

415 , SP Or CNOSS? 
414 aeeees ENOS493 

7 fe 

116 t 

417 LIFOF — CNOSSBICNOSASTENOS{51CNOSL9 aA 
118 GNOSie4 gE 
119 CNOSL 60g 


ene iittala: < a aaa 
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120 CNOS2802 

122 CNOSS352 

122 rJFOF = CNDS$43 

123 CNOS2193 

124 ,ENOC 

125 sENOC 

126 : rJFOF  cNOSS;CNOSES 
127 ET TT EY CNOS2783 

428 +ENOC 

429 .IFOF = CNOSL9ICNOS20 
138 ogee. CNOS2781 

131 880084 CNOSS581 

132 ,ENOC 

133 stFOF = =6CNOS24 

134 CNOSist 

135 CNOS1604 

136 ,ENOC 

437 stFOF = cNDS43 

138 990001 f CNOS2e4 

439 ogogas CNOS1881 

140 1ENOC 

144 ,ENDC 

442 vIFOF = CNOS29 

143 CNOS2784 

144 CNOSS302 

145 ,ENOC 

146 vIFOF © CNOS221CNOS26 
147 CNOS35 01 

148 ,ENOC 

149 ,17OF = CNOSS¥ 

150 990004 CNOS3304 

154 sENOC 

152 iTITLE TRAPOZ 

453 rSFOF = CNOS42 

154 :GLOBL TRAPH, SERRA 
155 Reexe 

4156 RLOXL 2 
157 R282 é 
258 R3AKS 

159 RaaK4 

168 R5eK5 

164 SPSX6 

162 PCaX7 

163 TRAPHE BIC 947,2¢8P) 
164 CLR «(SP) 

165 HOV R5,0(9P) 

166 MOV R4,0(5P) 

167 MOV R3,a SP) 

168 MOV R2,0(SP) 

169 MOV R4,e(SP) 

are MOV RB, o( SP) 

172 MOV 20(5P),RS 
472 Ot 828, R3 3F3 
173 MOV RS, 00477776 


174 MOV L9(SPQ,R4 


TRAPa2 


475 
176 
477 
478 
179 
188 
282 
482 
18s 
184 
285 
186 
187 
188 
189 
198 
29% 
492 
195 
194 
495 
496 
397 
498 
199 
208 
224 
202 
203 
206 
205 
226 
207 
208 
209 
218 
2a2 
212 
233 
214 
245 
216 
217 
216 
249 
228 
224 
222 
223 
224 
225 
226 
227 
228 
229 


TRAPO2 


238 
234 
232 
233 
234 
235 
236 
237 
238 
239 
240 
244 
242 
243 
246 
245 
246 
247 
248 
249 
250 
253 
252 
253 
254 
255 
256 
257 
258 
259 
260 
26% 
262 
263 
264 
265 
266 
267 
268 
269 
270 
274 
272 
273 
274 
275 
276 
277 
278 
279 
260 
284 
282 
283 
284 


MACXSS 


MACK42 


voes 


vo2s 


23eMARo7S 


23eMAR®73 


14154 = =PAGE 283 


PYS42} 


UPGS42 
STKS42 


Sv4s42) 


ST6S42} 


OT2sa2t 


AORS42) 


REYS42) 


MoV 
MOV 
nov 
eye 
ASL 
Mov 
BEG 
MoV 
aye 
aod 
eit 
BEG 
ROLE 
BPL, 
Bcc 
MOV 
aoe 
MOV 
mov 
TS? 
er 
CUR 
CLR 
TST 
MOV 
MoV 
MOV 
MoV 
1S? 
aur 
cMP 
BR 
aod 
MOV 
MOV 
MOV 
MOV 
Mov 
ume 
»WORD 
Mov 
MOV 
MOV 
MoV 
MoV 
MOV 
MOV 
Ts? 
6, 
ect 
TST 
BNE 
TsY 
BNE 
TS? 
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NEGS42) 
CHPS 42} 
PLasa2 
CMiS42 


RT2842) 


RT1S42) 
NADS42} 


PLMSé2) 


PLLsa2y 
STMS42} 


ERRS42} 
FACS42] 


CMRS42} 
CARS42} 


ONE 
CLR 
NEG 
ays 
rsY 
MoV 
MOV 
MOV 
MOV 
MOV 
MOV 
TST 
BEO 
BPL 
MoV 
mov 
cue 
RTS 
MOV 
MOV 
att 
JSR 
MOV 
eWORO 
MOV 
MOV 
MOV 
MOV 
BR 
acc 
MOV 
rsy 
GE 
ago 
oR 
CMP 
BR 
MOV 
aod 
INC 
vst 
BGE 
NEG 
BR 
CLR 
ySr 
@R 
WORD 
vSFOF 


mov 
une 
WORD 
ats 
cM 


ALAS 
CRA) 9 R4 
R4AIRS 
#177708,R4 
Ra 


TBLS42(R4) RE 
ERRS 42 

RA RZ 

63 40000,R2 
PC RZ 
040008,R4 
NADS42 

RS 

PLMS 42 
Stxse2 

RS,RO 
(RB) 6, RO 
R5,16(SP) 
SFACS4206,R5. 


Ra 

ST4s42 

ORS 

o4{R5) 

(RB)o 
ORD, 0 (SP) 
e(RB),0(SP) 
e(R5),e(SP) 
w(R5)ye¢SP) 
R4 


STese2 
(ROO, (ROS 
oT2s42 

#6, ,R8 
(RB) 90 (SP) 
of RB), eCSP) 
{RB}, e(SP) 
o(RG),e(SP) 
SAORSE2,R4 
@R2 

102 
#FACE42,R5 
COP) OP(RSDS 
CSP) ee (R500 
CSP) eC RSQe 
(SP) oy (R5)e 
orc, Re 
WFACSE2,R5 
{R5)e 
NEGS42 
PLLSS4e 
(RB)e 
PLSS4z 


RS 
russe 354 
(R5)e 


PLSS42 
RO 

Re 
00477776, 20(SP) 
RO 

($P)0)RB 

CSP) O,RS 

CSP) ogRZ 

(SP) OgR3 

(EP) o,R4 

(SP) e,RS 

(SP)e 

RT1S4 

niasa 
CSP) e,6(SP) 
CSP) 0, 6¢SP) 
CSP)O,CSPIO 


COP), 20SP) 
CSP) ep 20SP) 


AB, 0R2 
(PC) OyRS 
Facsag 
RO,(RD)* 
Rae(Rbre 
Re, (RBIS 
RS, (RB)% 
REVS42 
STNS42 
RO,RO 

R4 
PLgsez 
69, 0RD 
VPCS42 
(R35), (R50 
uresee 
SP,RO 
#22,R8 
L4¢SP) 
Re 


STxsez 
44(SP 
STKs« 

Ro 

RS, SERRA 
ERRS 4g 
896,008 
CNOS6 


OGARS42,R6 
SCMR 


10e 
00477775 ,24(SP} 
(SP) 67 (SPJ 


TRAPO? 


285 
286 
207 
2868 
289 
298 
rae 
292 
293 
294 
295 
29 

29 

298 
299 
3e0 
30% 
3e2 
303 
joa 
305 
306 
307 
308 
309 
318 
Sag 
312 
as 
344 
345 
316 
347 
318 
319 
329 
323 
322 
323 
324 
325 
326 
327 
328 
329 
338 
333 
332 
333 
334 
335 
336 
337 
338 
339 


TRAPO? 


348 
344 
342 
343 
344 
345 
346 
347 
346 
349 
358 
354 
352 
353 
354 
355 
356 
357 
358 
359 
368 
363 
362 
363 
364 
365 
366 
367 
368 
369 
378 
373 
372 
373 
374 
375 
376 
377 
378 
379 
380 
384 
382 
383 
3e4 
385 
386 
387 
388 
389 
398 
394 
392 
393 
394 
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pr CMEs42 

sENOC 
,1FOF =CNDSS 

CMOS425 MOV #Ga0S4E2,R4 
ve SMO 

CAOS42) ,WORD CMPSA2 
NOC 
PMODER 4008 
OMOOESige000 

TBLS42) ,WORD 8 ¢8)0,8,018.0.8 
WORD = 08 
viFOrF ©=CNOS2 
sWORD = SADR@PTS424PMODE 
sWORD «= SSBRePTSAZAPMODE 
sENOC 
sFNOF CNOS2 
WORD § 8,8 
sENOG 
LIFOF = GNOSS . 
sWORD = FADD PT S42 4PMODESOMODE 
sWORD «= SHBOCPTSAZAPMODESOMONE 
ENOC 
rJPNOF = CNOSS 
WORD §=8y8 
sENOC 
,IFOF  cNOSsS ‘ 
sWORD © CHDS 4Z2eP TS420PMODESOMOCE 
sENOC 
vTVNOF CNDSS 
»WORD 6 
1 BNO 
it70F = §=CNOS6 
WORD «—- CMREARePTS420PMODE 
sENOC 
vTPNOF NOS 
WORD 8 
»ENOC 
;WORD OB 
L}FOF © CNDS3@ 
sHORO «= SM, RePTS42ePMODE 
sENOC 
sUPNOF = CNOSSS 
WORD @ 
sENOC 
viFOr «©6CNOS28 
WORD «= SMLDoPTS4Z4PMODESOMOOE 
sENOC 
vIPNOF = CNDS26 
:WORO 8 
»ENDG 
v1FOF = «6CNDS26 
WORD «= SOVDe PTS 4ZaPMODESOMODE 
+GNOC 
vTPNOF = CNOSL6 
WORD 8 
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vENOC 
WORD 8 
vIFOF ©CNOS28 
,WORD SQOVRePTS4ZePMODE 
,ENOG 
vJPNOF = CNOS18 
WORD OB 
sENOC 
+3FOF  cNos4 
WORD = AINT#PTS42 
vENOC 
vIFNOF = CNDS4 
WORD 8 
sENOC 
WORD 898, 0.H,8,8,8 
sSFOF = CNOSS7 
sWORD «= SENwP7S42,COSePTS42 
,ENOC 
sUFNOF = CNOS37 
WORD = O08 
+ENOC 
Lor GNDSAy 
sWHORD = DS YNePTS4Z40M0DE 
sWORD = OGOS@PTS42a0M0DE 
,ENOC 
LSFNOF CNOSLS 
sWORD = 898 
sENOC 
rIFOF © CNOS39 
WORD = ATAN@PTS42 
,ENOS 
vFNOF =CNOSSY 
«WORD @ 
1ENOC 
WORD D8 
vtFOF © CNDSLD 
sWORD «= DATANSPTS42e0N00E 
sENOC 
sJPNOF GNOSL9 
WORD 8 
,ENOG 
yWORD 8 
1IFOF =CNOS43 
sHORD «= SQRT PTS 42 
,ENOC 
1TPNOF = CNOS4S 
WORD oo 
vENOC 
vIPOF 86 CNOS44 
sNORD = OSORTOPTS4ReDMODE 
sENQC 
vUFNOF =CNOSS4 
WORD OB 
sEN0C 
stPOF = CNDS Se 


3k 


TRaPG2 


395 
396 
397 
398 
399 
408 
493 
402 
433 
404 
405 
406 
407 
406 
409 
448 
412 
412 
443 
414 
435 
416 
447 
448 
49 
428 
424 
422 
423 
424 
425 
426 
427 
428 
429 
430 
433 
432 
433 
434 
435 
436 
437 
438 
439 
rrr) 
yr 
442 
443 
444 
445 
446 
447 
448 
449 


TRAPB2 


458 
as, 
452 
453 
454 
455 
456 
457 
458 
459 
468 
464 
462 
463 
464 
465 
466 
467 
468 
409 
478 
47g 
472 
473 
474 
475 
476 
477 
478 
479 
488 
483 
482 
485 
484 
485 
486 
487 
488 
489 
490 
aon 
492 
493 
494 
495 
496 
497 
498 
499 
500 
504 
302 
503 
504 


MACX12 VOZ% «= 23eMARW7TS «634136 = PAGE 207 


WORD = TANHOPTS42 
vIFNOF = CNOS38 

8 
st70F = CNDS28 
sWORD = EXPaPTS42 
:IPNOF = CNOS28 

8 


v3POF =6CNOSSY 
WORD = OEXPOPTS42a0M0DE 


sENOC 

cTPNOF =CNOS29 
WORD 8 
sENOC 


v1FOF = CNOSS 
sWORD = ALOGaP TE42 
sWORD = ALOGLBePTS42 


ENOC 

sTPNOF CNOSS 
WORD 0,8 
sENOC 


sJFOF =6CNOS36 

sWORD = OLOGePTS4Za0MODE 
eHORD = OL OG AH ePTS42e0M00E 
sENOC 

aSPNOF 6CNOSL¢ 

sWORD = 8 

sENOC 

WORD 890,040 ,0,6,0,6,0,8 
1bFOF = CNDS 44 

WORD = SLOROPTS426PMODE 
sENOC 

' 


IPNOF cNDSaa 
WORD oo 
1ENOC 


vIPOF = cNoses 
sWORD «SL DOMPTS4ZaPMODESOMONE 


etFNOF =GNOS49 
8 


stPOF = GNDS 46 
WORD «= SHTROPTSAZLPMODE 


vENOC 
tIPNOF CNDS49 
‘WORD @ 

1 ENDE 


rUFOF cNOS47 
WORD «=—- SSP OP TS42ePMODESOMODE 


aUPNOF = CNOS47 
a 


MACX14 Yeas 23eMARC73 apse PAGE 208 


sSeot 
SA601 


$aQd! 


sENOC 

WORD 88,8 
sENOC 

TITLE = sagogs 
sUPOF = GNDSL 
GOB, $A00,SS80,SERR 
ROSKe 

Raens 

R2eK2 

R3EXS 

R4exd 

RSBXS 

SP8x6 

PCOX7 

A486 

ayes, 

C1828, 

O1s12, 

Aged4, 

S2ni6, 

Casis, 

02822, 
S{GNSso, 
MQ8277304 
NOR#477342 
LSHOL77344 
ASH847735426 
Fgaxo 

aoo #400088,0SP 
sVFOrF FRY 
»WORD = 378883 
WORD =. 4.72420 
WORD =—-472826 
sWORD = 474946 


MP O(Rare 
,ENDC 

sTFNOF FPU 

MOV R4,0( SP) 
MOV R5,0($P) 
CLR o(8P) 
CUR R4 

CLR a3 

Ast, O2¢SP) 
ROL CECgP) 
ROL 8208") 
ROL AQ(SP) 
8388 ALOL (GP) RE 
Bea ALESS 
ROLB = «@SP 

ASL O¢SP) 
ROL C8t$P) 
ROL BS(SP) 
ROL AG(8P) 


6188 A2408P),R9 
BNE AQNS2 


BEF 


sa0085 


MACX11 


MaAcxia * 


vo2a 


voas 


2yanaRe73 


23eHARe73S 


LL134 = PAGE 209 


aaesai 
AGNSSI 


EXAaSii 


SCRSii 


eCKSit 
SFYS31 


SFRSi1 





44154 = PAGE 2010 


srisit 


S14Si1 


StoSit 


SLSSit 


RORB esp 

ROR AL(SP) 

ROR B3¢SP) 

ROR Gacsr) 

ROR Oa¢5P) 

MOV ALCS?) ,A20SP) 
MOV B4¢SP),82(8P) 
MOV CLCSP),C20SP) 
MOV DACSP),02¢SP) 
Ts? Pye 

une OVrss 

ROLB SIGNSO4(SP) 
Move OL, A204 0S8P) 
Move BL ALOg CSP) 
sus R4,R5 

aGT EXAS’ 

QV AZ(SP), RO 
MOV B2¢SP),RL 
MOV C2(8P),R2 
mov O8¢3P.,RS 
ar SCKS4 

400 A5,R4 

MoV AL(SPD, RO 
mov O4(SP),A2 
MOV CACSP),R2 
MOV O2CSP 72, RS 
MOV AB(SP),AL(8P) 
MQV O2¢SP),82(SP) 
MOV C2¢SP),Ci¢SP) 
MOV O3¢SP),01(8P) 
swae esp 

NES as 

cure SIGNSe4<SP),eSP 
eco EGKSS 

NEG 3 

Age R 

aoc Ry 

ane RO 

NEG Re 

aoe Ry 

aoe Ro 

NEG RL 

age RB 

NEG Lt) 

rs? RS 

8E6 srosy 

GMP #057,,A5 
a4 SPRSY 

MOV ALCSP) RO 
MOV 82¢SP),R4 
MOV CL(SP),R2 
MOV 02(SP),R3 
oR NODSS 

CMP #06, ,45 
OLE sRasi 
vUPNOF = MYLOLY 

CLR #($P) 

Tvs? Ro 

8PL SF4si 

GoM esr 

16NOC 

sMPOF = MULOSY 

Ts? Ro 

sWORD = 886746 

ENoc 

tue 8046, 9R5 
OL? Siesi 

MOV RARE 

MOV REQR2 

MOV RO,RY 

MOV esp Re 

a00 8465085 

BNE Sf4si 

rst (SP)e 

BR SFOSs 

vtPor EAE 

cmp #a3,R5 
ale S8asi 
MOV R4,0SP 
MOV wha,R4 
“OV RJ, ORE 

MOV R2,0(R4) 
MOV R5, 08, SH 
MOV (RE) OR2 
Mov ORG, RS 

CLR ore 

MOV R4,0(R4) 
MOV R5, 00. 5H 
Ts? CR4)¢ 
ays ORG, RE 
MOV RL, One 
MOV RO, e( RG) 
MOV R35, OaASH 
MOV (RAD ORD 
MoV ORG, RY 
mov CEP), R4 
OR svosa 

ENDS 

ebFNOF = EAERSMYLOIY 
cup #08, ,R 
OLE S8asy 

ago 846,585 

ast RS 
ROL R2 
ROL RY 
ROL RO 
ROL esp 
EC Ld 
acy SL85% 
MOV RO RS 


B70 


39/ 


SAD0@5 MACXi2 


615 
616 
647 
648 
619 
629 
624 
622 
623 
624 
625 
626 
627 
628 
629 
630 
634 
632 
633 
634 
635 
636 
637 
638 
639 
640 
644 
642 
643 
644 
645 
646 
647 
648 
049 
650 
654 
652 
653 
654 
655 
656 
657 
658 
659 
668 
66 

66 

663 
664 
665 
666 
667 
668 
669 


—— 


sA0005 


670 
674, 
672 
673 
674 
075 
676 
677 
678 
679 
688 
684 
682 
683 
684 
685 
686 
687 
688 
689 
690 
694, 
692 
693 
694 
695 
696 
697 
698 
699 
708 
704 
702 
703 
724 
705 
706 
707 
708 
709 
718 
744 
712 
713 
714 
745 
746 
717 
718 
719 
728 
724 
722 
723 
724 


MACXA1 


Voas 


Ve2d 


23eMARe73 


23eMARe73 


24154 PACE 2043 


Si6sit 


SOAS4) 
SRasi} 


Srosii 


NOOS4I 
NFLSSI 


MOV 
MOV 
MOV 
ar 
16NOC 
2 TFOF 
CMP 
BLE 
mov 
MOV 
MoV 

1 WORD 
MOV 
,WORD 
MOV 
MOV 
MOV 
yWORD 
MOV 
MOV 
BR 
,ENOC 
Ts? 
asrR 
ROR 
ROR 
ROR 
INC 
La 
aoo 
age 
aoc 
aoc 
400 
aoe 
aoc 
apo 
aoe 
ano 
CMPB 
BNE 
aT 
BEo 
asR 
ROR 
ROR 
ROR 
ING 
SWAB 
BNE 
9388 
ROR 
ROR 


1134 = PAGE 2012 


Ourss 


OvPSa} 
OvRsi1 


UTSsai 
UNFS41 


UNOS4I 


ZERSit 


SVBSiI 


BT9sa) 


ROR 
Age 
aoc 
aoe 
aoe 
avs 
acs 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
ano 
wMP 
TS? 
JSR 
aR 
BYTE 
vBYTE 
T§T 
act 
VSR 
BR 
BYTE 
save 
CLR 
CUR 
SUR 
CLR 
CLR 
CLR 
BR 
TST 
8G? 
Bea 
NEG 
aoc 
aoe 
aoc 
NEG 
aoc 
aoe 
NEG 
aoe 
SWAB 
NEG 
C1 x-] 


sIFOr 
err 
BNE 
MOV 
MOV 
MOV 


RagR2 
RO,RL 
(SP)e,Re8 
SFross 


MULDIY 
#aS,Rd 
S8asy 
R4,0SP 
RS, a(SP) 
RLsR4 
a73805 
R2,R5 
073419 
R2,R4 
R3,R2 
R3,R3 
873429 
RS,R3 
(SP) 0,R4 
SFoss 


CgP)o 

RO 

Ry 

R2 

RS 

RS 

SROS4 
O4(SP),R3 
R2 


Ra 
Ra 
CEESPY RZ 
ab 


RB 
BSP RRL 
Ro 


ASCSP))RO 
SIGNS*4 (SP), eg? 
SYBSs 

RO, e008 

NOOS4 

RO 


RS 

RS 

Re 

RY 

Ré 

OVRSS 

OVASS 

RQ, A20002(8P) 
RL, B20602( SP) 
RZ, C2e002(S8P) 
ahi 
(GP) OARS 

(SP) o,R4 
#9, , SP 
O(Rane 

($P)e 

RO, SERR 

oyrss 

3 

1 


Re 
NQOS3 
R53, SEAR 
yhoss 


375 


SA0D25 MACX11 


725 
726 
727 
728 
729 
738 
733 
732 
733 
734 
735 
736 
737 
738 
739 
740 
744 
742 
743 
744 
745 
746 
747 
748 
749 
750 
73% 
752 
733 
754 
755 
736 
737 
758 
739 
768 
76% 
762 
763 
764 
765 
766 
767 
768 
769 
778 
74 
772 
773 
774 
775 
776 
177 
778 
779 


SADDG5 MACX11 


788 
784 
782 
783 
784 
785 
786 
787 
788 
789 
799 
794, 
792 
793 
794 
795 
796 
797 
798 
799 
(TT) 

» 882 
802 
803 
604 
805 
806 © secee2! 
807 
eo8 
89 
610 
rey 
612 
813 
e14 
B15 peewee! 
816 «geee18! 
817 gepei2¢ 
818 ge0B14! 
819 ope016! 
828 aeee22° 
821 ope026! 
822 990852! 
823 o00834! 
824 990836! 
825 990042! 
826 990046! 
627 epog5e! 
828 300854 
829 g20056! 
832 agag6e2! 
831 oBon66! 
832 090874! 
833 agaqe2! 
834 o9a1e4! 


ve2a 


voas 


280008 
289083 
800802 
980685 
oeggn4 
880005 
800886 
280007 
908020 
808006 
300806 
0900s 
0908s2 
177302 
177304 
177312 
177316 
2008 
862746 


310446 
089046 
995982 
305803 
286366 
386166 
136603 
o91574 
186116 
086366 
086166 
156602 
681814 
106016 
2806866 
986966 
916666 
816666 
080550 
186166 


QeMARo7TS 41154 PAGE 2013 
MOV RB, 02{R4) 
CLR @oNnoR 
MoV OBNOR, e(SP) 
sus 40,057 
MOV REA OR4 
MOV RB, (RG) 
MOV OS? ,08,SH 
MOV (RO) ORO 
Mov ORG, RY 
MOV RE, ORG 
cn o(R4) 
MOV @SP, 8, SH 
Bis (ROD RY 
MOV RY, Ona 
MOV RE, (KG) 
MOV OS? , 08, SH 
MOV (RO), R2 
MOV ORG, RS 
8u8 (3P)4,0SP 
MOV (OP) O,R4 
act NOOSS 
8R UNFSS 
,ENOC 
B9asas Bit RO, 8408 
BNE UTSsa 
vec Ré 
ASL RS 
ROL Re 
ROL Ry 
ROL RO 
BR 89S 
27ssii 88 80,,,R4¢ 
Ys? RY 
BNE 27484 
SUB #24, 184 
MOV RORL 
BNE av2si 
sya a4, ,K4 
Ts? 3 
sca ZERSY 
ose REAR 
SwaB Ry 
SWAB Rs 
8138 RS, RO 
GLR RS 
BR 8y9ss 
272841 MOV RGARZ 
CLR aj 
27{sit swag RL 
ose RU, Re 
CLR RA 
waa R2 
ese R2,R1 
CLRe R2 
swas as 
23eMARC7S «11154 PAGE 2014 
BSB RI,RZ 
CLAS RS 
BR eToss 
1 ENDC 
vENOC 
iTITLE SAORG4 
sJFOF = CNDS2 
:GLOBL SADR, SSBR,SERR 
REGKD 
RISKY 
R2a%2 
RIEKS 
Rane 
«RSENS 
SPeXx6 
PCEK7 
S}GNSeo 
aged 
B186 
A226, 
82310, 
AC8477302 
MQ8477304 
NORSL77392 
ASHBLITSLO 
Fesxo 
190908 sserRi = A00 syogeee, esp 
iiPOF |oFPU 
SAGRt ,WORD 1378004 
WORD §=4.72420 
»WORD =. 4.72926 
sWORD =: 174046 
JMP OCRajye 
1ENOC 
vSPNOF = FPU 
SADR} = MOV R4,0($P) 
CLR «(5?) 
Cyr R2 
CLR R3 
090906 ASL Ba(S") 
298804 ROL ALCSP) 
898085 8138 ALo1 (SP), RS 
BEO ourTs2 
ROLB esp 
900012 asl 82(SP) 
ogeeie ROL, Aa¢sP) 
090013 e1se AZO4 (SP), RZ 
SNe AGNS2Z 
RORB esp 
o9ea04 ROR AQCSPY 
090006 ROR 83157) 
00804 s98830 MOV AL(SP),A2(8P) 
90806 gBe42 MOV B469P), 82497) 
8R ourse 
ogee, A2NS21 ROLB SIGNSo4¢SPy 


394 


751 


SAORO4 


835 
836 
837 
838 
839 
e40 
843 
842 
843 
aaa 
845 
846 
047 
848 
049 
850 
854 
852 
853 
a54 
855 
856 
637 
658 
859 
868 
864 
862 
863 
866 
965 
866 
067 
868 
869 
878 
B73 
872 
873 
874 
875 
876 
877 
878 
879 
6a0 
884 
882 
883 
864 
885 
886 
887 
888 
B69 


sAoRe4 


890 
694 
92 
893 
894 
895 
896 
897 
898 
899 
980 
90% 
902 
903 
904 
905 
906 
907 
908 
909 
918 
911 
912 
913 
914 
915 
916 
947 
918 
9419 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
938 
934 
932 
933 
934 

935 
936 
937 
938 
939 
940 
943 
942 
943 
944 


MACX1L 


0001106 
ooa116! 
000124! 
880126! 
880138! 
aa1340 
oaa1sg! 
one142¢ 
aeeisa? 
800150! 
080154! 
099162! 
090178! 
090172! 
000174! 
gee2e0! 
aae2e2! 
goe2n4! 
890206! 
see2ia! 
oge2i2¢ 
Tirey 
908229! 
gee222! 
880226! 
909232! 


oezsa! 
oea24g! 
oep2se! 
Be0244/ 
080246! 
oe0250! 
aee2s2e 
900256! 
000260! 
090262! 
oon264! 
o8027¢! 
gao272! 
080276! 
890300 
ooo3044 
800306! 
880310! 


MACX11 


880312! 
O0314! 
080316! 
oeoses! 
888322! 
ogose4! 
880326! 
880330! 
880332! 


BBO334s 
880349! 
280344! 
900346! 


. 888352! 


8B8354° 
980360! 
886362! 
OBO364! 
O20366! 
O20379! 
886372! 
000374! 
898376! 
880400' 
888482! 
989404! 
280406! 
800410! 
000412! 
aoe4aiaé 
090429! 
880424) 
880426! 
800439" 
8890432! 
BB0434! 
000449! 
000442 
800443! 
OB0444! 
O20446! 
880459! 
080452! 
00454! 
000456! 
Ben46g! 


vees 


112766 
112766 
160302 
883005 
816680 
016631 
880415 
860203 
816688 
816604 
816666 
916666 
860316 
889408 
126616 
081423 
085403 
085520 
085408 
095782 
001459 
822708 
093403 
816608 
216603 
880456 


822702 
883433 
op5ec4 
985720 
100004 
985194 
822702 
082405 
010093 
340400 
062702 
oe142y 
922702 
083432 
962702 
886304 
096108 
366106 


Vee. 


885302 
883373 
010003 
910400 
880424 
296200 
886084 
885202 
882774 


866600 
066604 
885509 
126616 
001934 
930227 
eo44as 
op62ee8 
306904 
285293 
080303 
081028 
150803 
986016 
o86803 
086884 
005525 
005503 
182444 
183410 
918366 
410166 
885726 
842604 
822626 
280134 
204567 
090774 

003 

022 
085709 
aBSe05 
aBi4is 
085400 
085404 
385628 
080316 


235eMARO7S «= 12534 


890001 888041 
C9888, oeee85 


090012 
300042 


O88804 
B08B26 
O88818 BB00R4 
BRO2L2 868006 


090004 


477747 


ovages 
aeages 


4777798 


177768 


ogeeze 
477778 
oope2e 


23eMARe7S 11154 


egoges 
990026 


88800) 
904008 


980038 
990042 


oeSeon 


EXaS2] 


SCKS2) 


ECKS21 
SFPS2t 


SFRS2} 


SFRS2) 


SFRS2) 


NCPS21 


SRLS21 


SFLS21 


SFes2) 


SFOS2t 


NOOS21 


SYRS21 
oursel 


OVRS2} 


SUBS21 


BT9S2) 


PAGE 2045 


Move 
MOVB 
sus 
BGT 
MOV 
MOV 
BR 
00 
MOV 
MOV 
MOV 
Moy 
$waB 
NEG 
cups 
BEG 
NEG 
aoe 
NEG 
rs? 
bea 
CHP 
OLE 
MOV 


ROL 


PAGE 2016 


cee 
BGT 
MOV 
MOV 
BR 
ASR 
ROR 
INC 
BLT 
+ ENOC 
ano 
400 
AOC 
cMPS 
BNE 
BIT 
8EO 
ASR 
ROR 
INC 
SWAB 
ONE 
8388 
ROR 
ROR 
ROR 
aoc 
aoc 
Bys 
BCs 
MOV 
MOV 
1s? 
MOV 
cup 
vMP 
vSR 
BR 
BYTE 
BYTE 
TST 
act 
BE 
NEG 
NEG 
3BC 
SWAB 


TF Or 
BIT 
ONE 
“OV 
MOV 
CLR 
sus 


OL, A204 (SR) 
HL ALOECSPS 
RZ, RZ 

ExXas2 
AZCSP), RE 
ae 
SGKS2 

R@,RS 
ALCSPY, RO 
OL(SP),RS 
AZCSPY,AL(SP) 
82¢8P),814$P) 
ose 


Re 
SIGNSe4(SP), 097 
EGKS2 

Ry 

RO 

RO 

R2 

sros2 
0025, ,R2 
SERS2 

AL( SP), RO 
pt 
nOOs2 


EAE 

Ry, oan 

RO, ewac 

RZ, O8ASH 
eeHa, RS 

OBAC, RO 


MVQOTY 
873002 


CAESMYLOIV 
#06, R23 
sFrose 


Re 
SFus2 
RORY 
R4,RO 
sFos2 
Rb 
AY 
R2 
SFos2 


AX(SP),R0 
Ba(SP),R1 

Re 

SIGNSO4 (SP), eSP 
SUBS2 

RO, #1000 

NoDs2 

RB 

Ri 

RS 

RS 

OVRS2 

RO,RS 

asp 


OvRs2 
OVRS2 
R3,A24SP) 
RL, B26SP) 
(SP) 
(SP) e,R4 
(S$P) 4, (SP)e 
OcRaye 
R5, SEHR 
oyrse 

3 

2 

Ro 

8T9S2 
27882 

Ro 

Ry 

Ro 

esp 


CAE 

RO, 0708 
ByAS2 
REoana 
RO, eeAC 
@BNOR 
OBNOR,RS 


77 
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945 mov #06, @8ASH 
946 aod #O,R3 
947 BLE UNFS2 
948 MOV O8AC, RO 
949 MOV OeMa, RY 
950 eR nNoOS2 
954 ENOC 

952 g80462! B3ee27 agn408 a9as2y BIT Ro, 8400 
953 998466! JB1014 BNE uTss2 
954 980479! SB5303 DEC RS 

955 980472! 386303 ASL RL 

956 900474! 286108 ROL RO 

957 300476! 000773 BR BVAs2 
958 opeseg! 285704 z7ss2, TST Rd 

959 vIFOF = EAE 

960 BNE 81982 
964 8R BERS2 
962 2ENOC 

963 iJFNOF EAE 

904 990582) 001415 BEG ZERS2 
965 8890504! ge0381 SWAB RY 

966 900506! 159108 CEL) RL, RO 
967 ge05i0! 185003 CLRB RA 

968 880512! 162703 900028 3UB 08, RS 
969 990516! 290762 BR BT 9s2 
978 vENOC 

97, 899529! 665703 urss2y Ts? Rg 

972 888522! 883322 oct noos2 
973 090524! 084567 B85510 UNFS21 JSR RD, SERR 
974 990538! 80404 BR UNOos2 
975 9905352! 005 BYTE = 98 

976 890533! 002 BYTE 2 

977 9090534! gasees UNOS2] CLR Ry 

978 980536! o95203 ZERS2t CLR RS 

979 980549 990725 BR STAS2 
980 ,ENOC 

984 , sENOC 

962 1,607 

983 


BIE 
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904 ' RASIC SOURCE FILE #40 
985 ‘TITLE = SALGOY 
986 sJFOF = CNOSS 
987 16408, SERR,ALOG 
988 LTVNOF = $@as 
989 +GLOBL = ALOGae 
990 sENOC 
994 sSFNOF FRY 
992 sGLOBL SPOLSH, SAOR, SSBR,SMLR,SOVRySIR 
993 ,ENOC 
994 990000 ROBKB 
995 809g01 RLEXS 
996 200902 R28%2 
997 200803 REX 
998 TTT R4EX4 
999 000085 R5EXS 
TIT) 980886 SPSx6 
2001 900007 PCEX7 
4002 TTT) Foaxe 
1003 090004 Fiexs 
1004 opoge2 F2ex2 
1095 280003 F3ax3 
1206 wJFNOF FRU 
4097 
1298 rTFNOF = $848 
1009 ALOGSO1 MOV orc, e(SP) 
1218 gR LOGSs 
3042 ,ENOC 
1012 . 
1213 000542' g95846 ALOG! CLR =(SP) 
1014 990544! 036504 age082 LOGSS) MOV 2(R5)yR4 
1215 808559! 012746 974030 MoV 8271038,0(SP) 
2016 000554! 212746 137061 MoV 8137664, 0(SP) 
1017 800568! 324646 cmp =(SP),0(SP) 
1018 380562! 036446 aeo002 MOV 2(R4),0(SP} 
1219 988566! 341446 MOV ORG, 0(SP) 
1228 008579! BO35346 BLE ERRSS 
1021 880572! 096316 ASL esp 
1022 008574! 116666 90881 200014 MOVE 105P)442,68P) 
1023 98002! 112766 seezDe Beoee, MOVve 0260,4(SP) 
1024 300618! 286016 ROR esp 
1825 880612! 012746 392565 MOV 8882395,0(39P) 
1926 380616! 032746 240065 MOV 9048065, 0(8P) 
1227 aee022' 246646 oen086 MOV 6(SP) pe 8P) 
4228 880626! 016646 00006 MOV O(SP),e(SP) 
1029 = 3886352! 012746 «392305 MOV 9002303, 0(SP) 
1238 388636! 912746 6940065 MoV #0409065, 0(SP) 
LEST. “OU0642! “Cb4ae7  D85256 usr R4,SPO,SH 
1832 290646! goge2! aoe760! oBoRE6 :WORD = SSBR, YPS3, SADR, SOVR 
800654! 28,234) 
1033 ’ Bice 
1034 990656! coige6/ caqeas! WORD = OUP, OUPSS S77 
$235 690662! 992322) ag0734! oB8746) sWORD «= SMR, REGSS, STKSS, SPIKES, STKSS 


090679! 290746! 300746! 
1036 200674" 292322! o9e006! BB2z322! sWORD SMR» SADR, SHLR, SADR, SHLRy SADR, SHUR, SADR 
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000782! ogaeag! ae25z2¢ BRAaRE! 
A aee71e/ eg2sz2! oseses! 
403 
1038 090724! 088772! BAZzSE! CBLoZa! WORD «= SCL Ss SIR PL 2SS, SHER 
880722! Be2322! 

1939 990724) aa0806! cBLes2t WORD «=: SADR EXIST 
4246 
1844 898738! B82522! Geyeset WORD = - SALAS EXEST 
1042 080734! o12608 REGSS} «MOV C9P) 0, RB 
4243 000736! 012604 MOV CSP) OR 
4044 898749! 012722 BaLri6# MOV OGONS3e4,R2 
1245 996744) asedaz BR sTess 
1846 980746! 219146 STKS3 MOV Ht oat Ha 
4047 80758! 910946 MOV RO, 0 (SP) 
$048 380752! 034246 sTesst MOV e§R2),0( SP) 
1049 888754! 234246 MOV o§R2),0(SP) 
4052 090756! 090134 JMP ecRaye 
105% 898768! 032666 00032 uPs3si = MOV ($P 6949, (9P) 
2052 090764! 042666 oBea%2 MoV CGP) 0798, (SP) 
48953 998779! aBe1S4 ump (Raye 
1954 090772! 905046 SCLSSt CLR =(SP) 
4255 808774! 156616 o800e6 e388 0(5P),eSP 
2056 091900! 162716 oe0200 8UB 9200,0SP 
1057 «a8y0e4! oBg434 ume egRaye 
1058 2001006! 016646 oBone2 ourss} MOV 20SP)ee(SP} 
1859 991012! 816666 sgn022 MOV 2¢SP), (SP) 
1868 081016! aB0134 Jur O(Raje 
4063 881928! 042746 073030 PLOSS} MOV 4871030, 0(8P) 
4862 881024! 012746 340061 MoV 9848664, 0(S8P) 
1963 981950! 380134 : uMP OCRa)e 
4264 881032! 195366 sgeR05 EX{S3} OECB 5¢S8P) 
4065 964836! 992405 Or 733 
1966 304040! 032746 959732 MOV 8095734 ,0(3P) 
1067 984844! 032766 037736 MOV 9837736,0(8P) 
1068 001058! 290134 Phd O(Raye 
1069 004952! 212600 LGfSS| MOV (9P) 4) RO 
1878 002054! 312603 MOV CSP) OARS 
127% 084256! 395726 1sT trie 
1272 oByeee! ceeges RTS RS 
1873 981962! 262706 290016 ERRSS} = A00 044,97 
4074 084866! 004567 223349 vgr RS, SERR 
1979 «901872! 200205 Rvs RS 
10976 «6901074! a0 :BYTE 4 
1077 «991075! B12 BYTE = 48, 
1078 sENOG 
4079 siror = FRY 
1088 
4064 sUFNOF =$GA8 
1082 ALoGse) MOV oPg, RA 
4083 cue L0ass 
1084 1 
ies 400 
1286 AuoGi «= CLR R4 
1287 LO6S3; SEF 
1088 SETI 

SALGGS MACX14 VO2L 23eMARe73 11134 PAGE 302 
1089 mov #FCOSS,RO 
1090 LOF ©2(R5),F2 
109% croc 
1092 BLE ERRS3 
1893 SYEXP = F2,R4 
1294 LOCIF R4,FS 
4295 MULF (RB) Oy FS 
1996 LOEXP =, F2 
1097 OF FacFt 
1098 SUBF (RO) 2 
1299 agor (ROQO FS 
1108 OvVF F4,F2 
1191 oF F2yFL 
1102 MULP Pairs 
1123 MOV 83, R4 
1104 LOF (ROO CFS 
1105 xPOSS} MULF Fuaro 
1106 bec Ra 
1107 aoor (RO)o—FO 
1128 ec’ XPOS3 
1109 MULF F2,Fe 
1110 ADOF (RO)O, FD 
iiat ADOF F5,7o 
1112 TST 4 
1113 BEQ LGTss 
1114 MULF = (ROD Oy FO 
1415 LGfs3; Str FB, e(SP) 
1116 MOV (SP)o,RO 
1217 MOV (SP)e,RE 
1118 avs a5 
1419 ERRSS} SR R5,SERR 
1120 avs RS 
1123 1BYTE 4 
1122 :BYTE «185 
4123 FCoSS} ,WORD 240063,974030 
1124 WORD «© 0.49065,802363 
1125 ENO 
1126 981976 337632 914525 WORD =. 957634 ,9149525 
1127 904102! 337714 120036 sWORD «= 97724,228036 
1128 381106! 349952 125332 «WORD 848852,125352 
1129 981112! 240488 gao000 CONS3} ,WORD 040488, 000809 
1138 sUVOrF  FPU 
1132 :WORD =. 45 7663,974038 
1132 WORD §«=.837736, 055731 
1133 vENOC 
1134 +ENOC 
1135 :TITLE SANTOS 
1136 :IFOF = CNOS4 
1137 1GLOBL AINT, SINTR 
1138 seooee RQRKB 
1139 opeaes RUNS 
1148 OB0002 R28K2 40 / 
1242 3egees R3PKS 
1142 ogoen4 R4OEKS 
1143 ooaee5 R50Xx5 


- - rr 


Ayu 
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1144 geeees SPexe 

1445 opege7 PC8X7 

1146 177304 "Q8177304 

4247 177384 LSMaL77326 

1148 eeee Foexe 

1249 ogoges Fasxs 

1158 vTFOF oF PU 

1454 

1152 :JPNOP. 38a 
4153 AINTI =, WORD 478003 
1154 WORD = 472473,2 
1155 WORD =: 1.74467,24 
1156 sWORD =. 4.74146 
2157 MOV CEP) ORO 
1158 MOV (SP) 0,82, 
1159 Rvs as 

3268 sENOC 

4262 

1462 SINTRE ,WORD 370003 
2163 sWORD 4.72426 
4164 sWORD =. 11.74.4674 
4165 sWORD =: 474446 
1166 ome (Raye 
1167 ONES4| ,WORD 040298,0 
1268 sENOC 

1169 stPNOF FRY 

1278 092116/ 036504 soeg82 AINTE = MOV 2§R5) RE 
1274 804122! o1i40g MOV @R4, RB 
2272 001124! 216403 spg802 MOV 2GR4) 9 Ra 
1473 984238 310702 MOV PG, Az 
1374 «984132! e9g4a3 eR alise 
1475 884334! 395903 SINTRE CLR Ra 

1476 8821564 212608 MoV (SP) 0,88 
2477) 881246! 012603 MOV C3P)O RY 
1478 984142! 319903 Algs4) MOV RB, RS 
1479) 804944! ga6103 ROL Rg 

1288 604146! 195083 CLAS R 

1283 991150! geg3a3 gwaa OR 

1182 801152! 162703 seeese sue 6235,R9 
1483 001156 g92g29 GE ONES 
1484 903160! 222703 177798 cup 8030,K5 
1485 984164! 282403 aur SMPS4 
1384 991166) geseeg CLR ag 

1487 982176! 395003 CLR Ry 

1288 894172! 990412 aR ONES4 
1189 994174! 019346 SHPS41 MOV RZ, eC 3P) 
11998 sUPNDF = EABSMULOTY 
1494 991176! so6gce RORS4} AOR i] 

1492 994200 286903 ROR Lg | 

2493 994202" 399203 INC ay 

re 001204! 202774 BLT = RORSS 

ry 801286! 032683 Mov (9P) 0, RS j 
1496 884210" 386304 ASLS41 ASL ay Igo 
1497 901212 006100 AOL, ao 

1198 981214! g98203 INC R3 


aap SN Gv PS SERIE PAPO BE? PO ET TT Te ED 
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1499 881216 802774 OLY aSus¢ 

1208 sENOC 

1281 iJFOF = EAR 

1202 MoV ang Rs 

1203 MOV Rg, eng 

4204 MoV RB, @(K3) 

1205 MoV eS? ,0SLSH 

4286 NEG osr 

1297 MOV {SP )o,@eLSH 

1208 MOV (RS) 6) RO 

1209 MOV ORS,RY 

1218 ENC 

1243 vIPOF = MULOLY 

1212 ,WORD «873849 

1213 NEG esp 

1214 sWORD =. 873029 

4245 NOC 

1216 ga1228 995702 ONess} TST R2 

1217) 083222) 904404 BE ONGS4 

1218 «901224/ g89205 ats RS 

1219 081226 219146 ONES, MOV RY,e(SP) 

1228 001230' 319046 MoV RG, 0( SP) 

1221 0012324 o00134 une O(Rajye 

1222 1 ENOC 

1223 sENOC 

1224: rTITLE sgmuog2 

1225 vIFOF = cNOSS 

1226 1GL08L SCM 

1227 Aged 

1228 ALeXs 

1229 R2eK2 

1238 RasXa 

1231 SPax6 

1232 PCaX7 

1233 Foexa 

4234 +I7OF = FRU 

1235 SCmO1 =, WORD. 378843 

1236 WORD = 472426 

1237 :WORD =: 73426 

1238 :WORD 478008 

1239 ume O(Rejye 

1240 vENOC 

1243 vIVNOF OFPY 

1242 SCMOI = MOV orc, Re 

1243 MOV 8, (SP) Rt 

1244 BGE resss 

1245 ASL, Ro 

4246 mQV CRP) SARE 

1247 aL’ segs 

4248 BR NEGSS 

as rpgssy Moy §2P) 6, R2 s 
oY PLaS5 ; & 

1253 SMESS| CMP RYRZ 10 = 

1252 BNE oyrss 

41253 cur 8,037), eSP 
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1254 Ne ours 

1255 Cur 20) (SP) ,2¢9P) 

1236 BNE outss 

1257 cue 425 (SP) 4¢8P) 

1258 ONE OUTSS 

1259 CLR RO 

1268 OUTSs; ROR RO 

1263 acs PLSS9 

1262 NEGSS} NEG RB 

1263 PLSS5y 0=A00 044,,5P 

1264 Ts? RO 

1265 uur OCR4)e 

1266 vENOE 

1267 sENOC 

1268 :TITLE SOMROZ 

1269 ,}POF © CNOS6 

1278 1GLO0BL, SMR 

4273 RoaKe 

1272 RaeXS 

1273 R2eX2 

4274 Raexs 

1275 SPeXx6 

4276 PCax7 

1277 reexe 

1278 vIfor = oFPY 

1279 SCMRI =,WORD = 378003 

1288 WORD = 472420 

2283 sWORD = 473426 

4282 »WORD 476008 

4283 JMP O( Raye 

4284 sBNOC 

1285 vTFNOF FRY 

1286 SCMRt MOV ofc, Re 

4287 MOV 4¢8P) QR 

1288 BGE FPss6 

4289 AS, RB 

4298 MoV ¢$P)e,R2 

1293 BLT SMES6 

4292 aR NgQS6 

1295 FPS$S6) MOV (SP )6,R2 

4294 BLT PLSS6 

1295 smeséy CMP RL,R2 

1296 BNE ourse 

1297 cup 4¢9P),eSP 

1298 BNE ourse 

1299 CLR Ro 

1308 Oursé6) ROR RO 

1303 acs PUSS 

4302 NEGSOS «NEG RO 

ages PLSS6I aoe oe : 

4 TST 

1305 AT ld A(Raye 0 

1326 vENOC ey: si 

$307 vENOC 

4506 rTITLE «$08.08 
SOBLO2 MACX12 VO2i_  23eMAR@7S 111354 PAGE Sed 

1309 vIFDF = GNDS7 

1310 

4312 1GLO8L OBE 

1342 ROK 

4313 RLAKL 

4314 R2EN2 

4315 R3eX3 

1316 ROOKS 

1347 _ OBLEI MOV 2(R5) (RZ 

4318 MOV (RZ) O)RO 

4319 MOV @R2,RE 

1320 CLR Re 

1321 CLR RS 

4322 RvS RS 

1323 sENOC 

1324 +TITLE SOCIOL 

1325 ,}7OP =CNOS8 

1326 +GLOBL SOCT,SRCI 

1327 Roexe 

4528 RYaNe 

1329 R28K2 

1338 RSEKS 

1334 RaeK4 

1332 R5exs 

1333 SP8X6 

1334 PORK? 

1335 NUMEND®@ 

1336 POINTL 82 

1337 OIGITSs4 

1338 BEXPE6 

1339 ES{GNeS, 

1349 SIGNaiB, 

1342 EEXPa12, 

1342 Ps3Q, 

1343 0832, 

1344 ERP=26, 

1345 LENGTHS34, 

13546 TEMPSLENGTH 

1347 RESULT aP 

1348 START#36, 

1349 ENOSSTART 

1358 SRETI «= CLR o(3P) 

1351, ING ogp 

1352 aR CNVS8 

1353 SOCTI CLR o4sr) 

1354 CNVSBy MOV RO 06 9P) 

1355 MOV RQ, 0C3P) 

1356 MOV RZ, 0(5P) 

1357 mov RJ, 0(8P) 

1358 MOV be ha 

1359 MOV thd 

1368 CUR o(sP) ; 

1363 cur o¢SP) DOS” 

1362 cur o(3P) 


§ 
1363 MOV 995,,0(SP) 
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1364 
ae mov 048,,0¢SP) 
ae CLR 0437) 
pe CLR e(SP) 
ae MOV START (SP) RS 
1308 aoo LENGTHCSP),ENDCSP) 
ue CUR ae 
nh GUR Ry 
4372 te My 
nae CLR RY 
SCNS81 MOVE (RB) O) RO 
1875 eye #477600,R4 
Ad cuPe Raye! 
a BNC $osso 
ed cup RS, START(SP) 
is the fen 
380 : 
i388 SG3S8i CMPB nyate 
ae eco FLOSS 
eet Cure R4,gfe 
1384 ane As 
ies et ae 
386 
4308 NX?set MOVE (R59) o)R4 
PH aye #277606,R4 
a crs R4,a 
sass BNE NCKS8 
ae MOV H16,R4 
a NCKSOt CMPB R4,8°0 
1305 BL? PCKS8 
a BNE NN@S8 
1395 ane WN 
re BNE NNZSS 
130 Ys? RY 
aa BNE NN2S8 
3359 TsT Re 
eH BNE NNES8 
ist ree Foose 
Fert NN@SQ1 «CHPB Re aly 
be , aG7 excess 
ies lay OLGITS(SP) 
he UGE aztse 
iter te 
es . 
erty azisey sus #G6,R4 
pts usr PG MLS 
ere usr PG LPTS8 
ee aoa Ra, : 
ae48 age R 
1414 ioe ne 
4445 ane oH 
ae FLosat GMP RS, ENQ(SP) 
ae Moy ate wee 
a4. scysey TST a 
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1449 
a BNE sgise 
ue Ts? Ri 

sn BNE SCis8 

eas BNE SE 

1424 ees 

1425 ue 2 

ee BEG ZERS8 

haze scissy; CMP esr, R> 
1428 sus mop) 

eee (SP), EEXP{SP) 
oe NoPset TST POINTH ISP) 
gece - PNTSE 

eed 0¢8P),eSP 
1432 PNYS81 SUG  —- POINTL.¢ SP), eSP 
iasa sue @SP,EEXP(SP) 
1438 BGT MWL38 

1436 whe PASS 

437 is 

4437 MULSB1 CMP RB, #34462 
fue BHI MOVSS — 
ere Jgr PG yML OSS 
at : ING BEXP (SP) 
i443 Diese EC CEXP(SP) 
Mas ocr MULS@ 

ep : vMP FuTse 

etl MOvS81 «JSR PG, MS5qS8 
ee apo 03, BEXP (SP) 
eh aR ous 

tyae PCKse! = CHPE R4,a', 

et BNE RRSB 
1450 . Presa; ST POINTL (SP) 
or BNE ERRSS 

sagt MOV RS, POINTLESP) 
4433 ERRSO} Cone th 

a ERP ot (SP 
pee BERSB{ CLR RB — 
4456 st a 

ead CLR Re 

4458 he oT 

Es STRESS 

re Exeseay CMPB + ae 

see BEG EXYss 

afee cure R4,8/0 

ped BNE ERASS 

ties Ex?sey MOV R5,0SP 

ere Ec esp 

eres MOV RS, TEMPCSP) 
4467 ch R 

Ht! one RO, ENUCSP) 
see Ge ERRSS 
ie ' ou (RS) 0, R4 
pee C 9477688,R4 
on apes R4,ate med 


sOCia1 
4474 


sociay 


4529 
1530 
4531 
1532 
1533 
1334 
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EFTS8I 
EF2s84 
ENNS8} 


ENZS84 


EN2S84 


Olvser 
Ovesay 


ovis 


OVSS8} 


Ov4s8} 
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FLYS8y 


STRSBy 


OPRS8} 


PAGE S09 


BNE 
tne 
cur 
OGe 

Move 


PAGE 3ei9 


ENMSe 
tglontse) 
RO, ENQ(SP) 
ERRSA 


(RS) oy R4 
0477608,R4 


R4,RS 
R35, ENQCSP) 
Fase 
ESIGN SP) 
tNase 


RY, CEXP (SP) 
TEMP CEP) RS 
SGLS8 

Re 


OVEss 
BEXP (SP) 
PG LFISS 
ovesa 
#46, ,R4 
PG RITSS 
RS, 0(SP) 
RG, 0(3P) 
Ro,e(3F) 
RO, 0($P) 
PO,RITSS 


PE RITSS 
#2,R5 


PO RITSS 
O(SP) RS 
Ra 


RY 
Re 
4¢S9P9,R2 
Ra 


RB 
2¢9P),83 
Ra 

eSP, RO 
RS 


an SSSR 


ovess 

R4 

ov3ss 
O1.8P 

#3, BEXPCSPY 
CEXP CSP) 
Olvss 

GEXP (SP) 

PC LFISS 


FLYS6 
#209, 8EXP (SP) 
UNOSS 
BEXP (SP), #377 
OVRSS 


ag 
RQ RS 
RS 


Rg 
R4,R2 
Re 


Ry 

RB,RE 

Ry 

RO 
BEXP(§P), RO 
Re 


SIGNCSP) 
4 
R 


RLyRS 

RO, RESULT (SP) 
RE RESULT OR (SPY 
R2,RESULTOS(SP) 
RF, RESULTOS(SP) 
946,59" 
(SP}o, 85 

(SP )a,R4 
(SPO, RS 
($P)e,R2 

CSP) eeRS 
C$P) 4, RO 

ase 


YOK 


409 
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1564 
1585 
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1639 
1049 
164% 
1642 
4643 
1644 


yee. Z3eMARe73 tapse PAGE Sei 


RANSOT 


ovasay 
UNOS8I 
M5488] 


MLSOt 


MSAS8y 


LP?sel 


RUPse4 


BEG 
MOV 
MOV 
ROL 
Rvs 
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POINTs2 
BEXPad 
EEXPe6 
TYPEs12, 


SEcOt 
XCos9} 


xCisol 


CLES9I 


NNBS9} 


RQaK2 
RIAKS 
R4EN4 
ASeXS 
SP5X6 
PCSK7 


RANSS 
CEP), (SP 5 
C9P)%,208P) 
($P)e 

Pg 


eRRss 
RO, H19G314 
M5538 


PG RITSS 
BEXPSG42t9P) 
RO, o(3P) 
Ropar) 
RZ, 0( SP) 
R306 $P) 


PG, RITSS 
PC RITSS 
MSASO 

RB, eC $P) 
Rage (gr) 


Ry 
Rg 
CSP) OyRQ 
Ri 


Ro 
CSP) ORY 
RO 
(SP) 0, RO 
P 


socoge 


cNos9 Y/ 0 


SECO, SFCO.SGCO,SNCO 


#42405,R0 
xCos9 
Re 


xGos9 
COP) ORO 
CSP) ORY 
(9P)4,R2 
@SP,AS 
442002,0SP 
R4,0(SP) 
4(9P),R4 
RO,4¢SP) 
xCas? 
#42402,R8 
CHP OARS 
(SP) 0, R39, 
(SP) oyR2 
RS, 0 SP) 
RB, e (SP) 
R 


3 
R4,e(§P) 
R4 


0(SP)) (SP) 
SESP)gQCSP) 
S(SP),Ro 

ot ,(RO)e 
RO LCSP) 


AY, BEXP(‘SP) 
NNes 
NODS9 Af ff 


Ra 
Ra 
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1094 
1695 
1696 
1697 
1698 
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4749 
1758 
1754 
4752 
1753 
1754 
4755 
1756 
1757 
1738 
4759 
1760 
1762 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
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MULS#I 


MLds9y 


OlVS9T 


Ovisoy 
Ovesst 


NOMS9} 
NOLS9} 


NODS9t 


PAGE Seas 


BHIS 
6 


BGT 
JSR 
oec 
aoo 
OR 

VSR 
tne 
BNE 
CLR 

ve 
JSR 
Ts? 
BNE 
ogc 


BR 
Ts7B 
BEQ 
RORB 


=z 
~ 


sys 


RZ 
ROaRL 
RZ 
RS 
RS,R2 
RS 
nq 
R4,RS 


Re 
#200, HEXP(SP) 
OLV$9 


NOMS9 
Ri 
Mh489 

R 

RZ 

Ra 

BEXP (SP) 
MULS® 


RL 8446514 
OvEs9 
agian ia 


aT 
CEXP(§P) 
#2, BEXP(SP) 
ovase 

PG RITS9 
BEXP( SP) 
givs? 


PE MS4S? 
PG MLS® 
Re 


NQOS9 
EGXP(SP) 
NQLS9 
TYPE (SP) 
FPTS9 
TYPE(SP) 
EFTS9 
EEXP( SP) 


efrs9 
epee inter? 
Toners 


a4,U(3P) 
EEXP(BP),0(SP) 
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FreS9} 
FPES9} 


FFSS9} 


FFAaS$o} 


FFIS9! 


FFOS9} 


cCOrsoy 


EFES#) 
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CUR 
MOV 
aoo 
ado 
JSR 
MOV 
sys 
TSS 


JSR 
v 
su8 
MoV 
MOVB 


MOV 
8GE 





P(SP) 
EEXP(SP),RS 
OCSP) RS 
PCSP) RS 
PG, RUQSI 
(SP) ,R5 
O¢SP),RS 
sick 


"589 
EBRPL SPD P1SP) 


POL ISNS9 
a18,(R5)o 
a1, CAD) 
R5,4 (SP) 
FFIS9 


af8, CRS)e 
Fhas9 

L6SP).R5 
BtsP) ens 
RS 


RS,POJNT(SP) 
reese 

RS 

P(SP),RS 


LSP) ARS 
OC SP), RS 
RS 


RS, POLNT(SP) 
P( SP) YRS 
RS 

PG ISNS9 

PG, 06989 
P(SP),EEXPISP) 
ESP DERS 

TYPE ed SPD (aye 
EEXPCS 

EXPS9 


4/2 


wg ee 


qs 


socoes 


4806 
1895 
1606 
1807 
1828 
4609 
1819 
4612 
1812 
1613 
1814 
4615 


s0coge 


MACX4A1 


MACX11 


veer 


vo2s 


23eMARe73 


23eMARe73S 
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EXPS9} 
EXx¢s9} 
EX3S94 


Ex2s94 
ONES94 


M354S9} 


M4589) 


MSZSO4 


MS2S9} 
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MLBS9] 
MO¢S91 


ERRS9} 


STSS9} 


RUOSOY 


ROPS9} 


NEG 
move 
BR 
Move 
MOVB 
sue 
87 
INCB 


Re 
Bley (KS)O 
Exis9 
at ,CAS)e 
016, 0Rs 
#40, ,R4 
€xas9 
ORS 
Ex3s9 
W72,R4 
ROARS) 
8,,5F 
(SP)o,R5 
CSP) OgRe 
6SP) 0, 6(SP) 
CSP) 61 O0SP) 
CSP), (SP)o 
CFP )e 
°¢ 
RL, esr) 
RZ, 069?) 
RS, 0(9P) 
R4, 069") 
reat tss 
PG RITS9 
a4 


RS 
Rg 


Ry 
(9P) 0, R46 
Ry 


Re 
RL 
a 


8 
(SP) RS 
8 
Ry 
ne 
(97) 0yRZ 
Ri 


ne 
CSP) O,RY 
RO 


Pg 

#46, ,85 
PC RITS9 
nGy0t iP) 





oetnitss P| 


6¢SP),R4 


RY 
td 


Ry 
4¢SP) RS 
Re 


Rt 

Step eRe 
O8P, Ry 
Re 

M5as9 

RS 


M5489 
96,,S? 
P 


(9996 
S(SP) ARS 
(SP) ,R4 
TYPECSP) 
stss9 
94a,n4 


' 
Bla, (KS)> 


R3,R4 
ST$s9 
TYPE($P) 
ONES 
RD, 020, 


AYas9 
RS, BEXPeOee (SP) 
RUSS? 


RYas9 
RO, 0 SP) 
Ra,0(3P) 
RQ, 0( $F) 
RS pe HP) 
R4,0($P) 

# BORO, Ry 
Rg 


na : ioe 
OEXPsvezezs, 

noon ere? 418 
PC, Manse 

PERI TSY 


socoes MACKi3 


sOcog¢ MACXis 


1969 
1979 
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ROOS9, 


RV2S94 
Ryiso 
RUSS9E 
TSNS9} 


TSRS9 
spes9y 


OGSs9} 


OG{s9} 


0G2s94 
OG3S94 


usr POARSTS9 
JgRr PG RITS9 
ROFS9 


eR 

CLR Rg 

aoo (SP) 0,4 
aoe RS 

aoe Re 

age RY 

A00 (§$P)0,R3 
aoe RZ 

aoe Ry 

A00 CUP) Oy R2 
aoe a 

oo (SP) o,RY 
age Lt) 

aoo CSP) 0, RO 
cur #40, ,80 
BGT RySS9 

NC EEXPeg(SP) 
ars °¢ 

aod #5,R8 

aR RUgS9 

CMP. RS, S0f02(3P) 
8L0 sPcs? 

ROR 9e2(SP) 
acc TgRs9 
MOVB aa, ORS 
TNC ns 

RTs 9G 

ROR eR (SP) 
acs ERRSO 

INC RS 

cup R9,Se2(SP) 
840 ERRSD 

RTS mg 

ld #40,,K0 
act 0G389 

MOVE #14, (RIO 
sue 840, RO 
cup POINTO2(SP), RS 
ONE oG2s9 


MOVE «80, (HED 
CMP Lo2¢8h),R5 
BLOS =O as9 
400 #00,R0 
MOVE RO, (RBI 

R 


JR PC NS4S9 
JSR PC MLSS? 


ar OG4s9 
Rvs Pg 
cue 

ROR RY 
ROR RZ 
ROR R3 
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ROR R4 
RTs °¢ 
sENOC 
GOT 


4/6 


GLY. 


SQCOR4 MACXI1 


SOLGOS MACX1a 


2029 
2038 
2933 
2032 
2033 
2834 
2835 
2836 
2037 
2838 
2239 
2040 
2044 
2062 
2043 
2846 
2045 
2046 


2083 
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= ’ 


OLaGse1 


OLeG! 
LOesiay 


sTUTLE 
rUFOF 
1GL08L 
a TPNOF 
166084 
sENOC 
ROaXO 
RYERL 
R2BK2 
R3OKS 
Ranne 
RSaKs 
SPRx6 
PCRS? 
Foaxe 
ryene 
F2ax2 
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xXPosia} 


ERRSLB} h 


REGS181 


STKS18) 


STesiol 


UPSi01 


SCLS181 


OUPSi8} 


PL2Si01 


EX1Sa01 


WORD 
1WORO 
WORD 
WORD 
WORD 
WORD 


WORD 
WORD 


RASTC SOURCE FILE #14 
SQLGGS 
cNOSie 
DLOR yuLod se sERR 


SPOLSH,SA0D, $580, SHLD, SOV, S10, SPOPR4 


rPY 

OPC, 0(SP) 
L06S18 

e¢(SP) 

RS, 0(SP) 
2¢R5)yR4 

98, RE 
9447572, 0(SP) 
BL7S72L,0(SP) 
9074087, 0(SP) 
#437604, 6(SP) 
46,,3? 

(R46) ,e(SP) 
eGR4),e(SP) 
eC RG) pe(SPy 
(RG), 0 (SP) 
ERRSLO 


esp 
1¢SP),26,(9P) 
8208,4(SP) 
osp 


943572495, 0(9P) 

#032774, 0(SP) 

#882363, 0(SP) 

0049065, 0(SP) 

14, (SP),¢(SP) 

44, (SP) ,0(SP) 

14, (5S) ,06SP) 

24, (SP) ,0(SP) 

Pt bead bo 

9031774,0(SP) 

8832305, 0(SP) : 
#049005, 0487) 4) a 
R4,SPOLSH 

3$80,yPS18, $406, 80V0 


OWPS42,0URS10 
SMO 


SPOPRS 

REaStO 

SMD ¢ SAD, SMO, SAND, SHLD, $AD0y SHLD, SADD 
SMO, S400, SML0, 5400, SHLD, SA00 


SE 840,510, PL 2819, SML0 
SAD0,ExIS30 


SM 0,GX1830 
024,,5P 
RS, SERR 
gnosae 


3 
WGONS3208, ,R4 
a7,R5 


sTcsie 
Ry,e(SP) 
RQ, eC SP) 
RL,e(9P) 
RB, eC BP) 
2(R4),0(SP) 
(RG), 0(SP) 
o(R4),0(SP) 
eG RG), eCSP) 
RS 

STKS12 
aXPOS4O,RE 
O¢Raje 

($P) 4522, 697) 
($P) 0,22, 08P) 
(SP) 0,22, (8P) 
¢9P)9,22,(8P) 
o(Raye 

o(SP) 
42',(37),eSP 
#209,9SP 
ejRaye 

(SP), eCSP) 
6(8P),0(SP) 
6(SP),0(SR) 
O{SP),0( SP) 
arrays 
#447572, 0(9P) 
#A7S7ZL 206 SP) 
8874027, 0¢9P) 
9869004,0¢(SP) 


di 

(SP) 
tits 4/F 
#024402, 0(SP) 


8424407, 0(9P) 
#055730, ~(9P) 
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2084 MOV 4037736 ,0(8P) 
2085 Pld O(Raje 

2086 LGPSi84 MOV (3h )o,R8 
2087 MOV CPO PRE 
2088 MOV CSP )4,R2 
2089 mov (BP) Oy RS 
2098 . EROSSB) MOV C§P)0,R5 
2093 1S? CSP)e 

2092 Rvs RS 

2093 sENOG 

2094 vJPOF Fey 

2095 OLoGso4 MOV OPC, Re 

2096 BR L06Sia 

2097 OL0G! = CLR Ra 

2098 LOsSsa1 SETO 

2099 ser} 

2408 MoV 8FCO$30,Re 
2203 400 @2(RS},F2 
2102 crec 

2103 BLE ERRSLB 

2404 STEXP §=F2,RY 

2209 Loco Ryans 

2426 MULD (RBS PS 
2107 QDEXP 9-8, 2 

2128 400 Fa,rs 

2409 syso (RB) 72 

2418 aoo0o (ROD OPS 
2a43 DIVO a2 

2222 400 ate 

2433 MULO Fars 

2434 MOV 99, R4 

2245 400 (RB) O AFD 
2316 XPOS38) MULO Fue 

2347 OE Ry ‘ 
2418 aooo (RB), PO 
2419 agT xPOSie 

2428 MULD F2,F0 

2423 aooo (RB) OPO 
2422 A000 F3,Fo 

2423 TS? Ra 

2124 BE LGTsio 

2425 MULD (RO) FB 

2426 LG?sse) STO FO, 0($P) 
2427 MoV C9P) 0 ,R8 
2428 Mov CSP) Oy RE 
2429 HOV (5P)o,R2 
2138 Mov C3P OARS 
2133 Ags a5 

2452 ERRS{91 USR RD, SERR 

2433 RTS RS 

21354 ravre 4 

2435 18Y 3 é 
2136 FCOSS8} ,WORD 840063,073827 420 
2437 sWORD = 4.739723,147572 
2438 sWORD 940965, 282363 
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2439 WORD =: 894773,457145 
2148 sENOC 

2443 :WORD =. 83 7459,106270 
2142 WORD = 4971605474770 
2443 WORD = BS747E,B72I93¢ 
2444 WORD = -497740,417015 
2445 WORD = S7545,4139053 
2146 »WORD = 8 904.03,,135465 
2347 sWORD =F 7622,044436 
2448 sWORD = BOP 3HQ, 263062 
2449 sWORD = B37746,446824 
2450 WORD = $53450,165778 
2453 : :WORD = 848958,125252 
2452 WORD = 425247, 024643 
2453 CONSS0) ,WORD 840408, 800000 
2154 sWORD =©889808,080957 
2455 s1FOF = FRY 

2456 «WORD = 4.9 7663,,073027 
2157 WORD 1737245447572 
2158 WORD =. 839739, 855730 
2159 sWORD = 84467,026462 
2468 sENDC 

2464 sBNOE 

2262 TITLE SONTOZ 

2463 sIPOF 8 =6CNOS14 

2164 iGLO0BL SINT 

2165 RoOKO 

2466 ALEKS 

2167 R2e%2 

2368 A3EXS 

2169 Raake 

2478 ROGKS 

2a7y SPEX6 

2372 MQaL77S06 

2473 ASHOS77349 

2476 raexe 

2178 FLaxt 

2476 vIFOR | FPY 

2177 SOINT] ,WORD $7@043 

2178 sWORD = 4.72426 

21479 WORD -479467,4 

2180 WORD = 474946 

2484 Sila O(RG)e 

2482 »WORD 840208,8,8,8 
2483 sENOC 

2184 sJPNOF FRU 

2185 SOINT] MOV CR) ORO 

2186 MOV (SP) Oke 

2187 MOV CEP) O RZ 

2188 MOV (GP) OyRS 

243? MOV R4,0( $F) 

2199 OV RD, 0($P) 

2493 MoV naiRee YA/ 
2492 ROL Rg 


2193 CLRe Ra 





SONTO2 MACX12 


2194 
2395 
2496 
2397 
2298 
2199 
2208 
2204 
2202 
2293 
2204 


SONTR2 


2249 
2250 
2253 
2252 
2253 
2254 


MACX41 


vo22 


Vo2s 


23eMARe7S 
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C2ssiay 


8 
SHPS4i1 


ml 
RRGSiL1 
R 


aSisaat 


RORSLLE 


ASUS4ii) 


Reisiay 
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R23Si11 


R23S111 


ONES441 


sort 


SOR} 


OR{S22) 


OVRSL21 


MOV 
MOV 
sENOC 
BR 


sdPOF 
WORD 
NEG 
WORD 
sNOC 
alFor 
MOV 
MOV 
mov 
NEG 
MOV 
MOV 
MOV 
sENOC 
sENOC 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
JMP 


EACEMULOLY 
A4,R5 


00352, ,R4 
RORSL4 
CBds23 
#52, ,R4 
RO,RS 


EAE 

ama, RD 
MYULOIVIEAE 
#032, )R4 
R23$14 
C2383 
#32, ,K4 
MULOTY 
073064 


Re 
273004 
igh 4 
RLORS 
RG, 0 (KS) 
Rd, O0ASH 
nq 

RG, OBASH 


(RE) O, RB 
ORS, RY 


C23844 
MVLOTY 
8732064 


rr] 
973206 


EAE 

RS, ORD 
RQ, 0(KS) 
RO, O8ASH 
nq 


RG OWASH 
(R35) o4R2 
ORS, RS 


(SP) ORS 
CSP)O Re 
RS, 0($P) 
RB, 0( SP) 
RE, eh) 
RB, 0($P) 
OCRE)e 


SORO2 
CNOSL2 
SOR, SERR 


rPU 

472004 
477429 
170000 
Ovess2 
174040 
OCRa)e 


rey 

4¢sp) 

2¢3P) 

esp 

OVRS32 
OVRSa2 
CHP) Oe 20 SP) 
C$P) 4, 2(8P) 
OCRaye 
($P) 0, (SP)o 
(SPO, (SP)Q 


43 


SORQZ2 MACXL YVO2L 23eMARe7S 12134 PAGE 406 





2304 ovisa2} ysr R5,SEKR 
2305 BR OR2332 
2306 sBYTE 3 
2307 :BYTE «23, 
2306 OR2$421 CLR 0(SP) 
23209 OLR e(SP) 
2348 : Pld Oi Raye 
2343 +ENOC 
2312 sTITLE SOSNG4 
2313 sSPOF © CNOSa9 
3335 G08, OSsN,OCOS 

’ NeQCO 
2316 TPNOF reg 
2347 sGLOBL SADD, SSB0sSMLD,SOVO,SOINT, SPOLSH, SPOPRE 
2318 rENOC 
2339 : RBOKD 
2320 RYO 
2323 RQO82 
2322 RIERS 
2325 R4aKs 
2324 R5EXS 
2325 SPEX6 
2326 : PCaNx7 
2327 FOsKo 
2320 vyexs 
2329 F2aK2 
2338 F3eKS 
2333 vTPNOF FRY 
2332 oces! MoV RS, 0( $F) 
2333 MOV 2¢R5)gR4 
2334 CLR sires 
2335 MOV GGR4)peCSP) 
2336 : MOV 4(R4),0(SP) 
2337 MOV 2( RG) ga(SP) 
2338 MOV OR4,06SP) 
2339 MOV 9064302,0(8P) 
2340 MOV 8222044,0(SP) 
2343 MOV 8067752,0(SP) 
2342 MoV #O403522,0¢SP) 
2343 vr R4,5P0LSH 
2344 sWORD = $AD0, SNC S23 
2345 OS{Nt MOV RS, e( SP) 
2346 “OV 24R5)gRE 
2347 CLR (SP) 
2348 MOV O(R4)ge(SP) 
2349 Mov 40R4) g0(SP) 
2350 Mov 20R4) pe(SP) 
2353 MOV OR4,0(5P) 
2352 SNES434 ASL, osp 
2353 ROR 6, (SP) 
2354 ROR esp 
2355 MOV #064302,0(SP) 
2356 MOV 8421044,0(SP) Ya 
2357 MOV 8807752,<(SP) 
2358 MOV #O40744,0(8P) 
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2359 usr R4,SPOLSH 
2360 1WORD = SOVO 

2363 sWORD OVP Sag 

2362 sWORD = SQINT 

2363 +WORD = SSBD 

2364 »WORD = -X4843 

2365 :WORD = OVPS43 

2366 sWORD = SOINT 

2367 :WORD = QUOSLY 

2368 ;WORO = SSB 

2369 +WORD «QS TS 

2370 QSES431 ,WORD OYPSLy 

2371 WORD = DYPSAS = 
2372 :WORD = SHLD 

2373 sWORD «= SPOPRG 

2374 :WORD = PLYSS 

2375 XPOS13} ,WORD $M.) $A0D, $MLO,SADO, SHLD, SADD, SHLD, SADD 
2376 WORD = SML0, 5400, SML0,SA00, MLD, SA00, SMLD,SA00 
2377 :WORD = SMLO 

2378 PR4S331 ,WORD SPOPRE 

2379 «WORD = RINGS 

2388 RINSL31 TST ($P)6 

2384 ace RTASa3 

2382 A00 #190000,Ra 
2383 RTIS43} MOV ($P) 0, RS 
2384 Rvs as 

2385 OUPSA31 MOV O(SP)pecSPy 
2386 MOV 6(SP),e¢SPy 
2387 MOV 6(9P),0(SP) 
2388 MOV 6(8P),0(SP) 
2389 Pile O(Raye 

2398 x4s131 187 oyp 

259% geo BERSLy 

2392 Ince a SP) 

2393 JMP acRaye 

2394 BERSLS) MOV @PR4SLZ RE 
2395 ump o(Raye 

2596 Quosa3) 818 OSP,19, (SP) 
2397 uMp ecnane 

2398 QS#S33| TSTB 8, ¢SP} 

2399 8eo 043543 

2400 aod #400000, 0S" 
2403 cur o(sP) 

2402 CER 2(SP) 

2403 CLR =(3P) 

2404 MOV 948208, 0(SP) 
2405 gr 24, SPOLSH 
2406 +WORD © SADD, GSRSAS 
2407 QSAS43) MOV SQSESES,R4 
ast easiest 

2419 ao0 s{eadee, esr GIS 
2433 gutssst uMP pine 

2412 PLYSA3S} MOV HGONSAS06,,R4 
2443 MOV #9, (RS 


SOSNO4 


SOSNO4 


2409 
2478 
24073 
2472 
2473 
2474 
2475 
2076 
2477 
2478 
24079 
2488 
2484 
2482 
2483 
2486 
2485 
2486 
2487 
24688 
2409 
2499 
2493 
2492 
2493 
2494 
2495 
2496 
2497 


24698 


2499 
2508 
2504 
2502 
2503 
2504 
2505 
2506 
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Pyasast 


m 
PY{sa3) 
4 


ocess 


OSING 
SNesisy 


POssi31 


Q13si3) 


N 
O428i31 
LU) 


xPOS33) 
t] 


RIWSA3) 
M 


oR 
MOV 
“ 
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Py2sss) 
rcasis} 


CONSA3I 


OS@RTI 


mov 
MoV 

MoV 

RTS 

1WORO 
WORD 
»WORD 
WORD 
sENOC 
WORD 
{WORD 


WORD - 


WORD 
WORD 
WORD 
WORD 
1WORD 
WORD 
WORD 


PYESy 
RJ, 0( SP) 
RZ, aC §P) 

RL acer) 
RO, a SP) 
@(RG),eCSP) 
(RE) 0 (SP) 
(MG), eCSPY 
(RG) ,e(SP) 
RS 


PY2S3y 
OXPOSAS RG 
OcRaje 


PY 


2(A5),Fe 
PLasiy.Fe 
SNCS3§ 


o2(R5), FO 
aFCOsys, RO 
na 


Poss 
R4q 7 


ro 
(RB) O Fo 
#4,0,£8 


RINELS 
4,0,F8 
Puaks 


4 
Q45833 
re 
ea 
42819 
id 


r0,F2 
r2,F2 
48,,R 
(Abs oer 
reer 


(RB) Og rd 
xpossy 
rye 


Ra 
RINssy 
ve 

70, 0(§P) 
CHP) O,RG 


COP) ORE 
CSP) 4 RE 
(9P) 6 )R3 
RS 


640334, 007932 
124044 ,864992 
848732, 007932 
281044,064392 


026710,106783 
945277 ,146362 
490467 ,139273 
103856,123153 
832464,074657 
847254,154742 
153564,104646 
297220,254026 
895950, 036032 
044224,405131 
436234,064546 
874629,425024 
937243,032948 
935655,8535957 
140949,0509747 
0$0459,174222 
846314,007732 
189044,064802 


sQsqey 
GNDS34 


OSQRT, SERR 
rey 
$ADD, SOVD, SPOLSH 


rey 

RD, (SP) 
2¢R5)y RS 
ORS, RY 
ERRSLS 
aERSLA 
2(R5))R2 
#4, 0(3P) 
Rt 
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427 
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2524 
2525 


(ce ES 
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LUPSi¢) 


uPusa¢) § 


ourss4) 


RINSS4} 
ERASS 4) 


zEnsa4y ¢ 
ci 


OS@RT} 
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LUPSi4} 


R 
ERRS44} 
R 


zERsa4y ¢ 
¢ 


OATAN2} 


020408,R2 
=¢3P) 

04 8P) 
RZ, eC SP) 
RE, eC $P) 
(SP) 

0{SP) 

2495), 0(SP) 
ORS, 0(8P) 
ofaP) 

o(SP) 

RB, e(3P) 
RL,0t FP) 
R4,5P0LSH 
$QVO,SA00,UPLSL4 
0206,05P 
8,¢3P) 

OUrsa4 
O(RS),0¢SP) 
4( RS) pa CSP) 
2(A5),0(8P) 
ORS, 0(5P) 

U4 CSP) re CSP) 
4 (9P),04SP) 
(SP), 0(SP) 
($8) s0(SP) 


3 

‘ 

a 

ld 
Pyaogh 
Pore 
ld 

P 

? 

P 


Dannn nn eee 
2 ODO CAE OO Bh 
~ 


FRU 
26R5),R4 
OR4, RY 
ERRGSS 
BERSi4 
24) RZ 
RY 


Re 
#26200,A1 
o(SP) 
o(SP) 


RB,e( SP) 
Ra,e( Sr) 
#4,R8 


CHP) 6178 
OR4, Fe 
FOlFS 
F3.Fo 
72) 
r4,Fo 

Ro 


82',0,°0 
LUPSsi¢ 
FR, 0($P) 
CGP) ORO 
CHP) eRe 
(9P) oy R2 
(SP) OgRS 
RS 


SQTNES 
CNOSS9 


DATAN; OATAN2 
rey 


SAD0, $5BD, $MLO,SDVD, SPOLSH, SPOPR4 


rey 

R$, 0(3P) 
o(SP) 
#($P) 
o(SP) 


YAS 





4Aq 


ee 
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2034 CUR ap) 
2635 CUR o§9P) 
2636 CUR o(9P) 
2037 CUR =¢8P) 
2638 SUR of SP) 
2639 cur o{SP) 
2048 MOV 2(R5) RO 
2043 MOV 6(R4),0CSR) 
2642 MOV 4084), (SP) 
2643 3 MOV 20R4),e(SP) 
2046 MOV ORG, 0(SP) 
2645 MOV opr, Re 
2646 MOV 4(R5) RO 
2047 4OV epnazeeiaes 
2648 MOV R4),0¢SP) 
2049 MoV 2 R4),0(SP) 
2659 MOV OR4,0(5P) 
265% MOV O5P RL 
2652 8Ea iarsie 
2633 ASL, 
2654 CLAS bi 
2655 swAs RD 
2656 St, Ry 
2057 CLRB RY 
2058 swaaRk 
2059 8B RL,RO 
2008 cup 0568,,K8 
2663 aT INPSES 
2662 OlvS15) USR R4, SPOLSH 
2063 :WORD = SOVO,VPLS45 
2664 : UPLS45) TST | 
2065 UGE 
246 MoV theest 43'3%) (SP) 
266 MQV 90077 Hi 2 (SP) 
2668 QV #421063, 204 (87) 
2669 MOV 9964364, 22, (SP) 
2673 TS? O2(R5) 
2072 OGe ATESS9 
2672 apo a459000,16% (SP) 
2073 ATES451 TST ogp 
2674 or atisa9 
2675 INPS234 400 #36,.9P 
2676 MOV 4846334,R0 
2677 MOV 8097752524 
2978 MoV 6422844,R2 
2079 MOV O0645HE RF 
2688 rs? ezcrs 
2084 8Ge INRSS 
2082 400 6100000,R0 
2983 INRSL3) RTS Lid 
zeus DAPANE a at Hs 
268 . 
2686 CLR o(8P) 43 ra) 
2087 CUR o( 99) 
2688 CLR o¢SP) 
SOTNOS MACXS2 VOZL 23eMARO7S 112136 PAGE 4043 

2089 CLR oysr) 
2699 cur e(SP) 
2693 cur (SP) 
2692 CLR ©(8P) 
2693 CUR o(SP) 
2694 MOV URS) y RO 
2695 MOV 6(R4),0CSP) 
2996 MoV (RG), eCSP) 
2097 MOV 2024), 0¢SP) 
2696 MOV 084,037) 
2699 ATISL54 BGC PLUSIS 
2708 oo see eg esp 
i ie 

PLUSIS) CMP 
5305 USES} ee 
2706 eGr 
2705 TS? 
2706 ONC 
2787 TST 
2708 BNE 
aoe Ts? 
2710 o¢o bsas 
2713 GY{si5) MOV 9440333.8,¢SP) 
2712 MOV 9987792,405 (SP) 
2713 MOV #422064,125 (SP) 
2714 MOV 9064304,14', (SP) 
2745 ogc 24,687) 
2716 MOV 6(9P),0( SP) 
2747 MOV 6(SP),a(SP) 
2738 mov 6497), 0(SP) 
2719 mov 6(8P),0¢SR5 
2728 MOV 840200,8, (8) 
2724 CLR 405,¢8P) 
2728 CUR 43, (88) 
2725 CLR 24, (SP) 
2724 R R4,3POL5H 
2720 WORD $0VD, 461935 
2726 LEdss51 MoV O¢SP),0(SP) 
2727 MoV 6(8P),0(SPy 
2728 MoV 6(8P),0(SP) 
2729 MOV 6(8P),0¢SP) 
2730 CLR 8, (SP) 
2734 CLR $0, (57) 
2732 CLR 42, 68") 
2733 CUR 44, (87) 
2734 CMP O3P ,803763¢ 
2735 BLO Lassa 
2736 BHS TNOS49 
2737 cup 2590) ees02e2 
2738 BHI TNSSL9 
Ha Bo Ga a2 

4(SP) #472966 

2743 out NOSE 43 / 
2742 a0 4a9sa5 
2743 cup 649"), 9069261 


uty 


SQOTNOS 


2744 
2745 
2746 
2747 
2748 


SOTNOS 


2799 
2800 
280% 
2882 
2803 
2004 
2905 
2896 
2807 


MACKi2 


MACKA1 


voas 


Veet 


23eMARG7S 


23eMARe7S 


22154 = PAGE 4036 


50S 
TNSS151 nay 


Lagsas) hov 


XPOSSS} ,HORD 


’ 0 
EXtsa5y TST 


2454 PAGE 4043 
MOV 

UPSa5y MOV 
Ll 


J 
PLYSL5) MOV 
Mi 
BR 
PY2sisi MOV 
Ll 


M 
PY{S15) may 


SGNS15] ne 
A 
SGIS451 bis 


DAPAN2) ity 


aiPs45) 400 
ij 


Aamsa5t Bio 
INPS45) L00 





bass 

350050908, (SF) 
#085224 ,30) (SP) 
#440599, 12', (SP) 
9045496,145 (SP) 
ogr, ry 

2¢8P),R4 
4(9P),R2 

6( EP) ARS 
8062524, <(9P) 
#044502, 0(SP) 
#4394787,0(SP) 
0349355, 6(5P) 
RY. eC BP) 
RZ, 0 §P) 

RE,ec gr) 
RO, 0 ¥P) 

o(8p) 

o(SP) 

@(8P) 

040209, 0(57) 
8062984,0(8P) 
80443502,0697) 
W2SL727,06SP) 
80469335, 0(9P) 
RY, 0(§P) 
RZ, eC Zr) 

Rage 5P) 

bbe sp 
R4,SPOLSH 

SHLD, $480, UPS49, 4980, 30V0,L49845 


26SP) VRS 
4(SP),R2 
64SP) RS 
RJ, 0( 9") 
RZ, esr) 
RogetSP) 
RB, 0(3P) 
RJ, 0C5P) 
RZ, 0($P) 
RE,eceP) 
RO, 0(§P) 
Rd, SPOLSH 


SMLO 

SPOPRG,PLYS35 

SMU,» SA00, SLO, SA00, SMI, $A00 
SM1,098A00,SML0,SA00,SML0,SA00 
SR eeT ANDRE SIRES AAVOA PPE RADE 


donius 


sPopRe 
exts495 
(gP)e 


penisen? 
(P9122; (90) 


4) 
if ONS35 661 1R4 
89,89 
PYLS15 
R3,0(§P) 
RQ, eC SP) 
R4s0( SP) 
RB, 0(SP) 
a (har cotshy 
(RO) ,0(SP) 
0 (R4),0(SP) 
2§R4),0CSP) 


Pressy 
aXP0S35,R4 
o(Raye 
49,68") 
$G4535 
a400080,0SP 
e(Raye 

rey 


ZERIIERS 
4( RS) RE 
ORS, RB 
ons, RE 


Headers 
ORS, FB 


Aarsie 
ORG, TE 
AgMsy9 
r 

rire 


aTssa9 
P12349,7% 


FBR 


733 


4> 


ee 
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SOTNBS MACX11 


2909 
2910 
2924 
2912 
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OAPANY 


ardsa5} 


PLUSSSI 


GTisa5) 


LEESs5} 


Lassa5y 


xPOS43) 


SGfS15) 
Ex}s254 


Se 


TST 


vo2s 23eMARe73 41154 PAGE 4017 


PIsist 

P2135) 
7458451 
Plesi5) 
RT3S451 


FCasi51 


CONSS31 


+WORD 
+WORD 
:WORD 
+WORO 
;WORD 
{WORD 
+WORD 
;WORD 
WORD 
WORD 
,ENDE 
WORD 
WORD 


ors 
exter 


eXtsay 

ry 
O8(R5), FO 
ne 


Fars 
PLUS: 

rau ay 

Rq 
82,0008 
rors 
LEasa9 

nq 

rears 
otiss 
Pl2si5 Fs 
eta) 

ry 
Ta5s30,78 


625849 
PLOSL9,FS 
rO,re 
RT3619, 79 
#4,8,70 
RTSS19, Fs 
uare 
70,F2 
7O,Fo 
#FCOSA5, RO 


03), RY 
(AB) oyF8 / 
rO.rs | 
Ry 


CRO) OOF 
xP0825 


CEP) OARS 
COP) OAR 
CEP) OARS 
Rs 


840534 ,087932 
£29943,06450% 
840333,007932 
124043,064309 
837634, 030242 
472366,065264 
048000 ,005221 
440553,115454 
046339 ,133727 
944302, 0625924 


897069,150797 
192309, 163030 
437204 ,443233 
804040, 000413 
837235 ,043802 
827194,142446 
137272,025671 
146422,065630 
897345,107947 
023025 ,025401 
4137622,044444 
872339 ,116¢52 
8375924,440314 
4$6224,195650 
13765¢,425252 
425252,415602 
840208, 009006 
888008, 89000n 


4134 





_ 


73S 


SOTNDS 


2944 
2942 
2943 
2946 
2945 


sOVOe5 


2996 
2997 
2998 
2999 
TTT) 
3o04 
3e02 
3ea3 
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TITLE 
viPor 
2GL08L 
AGSXO 
RUext 
R2E%2 
AZOXS 
R4UK4 
ASORS 
SPex6 


sovol 


sOvol MoV 
La 


MACX12 yo2s 23eMARG7S 11454 PAGE Set 
CLR 
BIsB 
sus 
swas 
acc 
ROR 
MQVB 
MOVE 
MOVE 
“Ove 
MQVB 
MOVB 


OGHS361 MOV 
UNOSS6) MOV 
ECLSi6) TST 


EC{Si6) JSR 
ZERSL6} CMP 


OLWSi64 ROR 


OWES26) MOV 


BASIC SOURCE FILE #32 
sovog9 
CNOSSO 
SOVO, SERRA 


FRU 
R4,0(8P) 
R53, 0(8P) 
RO 


o(SP) 
NeBe2(SP) 
esp 

o(8P) 
O¢SP) 


OGNS29 
NO4(SP),eSP 
aERS1g 
N(SP);RO 

no 


RO 
_ NOS(SP) RO 


NOACSP) IRE 


Ry 
NOSCSP) ARE 
NO4(8P) RZ 
R 


2 
NO7(SP) RZ 
NO6(SP) RS 
Ry 
O(SP) 
2¢3P) 


ae 
004 (SP), RE 
R4,0SP 
O¢sP) 


048?) 
0e3(SP),0(SP) 
Q42(3P),005(SP) 
005(SP),002(SP) 
064(SP),005(SP) 
007(S7),006(SP) 
006(SP),0¢7(SP) 


OWWS29 
OnTSL9 
R2,0¢8(SP) 


C1816 
£4605,R0 
0(8P) 

RS, SERRA 
(3P)6, (SPe 
Qeeed (SP) 
Qeaed( SP) 
Qede4(SP) 
Qeged( SP) 
RINSLO 

ae 





FoR? 
OG, OVZS46 
R4,Q¢9P) 
Ltd 
FLasag 
846, ,K5 
PG, OVESI6 


436 


— 


437 


yc 


SOVOB5 MACXA2 


3053 
3052 


sOVOO5 


3286 
3407 
3408 
3409 
3448 


MACXI2 


vozs 


veat 


23eMARG7S 


23eMARe7S 
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FLISL64 
FLISL61 


SGNS16) 


RINSLON 


ovisi6) 
OVRSL64 


Ovisi6) 


41154 PAGE S05 


GOS161 


NGOS164 


NQOS%6} 


£02816} 
£Q¢$16) 


RYSS261 


sOvit 


Pasi7} 


P2s471 


OlvSa7t 





MOV R4,008(SP) 
1s? RS 
ONE Fussre 
Mov 926, ,85 
sgn PG, OVES16 
MoV RG, Q04(SP) 
Ts7 R9 
ONE PLASiO 
MOV 846,,R5 
JSR rehaae 
BR persis 
LR 
MoV tiryeuss 
ao0 
OLE 
CMP 
oT 
move 
ROR 
ROR 
ROR 
MOR 
ROR 
age 
aoe 
aoc 
aoe 
MOV 
ecs 
avs 
MoV CEP) OARS 
MOV (SP) ORE 
400 08,3? 
ume OcRaye 
Ts? o¢SP) 
MOV 82005,R8 
oR EGLSSS 
asl ne 
aS Ry 
ROL Re 
ROL Ay 
ROL ne 
acs Goss6 
cue 09002 (SP) .R20 
aut NGOSSS 
a0 oosi6 
CMP 0¢262(97),R4 
8H! NGOSS 
oo GOSs6 
cme 00402 (9P),R2 
But NGOSLE 
BLO GOss6 
cmp 066o2(SP),R3 
ay NGOSLO 
LT 4°] NQDS16 
sve p%6e2(SP) R35 
sec Re 
sec RL 
sac RO 
sue 0e4e24SP) RZ 
sec fa 
sec 
eye Dezeaishy Rt 
sec 
8uB Deborah) RB 
INC 
bee or 
BGT Ovasse 
ars Pg 
tne Re 
BR EGASL0 
ASL Rq 
dec RS 
aGT Eg2sie 
tne RS 
RTS °¢ 
ENOC 
,ENOC 
ATITLE SOVISS 
FOF CNO$i7 
GLOBL SOV], SERR 
Reexe 
RAexe 
R28K2 
R3OKS 
RGEKS 
RSeRS 
SPSX6 
MQ8477584 
I NOF EARSMULOLY 
cur Re 
MOV (SP) o,RL 
ecT P4Si7 
BEO CHKSS7 
TNC RO 
NES RY 
MOV gr, Ry 
aGT P2347 
seo ZERSL7 
tne ae 
NEG Ry 
Mov R4,0(3P) 
MOV Tr 
CLR Rg 
SWAB R3 
ee6 OlVSa7 
as, R4 
swaa Rr} 
ast ay 
ROL RZ 


435 


sOvios 


3263 
3162 
3463 
3264 
3465 
3466 
3467 
3368 
3469 
3470 
3473 
3472 
3473 
3474 
3475 
3379 
3477 
3478 
3479 
3480 
3483 
3282 
3383 
3484 
3385 
3486 
3487 
3488 
3389 
3390 
3292 
3192 
3393 
3494 
3495 
3396 
3497 
3198 
3299 
3208 
3224 
see2 
3203 
3204 
3205 
32286 
3297 
3208 
3209 
3218 
3213 
3212 
3215 
3214 
3345 


SOVROS 


3216 
3217 
3218 
3219 
3220 
3222 
3222 
3225 
3224 
3225 
3226 
3227 
3228 
3229 
3238 
3231 
3232 
3233 
3234 
3235 
3Z36 
3237 
3238 
3239 
3240 
3244 
3242 
3243 
3244 
3245 
3246 
3247 
3248 
3249 
3256 
3254 
S252 
3253 
3254 
3255 
3256 
3257 
3258 
3259 
3268 
3261 
3262 
3263 


3264: 


3265 
3266 
3267 
3268 
3269 
3270 


MACXA4 


MACKXL2 


881234! 
OB1256° 
3e1240! 
004242! 
01244! 
801246! 
381252! 
081254" 
301256! 
901262! 
201264! 
881270° 
881272! 
@81276! 
881390! 
801302 
BO13048 
3813108 
881314! 
8O1316! 
281320° 
881322 
881326! 
BB1332! 
BOL3356! 
801340! 
881342! 
861546! 
861350° 
B81352° 
0813554! 
981360! 
381364! 


VO2s 


TIT) 
080004 
180908 
oeao03 
aeage4 
agegas 
080006 
090007 
177304 


yoat 


177312 
179344 
177346 
200088 
080084 
200030 
280814 
O00814 


210446 
018546 
895000 
995893 
389846 
386366 
286116 
189846 
883766 
884456 
156616 
pies, 
156608 
280320 
785261 
786098 
156606 
156684 
308304 
885902 
395003 
286366 
203566 
156682 
1609216 
205082 
156602 
208382 
AOG264 
886902 
156622 
156693 
200393 





23aMARC7S 


23eMARe73 


80ee12 


909010 
200815 
opo0s4 


800047 
888016 


200010 
eoagc2 
280033 


980810 


800845 
880812 
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LUPSi71 


P3si7t 
ZERSS74 


sovil 


sOvel 


CHKSS71 


Bea LWPss7 
INC ny 

sus Rash? 
BHtS = LWP Sa7 
A00 make 


ogee 

ogc R4q 

BGT olvss7 
MOV (SP) 0, R4 
NEG Ry 

aSR Re 

acs P3sy7 

NEG Ry 

avs CHKS47 
MOV RJ, eSP 
ume @CR4ye 
CLR ogr 

Jur (Raye 
sENOC 

tor EAE 

MOV ena, Re 
MoV ($P 0, R3 
seo CHKS$7 
mov (SP)o,0R0 
18? of RO) 

Mov RE, e(KB) 
CMP (ROO, (RBQS 
MOV ORG, 0 (SP) 
MP OCRaye 
sONOC 


sJFOF = MULOLY 
MOV 2(3P I, R4 
sWORD = -BB4728 
sWORD = B7L026 


MOV RO, 0SP 
acs CHKS37 
une e(Raye 
vGNOC 

gr RS, SEAR 
JMr ocRaye 
iayTe = 3 

;BYTE |S 

+ENOC 


sTITLE sQvReg 
sIFOF = =©6GNOSS9 
1GhOB8, SQVR»SERRA 
noaxe 

Ris%t 

R29K2 

R3aXx3 

R4EK6 

ASaXS 

SPax6 

PCaX7 
MQe477304 


12154 «PAGE 505 


sOvRt 


SOVRI 


NORGL 77312 
LSNes77344 
ASHO477346 
Foexe 

Fiexs 

Os8, 

Neda, 

Qet2, 

vlror Fry 
sWORD = 4 78004 
,WORD «1.72520 
yWORD §=492420 
WORD = 4.74484 
WORD 474840 


JMP OcRaye 
,ENOC 

LtPNOF FPU 

MOV R4,0(9P) 
MOV R5,0(9P) 
CLR RO 

cua ay 

CUR e(SP) 
AS, NeGe2(SP) 
ROL, ogre 

CLR o(S8P) 
rs’ O¢SP) 


BEa OGHSi6 

arses NO4(5F),0SP 
aga 2ERS15 

8{3B = N(SP),RO 
SWAB RB 

sec 

ROR Re 

B{SB  —-N@S(8P),RO 
B]SB «= N@BCSP), RE 


gwae RY 
CLR Re 

CER RS 

ASL, o(sP) 

aoc 2(8P) 

BISB OL 9P),R2 
sus A2,08P 

CLR R2 

8{se Of SP) gR2 
swaB RZ 

sec 

ROR R2 


8180 00S (SP1,R2 
6538 Oo2(SP),RS 
Swag Ry 

sIFOR = EARS MYLOLY 


che 
ROR no 
ROR ir 


ROR Rn? 


40 


44 | 


-—-- 


feat 


sQvReS 


3273 
3272 
3273 
3274 
3275 
3276 
3277 
3278 
3279 
3280 
3283 
3282 
$283 
3284 
3285 
3286 
3287 
3288 
3289 
3298 
yooa 
3292 
3293 
3296 
3295 
3296 
3297 
3298 
3299 
3320 
3302 
3302 
3383 
3304 
3325 
3326 
3307 
3308 
3309 
3319 
3312 
3312 
3343 
3314 
3315 
3316 
3317 
3318 
3319 
3329 
3323 
3322 
3323 
3324 
3325 


SOVROS 


3326 
3327 
3328 
3329 
3330 
3334 
3332 
3333 
3334 
3335 
3336 
3337 
3338 
3339 
3340 
3344 
3342 
3343 
3344 
3345 
3346 
3347 
3348 
3349 
3350 
3354 
3352 
3353 
3354 
3355 
3356 
3357 
3358 
3359 
3368 
3364 
3362 
3363 
3364 
3365 
3366 
3367 
3368 
3369 
3378 
3374 
3372 
3373 
3374 
3375 
3376 
3377 
3378 
3379 
3388 


MACX142 


881366! 
091379! 


004372! 
903374! 
801376! 
oei4eg! 
oo14e2! 
091406! 
aoseig? 
801412! 


oe14i4! 
001416! 
ag442e¢ 
994422! 
901426 
001430! 
9814324 
81436! 
001448! 
ae1esae 
801446! 
901452! 
081456! 
981462! 
gaisea! 
001466) 
981479! 


601472! 
62476! 
901502! 


081586! 
981510° 
884512! 
801514! 
881516! 
061522! 


MACK 


883526! 
884530! 
381534" 
881536! 
881542! 
981544 
083559! 
301552! 
881556! 
881560! 
881562! 
981566! 
9815726 


voas 


ozaaee 
103449 


101834 
620103 
184032 
001034 
095966 
805236 
805085 
000445 


822626 
800433 
895726 
232708 
890406 
299746 
822708 
990402 
912700 
983726 
884567 
895966 





886004 
385216 


042704 
804767 
110566 


885734 
881402 
995905 
090404 
#42704 
004767 


vees 


912004 
362704 
383744 
922784 
892733 
126466 
386026 
286966 
286095 
295505 
805566 
910566 
183716 


23emMARC7S 


ogees4 


OB4005 


965005 
094405 


992576 
900018 
980012 


880013 
880204 
aeees¢ 


990029 
808960 





23eMARe7S 


opez20 
000377 
9ge013 
ogee. 


880028 
8eo042 
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ZERS18) 
ocwss8} 
oviss6) 
OvVRsi6} 


UNOSS8} 
ecusse} 


Eciss8i 


OLwsi84 


On{si8} 


NTOSL81 


OWISaBt 


ROR 
sENOC 
CMP 
a0 

a PNOF 
BH! 
cur 
BHI 
SNE 
CUR 
INC 
CLR 
BR 
eNnoe 
stFOr 
SHIS 


MoV 


vENOC 
Thor 
CLE 
ROR 
ROR 
ROR 
eNOC 
spPOr 
MOV 
MOV 


11134 = =PAGE S07 


NB? S481 


NB{Si8) 


FLISia4 


SGNS481 


MOV 
MOV 
1s? 
MQV 
MOV 
MOV 
TS? 
ASR 
sya 
bec 
MOV 
CMP 
NEG 
MOV 
ago 
CLR 
sus 
MOV 
MOV 
MoV 
vENOC 
\IFOF 
MOV 
MoV 
WORD 
MOV 
MOV 
WORD 
ASR 
sys 
WORD 
,WORD 
NEG 

s WORD 
a00 
WORD 
amt 
oce 
ar 
WORD 
NOV 
,ENOC 
MoV 
aoo 
OLE 
CMP 
aur 
MOVB 
RQR 
ROR 
ROR 
age 
age 
MOV 
secs 


Rg 
AO, RZ 


OMTS8 
CACRMULOIY 
OL, W828 
RYLARS 
Ouwes8 
OntS36 
acSp) 

opr 

Ry 

rLtsas 


EAE {MULOTY 
OLWSa8 


CSP), (SP)e 
Coase 
C3P)¢ 
s4005,R0 


CBP ype 

R5, SERRA 
Qe6e4{SP) 
Ge2e4{SP) 
RINSSS 

no 

RY 

osr 
EALSMYLOLY 
a9 R4 
PC, OVaSi8 
R5,Q¢3P) 


aq 

nqosee 

R J 

FLTSSY 
946, ,K4 
PG, 0V3S28 


EAELMYLOLY 
Ry 
no 
Ra 


EAR 
9HO,R9 
RY, ORD 


RO, e( NS) 
RZ, 0 (KS) 
(RS)e 
(RO) OgRY 
(R39) OyR4 
RS, ORS 
e(A5) 

R 


ry 

Rage RS) 
@8ASH 

RB, e(KS) 
CRI) OP (REDS 
ORS 

02, O8ASH 
RO, 0( KS) 
esNOR 
OsNOR, SP 
#06, 08,34 
(R35) 0, 00SP) 
ORS, RS 


MULOSY 
RU,R4 
RYYRS 
B74408 
RO, RS 
RO,RO 
270403 

Ry 

RU,R4 
873427, 04 
a7qang 

R4 
873427, 014, 
RB, RE 
o734a27 41 
NBISi6 
sp 
NOTSS8 
873427, 07 
R4,QCSP) 


CGP) Oy R4 
8200,K4 
VNOSL9 
8377,R4 
OVRSLS 

RO, Qogud( Spr) 
(EP) 
06004(3P) 

RS 


Rg 

Qe004(SP) 
RS, Geg04( SP) 
ovass8 


Yuya 


443 
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3384 3045748 192795 avs Ovisse 

3382 081576! 312605 RTNSLO} MOV (SP) 0,85 

S383 aa1608/ 032604 MOV (9P)0,R6 

3384 091602! 022626 CMP C3) 0, (SP DE 

3385 381604) aeass4 vMP O(Raje 

3386 sIPNOF = EACSMYLOTY 

3387 901606! 296305 OVissel ASL RS 

3388 991610! o86301 Ast Ry 

3389 301612! 306328 ROL, RO 

3398 991614! 193406 ocs 60838 

339% 091616! o2g2e0 CMP RQ,RO 

3392 9916020! 19{019 OH! NGOSS8 

S393 981622! 193403 ie) GOss8 

3394 8016244 G2g304 cue RY,RY 

3395 391626! 104905 OHS NGOSi8 

3396 001630! 001407 aca NQOSL8 

3397 981632! 160303 Gosia; $UB RJARL 

3398 991634! 395600 sec Re 

3399 081636! 160200 sys RZ,RO 

3408 091640! 295205 INC a3 

3402 3916424 905306 NGoSa8) DEC R4 

3402 081644! 283360 BGT Ovasa8 

3403 091646! 000207 avs °g 

3404 981630! 295205 NQOS26) INC RS 

3403 991652! oog4o1 BR E94si9 

3406 081654! 206305 EQ2si6; ASL aS 

3407 081656 305304 EQisi8) OE R4 

3408 981660! 293375 ac? E@asie 

3409 981662! 205204 ING R4 

3412 981664! 990207 RTSSi6y RTS *¢ 

sang vENOG 

3442 sENOC 

3413 sGNOC : 

3444 sTITLE sOxras 

3445 LTFOF «© -CNOSS9 

3446 1GLOBL DEXP,FERRA 

3447 a}PNOF FPY 

saya sGLOBL SADD, SSED,;SMLO,SNVO,810, 501, SPOLSH, SPOPRG 

3449 ,ENOC 

3429 RGUXD 

3424 RLOXL 

3422 R28K2 

3423 R3OXS 

3424 Ronse 

3425 RBexS 

3426 SP9x6 

3427 Foexe 

3428 ryexy 

3429 F20%2 

3438 F3exs 

3433 oever, have BERS RO 
xPy e de Z 

3433 vENOG vied 4 

3434 LTPNOF FRY 

3435 DEXP! MOV R5,0(SP) 


pr re ne 


SOXPQ5 MACX14 Vo2s 23eMAR7S «11134 PAGE 509 


3436 MOV 2¢R5)4R4 

3437 MoV OR4, RO 

3438 ,ENoe 

3439 8GT possiy 

3aag cur RB, 0444062 
34aay BHI ZERSL? 

3442 BR SMTSL9 

3443 POSSi9) CHP RO, #44660 
3444 aut OVRSSY 

3445 SM?Si91 ASL RB 

3446 cme RO, 863008 
3aa7 ayo ONESSY 

3448 vJPNOF FRU 

3449 sus 426, ,3°? 

3450 ago 985 RE 

3454 MOV o( RO), e(SP) 
3452 MOV 0(R4), (SP) 
3453 MOY o(RG))a(SP) 
3454 MOV CRG), eC SPY 
3455 MOV #043764,¢(4S9P) 
3456 MOV #0246534, 0($P) 
3457 MOV #425073, 0(SP) 
3458 MoV 840270, 0¢5") 
3459 JSR R4,$PO,SH 
3460 :WORD = SMUD 

3464 WORD OWPSsY 

3462 sWORD = SQL 

3463 WORD = AQUS AY 

3464 sWORD = $10 

3465 :WORD = $880 

3466 :WORD) -MEOSA9 

3467 1WORD = =—-OWP SLY 

3468 WORD = -$QT 

3469 :WORD «OS ¥S19 

3470 sWORO = $10 

3474 sWORD = $ $80, Y46849 
3472 sWORD = OYP§49, 0UPS19 
3473 sWORD = SMD 

3476 ;WORD = SPOPR 

3475 ,WORD -UPLSAY 

3476 ONESA9} MOV 046200,R0 
3477 BR 24839 

3478 OVASL94 MOV s4004,Re 
3479 BR EGLSL? 

3489 ZERSL9} MOV #2005,R8 
seas ECLSA9} SR AS, SERRA 
3482 CLR na 

3483 218491 CLR Ry 

3484 CLR RZ 

480 okra 

3486 ? — 
3487 UPLSA94 MOV 6093343,0(9P) FHS 
34388 MOV 8045345,0(9P) 
3489 MOV 8452405, 0(8P) 


3490 MOV 0845746,0(9P) 


SOxP@5 = MACX14 


3494 
3492 
3493 
3494 
3495 
3496 
3497 
3498 


SOXPOS = MACXA2 


yo2s 


vo2s 


23aMARe7S 


23eMARe7S 


22934 PAGE 50d8 


SCLSa9 
ASREL9I 


NMLSE99 BE! 


scisa9 


ovtsao} 


aQusamt 7 


ARNSL9} 
M26339) 


Mov 
MoV 
Mov 
MOV 
“QV 
MOV 
MoV 
MQV 
MoV 
MOV 
MOV 
MOV 


12154 «PAGE Seas 


026839) 


OORSL94 
OSvSa9} 


AUPSA91 


ABPS49} 


OUPSS94 


TWESS9 
Twisa9 


RT2SA94 


0 
M16S494 
s 


RF, 0(¥P) 

RZ, 0($P) 

RY, 0(3P) 
RO, 0( $F) 
8453703, ¢(SP) 
SUIOAL, © (SP) 
BL43306,0(8P) 
#BS7154,0(3P) 
RS, 0(9P) 

RB, 0(3P) 
Ra,e( SP) 
RB, 0( 3") 
9471062,0(97P) 
eerteta tise! 
0392292, 0(SP) 
8044246,0(SP) 
RG, SPOLSH 
SADD, AYPS39 
SHLD, $400, 9m. 


TwOSaY 
$400, A0PSi9 
$380,50V0 
SOLS2Y 
WRI294 906, ,A5 
8, (3?) 
NALSS9 
(RB) aCSP) 
eCR5)guSP) 
@(RS),eCSP) 
(RS), 0(SP) 
R4,5POLSH 
SHLD, AERSA® 


R4,RO 
OVRSLY 
(BPO RS 
RS 


OZ( R51 
ARNSSY 


ogr 
@SP,26, (SP) 
o(Raye 


#1000, 09P 
o(Raye 


#1900,98P 
OORSi9 
ope 


O(Ra)e 
we 


(5P)6,38, 6SP) 
CSP) 0,38, (SP) 
(57) 0,385 (SP) 
(BP) 6,38, (9P) 
Oc Raye 

(SP) 6,22, (8P) 
(5P) 0,22, 69P) 
(5P) 6422; (9P) 
(§P) 0,22, (SP) 
OCRaye 
6(SP),0(SP) 
6¢8P),0(SP) 
6¢SP),0(SP) 
6(SP),e(SP) 
suns 





96,89 
14h caPDvecary 


rwasay 
ecnaye 
840265, 002S63,634771,157145 
8402350 , 833760, 850615, 184253 
B4O245 112704 (61752,195727 
840205, 125983 ,063754, 044375 


FRU 


#FCOSZI;RO 
MB(RS) FZ 
CRB) Og F2 
F3,R4 

"2 


Myasay 
OL 2,F2 
R4 
046,0,72 
FURS 
846 ,0)72 
F2.F3 
rine 
Fore 
CRO) OFS, 
CRO OGPS 
(RO) OFS 


446 


447 


eae aC | 


SOxPas 


3681 
3002 
3603 
3004 
3605 
3606 
3607 
3008 
3629 
3610 
3o1a 
3612 
3643 
Joe 
3645 
3616 
3617 
3618 
3619 
3620 
3423 
3622 
3623 
3924 
3625 
3626 
3627 
3628 
3629 
3638 
3633 
3632 
3033 
3634 
3635 
3636 
36937 
3638 
3639 
3440 
3644 
3642 
3943 
3944 
3645 
3646 
3647 
3948 
3949 
3650 
3653 
3652 
3653 
3654 
3655 


rm 


SEXPO4 


3056 
3657 
3658 
3059 
3668 
Jo6t 
3662 
3063 
3664 
3065 
3666 
3667 
3668 
3069 
3670 
3672 
3672 
3973 
3674 
3675 
3676 
3077 
3678 
3679 
3680 
3684 
3082 
3oas 
3o84 
3685 
3686 
3087 
3688 
3689 
3699 
3694 
3092 
3093 
3094 
3995 
3696 
3097 
3698 
3699 
3709 
3704 
3702 
3703 
3704 
3705 
3726 
3727 
3708 
3709 
3710 


MACXA4 


MACX14 


881666! 
821672! 
081674! 
81676! 
881702 
681704! 
981706! 
804712 
881714! 
901716! 
01722! 


094724! 
901726! 
8047390 
901734! 
981749! 
ao47420 
001746! 
ao1759° 
aa1754! 
001756! 
094760! 
001762! 
001764! 
201766! 
OB1779" 
091772" 
agi7740 
884776! 
ae2gag" 
aa2g02" 
ao2go4: 
082026! 
ag2aig¢ 
a92e12! 
ag2gie 
202016! 
ag2020' 
992922' 
ag2924/ 
392939 
a82932! 
902036! 
92942! 
ag2gee! 
a02n5o! 
ag2a546 
982256! 
282062! 


voas 


89eg00 
880004 
380008 
ITT TE 
880906 
380005 
288026 


Vea 


980987 
o9ageg 
388804 
289202 
990903 
846504 
044400 
O93904 
820027 
184446 
889403 
320027 
104437 
886309 
820027 
103527 


005746 
005946 
342746 
816446 
041446 
046446 
841446 
agaaey 
asepsal 
202322! 
2027146! 
202056! 
302236! 
ag2ge4) 
aai23e/ 
a9go8e) 
ao20e4! 
092322! 
agogagl 
aor2se! 
230006! 
a0ggae/ 
aor2sel 
oe2g2e/ 
889806! 
882232! 
ag2sz2! 
002160! 
862726 
000134 
326646 
046646 
900434 
842746 
012746 
090134 
211666 
80154 


23eMARe73 


23eMARC7S 


ogeee2 


144662 


044068 


963008 


840290 
280002 


898802 
082422 


190298 


280802 
880893 


125073 
840270 


890012 


42154 = PAGE 3042 


SCLSA91 


NMLSA9} 


sclsa9y 


ONES394 
OVRSS9I 


ZERSL9Y 
ECLSA9 


z48191 


FCOSa9) 


SusO 
O3v0 
Agr 
acc 
MULD 
BR 


aca 
400 
BR 
S70 
MOV 
MoV 
MOV 
MOV 
Swag 
CLAS 
ASR 
aod 
BMy 
Rvs 
MOV 
eR 
MOV 
BR 


11154 = PAGE Sai3 


Exes 


POSS28) 
SMYS29} 


INCS29} 
ours2ay 


PLES2a) 


Csvs2ey 


PC ak? 
roexo 
ryexs 
PZeK2 
F3aXS 
MOV 
MOV 
UG? 


ov 
up 


PUPS 
were 


NALSSY 
(RB) 0,79 
SGLS39 
sGisiy 
06, ,R0 
SGLS19 
FB, 0( SP) 
CP) O,RB 
CSP) 4, Ro 
CP Oke 
(§P)O,R3 
nq 


R 

ns 

R4,RO 
OVRSL9 
RS 
#40208,R0 
24819 
04204,R0 
EGLSSY 
€2095,R0 
RO, SERRA 
ag 


40270 ,429073 024534, 015702 
044240,194232,8674483,171842 
837494,413360, 158001, 193703 
940766,152405, 615345, 933345 
840205 ,125303,863714, 944473 
040249 5113701.164752,105727 
948230 ,933768,850615,134253 
840263, 002363, 031773, 1597365 


SExPae 

cNos20 

EXP, SERRA 

rey 

SADR, SSBR SMLR,SOVR, SIR, SRI» SPOLSH 


245) ,R4 
ORG, RY 
PQss2o 

RO, #144662 
ZER$20 
SMTS20 

RO, 844660 
OvVRs2e 

RO 

AB, 665000 
ONES29 

rPU 

o(3P) 

o(SP) 
#40280, 0(SP) 
26R4),0CSP) 
@R4,0(8P) 
2(R4) 0 (SP) 
OR4, 0 (SP) 
RG, SPOLSH 
PLes2e 

SHUR 

SR} 

ESVS2e 

Sqr 

PLCSae 

SQVR 

Sg8r 

CPRS2u 

SMUR 

Sadr 

SOVR 

$AOR 

saoR 

SOVR 

INCS29 

SaoR 

OyPs2p 

SMR 

SGLS2e 
#,68200,09P 
o(Raye 
2¢SP),0(SR} 
2¢8P),0¢SPy 
minis 
0425073 ,0(8P) 
640278, 0($P) 
o(Raje 
087,20, (SP) 
O(RE)e 


YF 


444 


SExPoS 








SEXPoe 


3766 
3767 
3766 
3769 
3779 
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882064 386116 CrAS20) FOL 
692066! ROL. 
ag2079° eoueee sue 
ge2g74/ 80S 
862076! ROR 
og2100/ ROR 
082102! MoV 
8024044 899002 MOV 
ag22i9/ 836602 MOV 
oe2i14! 144308 MOV 
ao2320° mov 
e@2222! MOV 
002324! O7E574 MOV 
892159! 043426 MOV 
g92334! 056333 MOV 
002249! 812746 2349560 MOV 
082144) 930146 MOV 
092146 019046 MOV 
892150 220146 MOV 
892152! 312946 MOV 
092154 390134 une 
sGNOc 
s170r 
sero 
Ser! 
Mov 
LOgrO 
Mop 
s7coy 
400 
Ovo 
[$44 
,OCor 
cree 
eco 
OF 
MULF 
aOOr 
40F 
Ove 
apor 
aoor 
OlVF 
MULF 
syer 
MULE 
SC£S26) STF 
NOC 
vUPNOF 
002456! 322626 2FRS281 ee 
U) 
892169/ 012608 SCLS2B) MOV 
982262! 012604 MOV 
+ TPNOF 
882164" 912606 MOV 
MACX12 VO22 «= 23eMARC7TS «= 44154 = PAGE S0d5 
sENOC 
902166 ogasae swas 
882170! 195804 CURB 
082172! ge62c6 ager 
802474! 969408 ado 
892476! 1984685 omy 
8g2208/ a98205 ays 
892202 oasee. ONGS2a1 CLR 
092204! 032708 saoze8 MOV 
82219 860205 aqS 
O82212' 932709 s024R4 OVRS20) MOV 
902216! 990402 BR 
882228/ 012708 902405 ZERS2O) MOV 
082224 084567 Bo20z0 ECUS201 VSR 
882238 285900 CUR 
602232! 2eSee% cur 
882234 80205 avs 
stFOr 
FCos2g) ,WORD 
1WORO 
»WORD 
sWORD 
+ WORD 
» WORD 
1 WORD 
vENOC 
,ENOC 
s£07 


Rg 
9406,09P 
aERS20 
no 


ogp 

gp, Re 

2450) RL 

9036692, 0(SP) 

9241108, 068P) 

Ai, a (HP) 

RB, o(§P) 

BO7ESTL 04 SP) 

8842426,0(3P) 

9956453, 0(9P) 

9864568,0(5P) 
eetsr 

RB, 0(9P) 

RL, eC SP) 

RO, e( SP) 

Oc Rais 


reu 


#FCOSZ0,RO 
O84, F2 

CRO OER 
F¥)RA 
94,0,68 
CRO) Oar? 


F3,re 
354528 


(ROOFS 
(RB) 6) FS 


re 

VD, e($P) 
rey 
CEP) oy (SPDd 


(§P) 0, Ro 
C9P OGRE 
Fay 


(9R) 0, Re 


na, RO 


ovRs2g 
as 


Ry 
646209 ,R0 
RS 


0g404,R8 
CELsee 
63405,R9 
RO, SERRA 
Ro 


Ry 

a3 

rey 
048379,125073 
834534, 013963 
046478 ,329073 
834534, 015764 
644566 ,856¢33 
842426,073571 
£44100, 0364602 


spo 


757 


SexPoe 


SICIBe 


3658 
3654 
3852 
3853 
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SFEALLI 


mersasi 


trix 


uPyse2) HOV 


FLOATY 


uPLs2gy 
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soett 


sieti 
Gos24) 


C 
ST?S24) 


SGS$24) 


8 
SNES24) . 


nxtsaa 


Ls 
NCKS24} 
a 


BV 
FLos24) ¢ 

aL 
SGNS24) 

acs 





“ov 
MOV 


BASIC SOURCE FILE a5 
SPCLOe 
CNOS23 
SfCALL 


ORETSZ4,0(8P) 
+ bd tal 
R5,0(§P) 
$453,0(57) 
SP RS 
men one 
nat 
obi 


el 
TPiXs EL, SPOLSR 


AIRS) GRE 
25R4),0(8P) 
® 4043r) 
RG, SPOLSH 
SRY, UPLS22 
C§P) 0, RO 
Rs 


ohbeee 
FLOAT SIRs SPOLSH, SPOPRS 


O2¢R5), (SP) 
R4, SPOLSH 
sir 


SPOPRS 
UPLS2y 
Ag 


SiC18e 
CNOSes 
SLC, $062 


467, 04SP) 
Gpsze 

W474, 0(8P) 
Ras at BP) 

Br (SPQ AREY 
O99P),8, (SP) 
4937) ,6(SP) 
RO, 4($P) 
RZ, 0( SP) 
(SP) 

Ro 


(Rg 0, R2 
#477600,R2 
oaee, 


SGas24 
R4142,(5P) 
ST¥s2¢ 
SGNS24 


709?) 
sNas2@ 
ogp 


NGKS24 
Re, 8h 
rLOseq + 
Re, 8/0 
NGKS24 
ese 
FLQS2¢ 
CRY) Op RZ 
4 7908183 
é.f 
Nene 
M0, RE 
RA we 
ERRg26 
RO, 68) 
ERRS28 


NOMS24¢ 


YS Am 


453 


Seana” 
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3905 Cue 
3906 ONES24) MOV (BPO Ke 
3907 MOV CBP) OARS 
3908 ROL C§P)+ 
3909 MOV RO, 4(3P) 
3948 MOV CGP) Oe RO 
3943 avs eG 
3912 ERAS24) TST CEP )e 
3913 NGMS24y CLR Ro ‘ 
3914 com 4¢9P) 
3935 pe ONES2¢ 
3916 OCLS24) ROL Ro 
3937 : ocs CRRSZ4 
3918 ROL, Ro 
3949 ocs ERRS24 
3028 . ROL 
3923 ecs ERRS26 
3922 ado RZ, RO 
3923 oR FLOSa¢ 
3924 sGNOC 
3925 sTSTLE SiC008 
3926 stPOr = CNOS29 
3927 
3928 sGL08L S1COrS0C0 
3929 Rgaxe 
3938 Ress 
3933 RQOK2 
3932 RJUKS 
3033 R4oaxd 
3934 SPUxe 
3935 PCOx7 
3936 socos Ov SOCTSZ5eREL S25, RO 
3937 or 60825 
3938 stcor = MOV SQECEZSeREL S25, RG 
3939 GOS254 MOV R4,0(9P) 
3949 MoV Oy CSPVARS 
3944 MOV 61 (SP) ,R2 
3942 age LPss23 
3943 CUR Ra 
3944 CLR esse) . 
3945 LPss25) MOV 4y 63h) aR4 
3946 MOV at ,0(SP) 
3947 cmp RO, BOG TI25eREL S25 
3948 sca P08$23 
1949 rst R4 
3950 96k Pgss23 
3953 NEG Rn 
3952 Mov ate, 0yP 
3953 POSS25) CLA o(SP) 
3954 apo PGR 
sr TEES rar on 
3956 eR 
3957 ace MOVS29 G57 
3958 CLR R 
3959 syas25) sus ORG, Re 
SICOO® MACX14 VO22 2eMARe7TS 11134 PAGE 603 
3960 ayo Bacsed 
1963 INC Rd 
3962 ar syesas 
3963 BAGS251 ADD (RO) O,RA 
3964 ts? Ri 
3965 BNE NECSAS 
3966 rst ogr 
3967 BEO TETS29 
3968 N2@@S254 400 096,R% 
3969 MOV RR, 0(SP) 
3970 BR TS7825 
3973 MQVS254 A400 RQ, RS 
3972 aoo 00, R4 
3973 MOVE =—s-R4, @ (RI) 
3974 OCRSs25) DEC R2 
3975 ALE FULS29 
3976 MOVE (SP) 6, e(R3) 
3977 BNE OGRS25 
3978 MOVO CSP), ORS 
3979 FILS25) OFC RZ 
3980 aca oNnes25 
39684 MOVE Of ,e (RS) 
3982 BR riuse> 
3983 FULS25) TST itiehe 
3984 BNC ERRS25 
3985 CMP a), (3P)e 
3986 BNE ST3S2504, 
3987 ONES234 MOV CEP) OyR4 
3988 MOV (SP)o,4(SP) 
3989 Ts? (SP)e 
3990 ROL CEP )e 
3993 args " 
3992 ERAS25) TST (SP)e 
3993 BNE ERRS25 
3994 TS? (EP ye 
3995 MOV 8, (SP) ,RS 
3996 878825) Move whe, (KS)e 
3997 OE 6{sP) 
3998 act STSs29 
3999 com 648P) 
4900 BR ONGS29 
4904 DECS25) , WORD 109690,,1000,,300;,,10,,8 
4002 OC#S25| ,WORD 198888, 19900,1000,100,10,0 
4203 sENOG 
4004 ATSTLE SINTOR 
4005 siPOF = CNOS26 
4006 sGL08L INT SOINTISRIsSPOLSH 
4007 Roexe 
4008 Raene 
4009 ASRS 
4018 ; SPUXG 
4013 INtT , 5 
4012 TOINT) «MOV 2GR9) RE 4S 
4043 MOV 24 RG) y0(SP) 


4034 MoV OR6, 0697) 


SINTOZ MACXLE 
4035 


4059 g92236/ 
4068 = aB2249/ 
4964 092244) 
4062 002246! 
4963 292259! 
4064 902252) 


4866 302254! 


SIRp4 = MACK12 
_ 4074 oB2zea! 


4074 982264! 
4075 992266! 
4076 992270¢ 
4877 982272! 


4089 «992274 
4098 ag2300° 
4094 902302! 
4092 o023048 
4093 902306! 
4094 g92318¢ 
4095 992312° 
4096 3823164 
4097 982320' 


voes 


aBgge8 
TTT TRY 
880802 
ITT T RY 
oeega4 
80a826 
177324 
177342 
eanges 


o05e46 
026684 
aBSe02 
001424 
005404 
296146 


012702 


vo2s 


185066 


086101 
193402 
385302 
380774 


119166 
195904 
130204 
800384 
886026 
306004 
186066 
218146 
800134 


2yaMARe73 


ooeeee 


235eMARe7S 


899804 


880985 


898B03 
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UPLS261 


stot 


ietse7) 


stot 


Poss27) 


ug R4, 970,54 
sWORD §=—- SRY, VPLS ZG 
MOV (9P)0,R0 
Rv$ a3 

sENDE 

sTITLE SiRge 
stFOr = GNOS$27 
GOB, SIR 


sJPNOF SHAS 


1GL08L S10 
sENOC 
agexe 
MLORL 
RZek2 
RSEKS 
R4dOK4 
sPax6 
MQei77304 
NOROL77312 
rguxe 
viror rey 
sIPnOr seas 
sero 
BR 101827 

t 
scrr 
set! 
Logie (SP) 0, 7O 
8’ 5, eC EP) 
ump O(Raye 
sCNOC 
aJENOF FRY 
eSPNOF SOAs 
nov OFP,0( SP) 
MOV O§P,0( SP) 
CUR 243P) 
CLR 4(¢SP) 
eEN0C 


one e(sp) 

MOV Bigedsns 
? 9gsse? 

80 EER27 


NEG Hi 
ROL 24 8P) 
vIPNOF EAE 

mov #220, 42 
sENOG 


EAC 
MOV 0247,R2 
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NOMS27) 


NooSs271 


BERS271 


SMLOt 


eENOC 
CLRS 4¢8P) 


STPNOF EAE 

ROL aL 

8¢s NQOS27 
RZ 


@R NOMS27 
ENO 

aSPFOR7 = =6EAg 

MOV ana, RS 
CLR ORS 

MOV Ra, a(RS) 
MOV sNOR, RO 
CLR org 

gus (RB) OARZ 
MOV HB, ORG 
MOV ORS, AY 


E 
HOVE. RA, SC SP) 
Ch Ry 
8188 RZ, RE 
R 


Swas 

ROR CHP )e 
ROR RY 
RORB CSP) 
MOV RL, eSP 
JHP gaye 
,ENOC 

sENOC 


sTITLE = SML089 
GNOS2§ 
1GLOBL = SMLO, SERRA 


Cex? 
MQBL77S04 

and, 

Bat6, 
RESLTHL2, 
SIGNe2 

Foexe 

LtPOrF FRY 
WORD 470642 
WORD 472426 
«WORD «4.94829 
,WORD = 4.74846 
Phd O(R4)e 


sENOC 
vSFNOF oFPY 


Enoe 


YS6 


WS 7 


ue 


SM.005 MACXIS 


SML085 = MACKXI2 


4468 
4183 


4236 


veas 


vo2s 


23ehARe7S 


23qMARC7S 


L234 


smpor | MOV 
La] 


i] 
sprees CMP 
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Eis2e) ymP 


NSs2e} CLR 
¢ 


gesze) nov 


i] 
B4NS28) VSR 
J 


848S28) tar 


B2nS26) USR 
628S26) MOV 
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sENOC 
aiFor 
CLR 
ose 
apo 
MOV8 
ROR 
Swas 
MOVE 
SWAB 


RG, 0(8P) 
R9, 06 9P) 





o(SP) 
ao4(88),0SP 
RORS20 
A(SP),;AoL (SP) 


agar) 

pee tee eAae? 
Ae2(8P) 
A@S(87),A0a(SP) 
aedcSP) 

POAC SARACARD 
ace 

estab) 

sie 

SLGNC RP) 
844¢97) 


NNES2G 
ii!" 
ag 


eleanaory 


i 


tae, setsP) 
seeceeerass 


raeate 

PG, MTaS28 
age, ,esP 
Boer (SP) ,84 
84NS28 
8O4¢e2(9R) 
543928 

PG MT Z8a8 
Been sze 
446, ,69? 
gs202(3P) 4 
Gans2g 
Beae2(SP) 
Gans2g 
aq02(SP) 
829328 

PG MLISZ8 
waeeg {9h ina 
97,08" 
PCLMLTS28 


CSP) ORE 


EAGT MYLOLY 
R4 


Bo4(3P),R4 
R4,0SF 

84, 0¢4¢SP) 
csp) 


B( AP) 
BeS(8P),8(SP) 
ae2(sP) 
865(SP),B09(SP) 
B64( SP) 
Sorcap)sBeacsry 
8e6(3P) 
806(8P) 


CA 

ana, Re 

ASP) ;0(SP) 
80602497), 0R4 
RS, EMYS28 

C$P ey RZ 

CEP LORS 
A®R(SP), = (SP) 
80402(SP),aR4 
RS, EMyS28 

CHP ORAZ 


R 
C$P)O,RS 
RZ 


Ra 
NO4(SP),0(SP) 
Bepe2 (SP), eR4 
RS, EMUS28 
CHP) eRe 

R 


a 
CSP) OARS 
n2 


Ry 

AOG (SP), 0(SP) 
Bebe2(SP), ars 
RS, EMys28 
CBP) OgR2 


Ls 
CBP) ORS 
Ra 


Ay 

RO,RS 

RL RZ 

Ri 
ASP), 0( SP) 
0o4e2{5P),0R4 
RO, EMUS28 
ATH 

Ry 


YESS 


ie 


SM,085 MACXaa 


4235 
4236 
4237 
4238 
4439 
4240 
4243 
4242 
4243 
4244 
4345 
4246 
4247 
4248 
4249 
4250 
4254 
4252 
4253 
4254 
4255 
4256 
4257 
4258 
4359 
4260 
4263 
4262 
4263 
4264 
4265 
4266 
4267 
4268 
4269 
4270 
4273 
4272 
4273 
4274 
4275 
4276 
4277 
4278 
4279 
4280 
4281 
4202 
4283 
4284 
4385 
4206 
4287 
4286 
4289 


SML0e5 


4299 
4294 
4292 
4295 
4294 
4295 
4296 
4297 
4296 
4299 
4320 
430% 
4302 
4303 
4304 
4305 
4306 
4307 
4308 
4309 
4310 
4343 
4312 
4313 
4314 
4315 
4316 
4347 
4316 
4319 
4320 
4323 
4322 
4323 
4324 
4325 
4326 
4327 
4328 
4329 
4330 
4333 
4332 
4333 
4334 
4335 
4336 
4337 
4338 
4339 
4348 
4344 
4342 
4343 
4344 
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3454 


11134 


PAGE 608 
aoo CEP )OIRS 
40g RZ 
aoc Lt} 
“OV AO2 (SP), 0(SP) 
MOV BO202(3P) ,oR4 
JR RO, EMyS28 
apo (HP) e,R2 
age RY 
aod CHP) OARS 
aoe Re 
aoc RE 
MoV AG6(SP),=(SP) 
MOV BO862 (SP), 0R4 
vsr RO CmySze 
ago (EP) og Kz 
aoc " 
apo CEP) O ARS 
aoe ng 
aoe Ry 
MOV ACSP),0(SPy 
MOV Bogen (SP), eR 
Jgr RS, CMys28 
0D HP ors 
aoe RO 
400 CEP) 4, RZ 
age Ry 
aoe Re 
MOV A®E(SP) ,0(8P) 
MOV Be8e2(SP),eR4 
vgr RS, EMyS26 
ago ($P)6,R2 
age Re 
a0o0 CBP) O,R2 
aoc Re 
aoe Ro 
MOV A(SP),0(SP) 
Mov 86042 (SP) ,eR4 
JER RD ,EMys2s 
«00 (9P)o,R8 
apo CSP) oO, RE 
aoc Re 
Mov CEP) ORE 
sENOG 
sIFOF | MULOSY 
MOV AGSP) ya(SP) 
MoV BOGo2 (SP) RG 
JER PC, eMyses 
mov R4,R2 
MoV RSRS 
MOV AO2(SP),0( SP) 
MoV meeetieene 
usr PG, EM 
aoo R4,RZ Yo oO 
aoe RE 
ado R5,RS 
ed 
PAGE 609 
aoc Re 
aoc Ru 
MOV A&6(SP), 0 (SP) 
MOV Beee2(SP) RG 
JSR PG, EMus2s 
Ado R4,R2 
aoc R 
ado R5,RS 
aoc Re 
aoe RY 
MOV AG6(SP),0(SP) 
Mov 8e9e2(SP),R4 
JSR PC, EMYS28 
Ado R4,R2 
age R 
ado R5,RS 
aoc R2 
aoe Ry 
MOV RB RS 
MOV RLARZ 
CLR RY 
MOV A(SP),2(SPy 
Mov 86662687), R4 
JSR PC, EMys28 
Aa00 R4,R2 
aoc Ry 
aoo RB,RS 
age R2 
aoc RY 
MOV AO2(8P),0(8P) 
MOV Be2e2(SP),R4 
JSR PG, EMUS28 
ado R4,R2 
aoc AY 
ano R5,RS 
aoc R2 
aoc Ry 
MOV AO4(SP),0(9P) 
MQV 80062(SP),R4 
JSR PG ,EMYS28 
aoo R4,R2 
adc R 
A00 R3,RS 
aoc R2 
aoc RY 
“OV A(SP),0(SP) 
MoV Be2e2 (SP) R4q 
JSR PG, EMyses 
400 R4,R4 
AOS as ; 
Ad aeR2 
aoe ay 
age Re 46 / 
MOV ASR(SP),0(SP) 
MoV BeGe2{SP),R4 


wl 


\ 


SML085 MACX14 


4345 
4346 
4347 


SMLQ85 MACX12 


440g 
44ny 
4402 


ve2s 


voas 


23eMARe7S 


23eMARG7S 
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NOMS26) 


ours284 
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ovis2e) 
OVAS28) 


UNOS28) 


ECLSs2e1 7 


2E2S26) 


MLTS201 AS! 


mr¢s2ay 


X0$28) 


MT2S28) 
MYBS28) 


MOV 
MOV 
ado 
uP 
ts? 


PG, EMysas 
aha 


RQ 
A9,R2 
RY 


RO 
A(SP),e(SP) 
96002 (SP) Rd 
PG, CMys2s 
R4,RO 

RARE 

RO 


CEP) ORG 


ovas2g 

RORESL TCSP) 

myenede Teatan) YEA 
RE URESLTOOSP) 

AG RESET OS ISP): 


(GP) o,R5 
CSP) Oo, R4 
99,,9F 
OCR4)e 
o(9P) 
05093,R9 


RO, SERRA 
Ra 

ay 

Re 

R 

ourseg 
EAGSHYLOTY 


x9820 
AoG46(9P) (AS 
Rg 

Ry 

Re 

a9 

AO404 (SP) RZ 
Lt S 

Ro 


RS 
AOZoa (SP) RY 
Ro 


aS 
A004 SP), RO 
R 


xa 
Ae 
ng 
Rg 
Aege4 (3), Ro 
R 


esey 
2041SP) RL 


"j 702 


tears 


wi 


SML005 


4455 
4456 
4457 
4456 
4459 
4469 
4463 
4462 
4463 
4464 
4405 


4557 
4558 


4564 
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ATS °G 

sENDE 

sIPOF «cae 
EMUS281 CLR oyr 

Ts? ORs 

aco més28 

aor MPLS2g 

rst 2¢3P) 

sea M828 

OGY MNGS2B 

ago (R4)e, 09P 

aoo 2487), 08° 

BR CMLS28 
MPLS20) TST 2457) 

ecG 4gS28 

LT39 MLAS2g 

aoo (RO) 0, 0SP 

aR CMLS2e 
MNGS264 A0O 2¢5P),eSP 
MLQs281 87 (R4)e 
EMLSZ2a) MOV 2(8P),eR4 

MOV 4 Ra) 2¢SP) 

400 o(R4),08P 

vs? (R4)6 

vee ORS 
MES28) CLR 2i3P) 

uMe ORS 

sENOC 

s3FOF | MULOLY 
Emus28y CLR o{$P) 

73? aa 

eo wés2e 

967 MPLS2e 

787 498") 

bce MES26 

OGT MNGS28 

BR MNGS28 
MPLS20} TST 49P) 

bEo Masas 

ac? MLOS28 

aod Ra, esP 

BR M826 
MNGS26} ADD RG, eS? 
MNTS284 ADO 43P),esP 
MLQS281 ,WORD 878466,4 
MONS28) ADO CHP ORE 

mov (9) 0, 09P 

ars °C 
M8281 CLA Ra 

che a5 

8 MQNS26 

sENOC 

sENOC 

,ENDC 


oTETLE SMU 389 
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SMUT 


P4829) 


P2329) 


CLRS29} 
MULS294 


cyes29} 


oursasy 


sSVOr = CNDS29 
sGLOB, SMUT, SERR 
ROUND 

RLass 

R2aK2 

RIS 

RGaN4 

R5aXS 

SPUX6 
SREZ99477544 
MQOL77304 
sTPNOF EAESMYLOLY 
CLR Ro 
~MOV (3P) 0,84 
BGT P4829 
Bea 2GR82Y 
TNC RO 

NEG RY 

MOV OSPR 

? eas29 

Bra agR§29 
tne Re 

NEG RY 

MOV R4,0(3P) 

v 06,94 

CMP RA RS 
BGE CLRS2Y 
MOV RL,R2 
MOV RS,RL 
MoV RQ,RS 
CLR RZ 

ROR Rg 

RoR RS 

ace cyes29 
400 RE,R2 
ogc aq 

aGT MULSe9 
MOV CAPO, Re 
rsT8 Ry 

ONE ovRsey 
8388 R2RS 
Swag Ry 
CURB Re 
Swas RZ 

ASR RZ 

BNE OvVRs2y 
ROR ay 

NEG RF 

oP, Oves29 
ROR Re 

acs oursey 
NEG RY 

evs OVRS29 
MOV RY, 09? 
me O(Raye 


by 


U5 


d 
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4565 NGMS29) NES Ry 

4566 8vc OvRSey 
4567 ROR no 

4308 acs oursey 
4569 OR OvRS29 
4578 BERS29) CLR ogp 

4573 ume O(Raye 
4572 +ENOC 

4573 i1POF = EAE 

4574 SMLI§ MOV ong, RO 
4575 MOV CSP) Oy (RODD 
4576 MOV ($P)o,eRS 
4577 MOV (RO), 0(SP) 
4578 ere 93, 32$29 
4579 8to OVRS29 
4588 Jue apRaje 
4563 sENOC 

4582 vIVOF = MYLOSY. 
4583 SMLTI | MOV CIP) oO, Re 
4504 WORD §=B70826 
4585 MOV Ru secgr) 
4386 acs OVRS2y¥ 
4587 JMP O(Raje 
4508 ,CNOC 

4509 OVRS291 CLR (SP) 

4599 JSR RD, SEAR 
4593 ume o(Raye 
4592 wyTr 3 

4593 sWYTE «644, 

4594 sENOC 

4595 TITLE SMULROD 
a39@ sFOF =©6CNOSS@ 
4597 sGLOBL «SMR, SERRA 
4598 ogeees agexe 

4399 aged, RLexS 

4409 onageg R2EK2 

4003 eeeea3 R3OXS 

4022 ITIL RAGK4 

4603 ogeges R5OXS 

4604 990986 SP Exe 

4905 990007 PCan? 

4606 177304 MQUd773904 

4907 177324 SReA77334 

4908 177314 LSWOL77324 

4q09 oeee0 Foexa 

4648 000g. Ang, 

4643 oages4 oe{2, 

4633 oseog ESL TES, 

4943 280082 S1IGNa2 

4634 sIPOF | FRY 

4645 SMLRI HGND 178083 
4616 W 472420 ‘os 
4637 sWORD = 474926 A 
4018 »WORD = 474946 76S 
4639 UMP O( Rae 


eats, i ESE PSSST Pea, 
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4620 sENOC 

4621 vITNOF FRU 

4622 082322! 039446 SMLRE | MOV A4,0( 9?) 
4923 B02324" 319546 MOV R5,0(SP) 
4624 sJFNOF = ECARSMULOLY 
4025 382326! 216692 290004 MoV AeGed (SP) »R2 
4626 382332! 086302 ASL RZ 

4027 982334! 386146 ROL o( SP) 

4628 092336! 295046 CLR =(SP) 

4629 302348! 300302 SWAB RZ 

4638 082342! 110216 Move R2,0SP 

4931 382344! 304597 1) aCL830 
4632 302346! 290262 sec 

4633 002358! 296902 ROR R3 

4634 902352! 195002 CURB Re 

4935 082354! 156602 280013 63390 AOS (SP) RZ 
4636 382360! agsgo3 CLR Rn 

4937 O82362' 156683 B90012 5188 a2 (SP), RS 
4638 382366! 309303 gaa Ry 

4639 082375! 286366 s80014 ASL 8(3P) 

4649 002374! 993566 aeg00e aoe SLGN(SP) 
464% 292409/ 185766 oga8i5 TS78 Beg (SP) 
4042 902404! 204467 Bea ZEGS30 

4643 002406! 386866 900024 ROR 8(8P) 

4044 902412' 295009 CLR Re 

4045 902414) 209004 CLR RY 

4646 392416! 236634 090036 MOV Bg (97), R4 
4047 992422! 201406 gg B28S3e 

4648 302424! 332705 98017 B2NSSO MOV O49, , 85 
4649 082430! 304767 ga8z20 usr PC, MTosso 
4658 302434) 9046767 eo0260 usr PC,MLIS3O 
4651 982440! 216604 aeani4 822830) MOV B(SP),R4 
4652 302444! 342705 000007 MOV a7,A5 

4053 392459! 294767 200344 JSR coches 
4654 302454! 394767 300444 use PG MTESSO 
4655 302460! 262606 apo (5P)O, RG 
4656 ,ENOC 

4057 .J7OF = EAE 

4658 MOV oma, Re 

4059 MOV #490009,R5 
4660 MOV Begnd (SP), 0R4 
4664 MOV BeBe (SP), e(R4) 
4662 neo BERSS9 

4663 INC O8L8H 

4664 RORB eesR 

4605 ROL, o(SP) 

4666 MOV CRG) Op 0(SF) 
4667 cuRe ose 

4668 SWAB agp 

4669 MoV 47, 00,,SH 
4070 Mov OR4,0( SP) 
472 eis 

4672 MOV (RG) o, u68P) 466 
4073 MOV ASBo4( SP), 0R4 ; 


4674 MOV A804 (SP), 0(R4) 
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4733 
4734 
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4768 


4779 
4780 


4784 
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092462! 
092466! 
882466! 
202479! 
802472! 
882474s 
392476! 
892302! 
a025046 
o82519! 
802512! 


voes 


Ye22 


86104 
386190 
183403 
906104 
086109 
885306 
162704 
203436 
922704 
202427 
105901 
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A2NS3O) 


A2PS30) 
A2BS30) 


B2NSSO} 


B2rS301 
B2assey 


Bea 
ING 
RORB 
age 
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288208 
888377 


A2PS3B) 
A22S30) 


B2PS3e) 
8228361 


NOMS3B1 


6(SP) 
OR4, RS 
Ry 

Ry 
RS,4C8P) 
#7, 00,SH 
(R476) R2 
A5,R2 

it] 


Lr 
(ROO, RS 
AGNSSO 


Re, eRe 
(RO); e(R4) 
2(3P),eR4 
24a") 
BePsse 

RB, ORG 
CRO) Og RY 

R 


t] 

RZ, (REVO 
RBRO 
OSP ene 
(SP) 4) RO 
eERayeRy 
Lt) 


(RG) RO 
(EP) 
CHP) ORE 


" v 
A 


- Geb 0d (SP) RE 


BERSSo 


873427,7 

R95, 063?) 
#490000,R4 
RG, 0(§P) 
AOR (SP) AS 
Node Sr) R2 
zeaase 
O73227 44 
(SP) 


RO,4¢9P) 
8732277 
642000B,R2 
Ro 


Ro 

ay 
A2zs30 
070483 
Ay, Re 
R 


AgPsse 
OSP, RG 
Ra, RY 
Z(SP) ARE 
BRESS0 
878489 
2(SP),R4 
He 
SePsse 
R2,R4 
RO, RL 

Re 

RQ,R4 
RZ,RO 
870446 
C§P 0, RD 
RO,RS 

Ro 


767 


Ab& 


yi 


See 


SMLROS 


SMLROS 


4040 
4e42 
4n42 
4843 
ana 


MACXLL 


eg25s4! 
a92516! 
ae2s2g/ 
892522! 
ea2s2q! 
092526! 
092539! 
882532! 
202534) 
8025364 
282549! 
002542! 
892544) 
oe255e/ 
892554! 
292556! 
g92568/ 
902562) 


892564! 
692566! 
092579! 
092572! 
002576! 
982606! 
992604 
002606! 
ge2ze12 
OB2614/ 
262616! 


082629! 
a92622¢ 
ae2624 
a92626! 
8026394 
892032! 
882634! 
882636! 
802649! 
802042 
092644! 
092646! 
892659! 


voas 


139804 
BCS, 
195609 
150408 
a8e3ee 
286826 
096009 
886004 


880456 


822626 
000432 
099726 
842708 
8804035 
812708 
885726 
984567 
695800 
295804 
000752 


886204 


982652/ 99077 


802654! 


992656) 4 


o92069! 
882662! 
o92664/ 
882666! 
082679! 
882672! 


MACX11 





oseey 
860200 
906008 
386003 
885305 
383374 
080207 


voes 


23eMAROTS 


opeese 
8eees2 


og6ees 
993405 
004456 
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Oufssel MOV 


zEasse; CHP 
RELSSo) CHP 


Ovasse) rs? 
OVESSa} MOV 


UNOSSO} MOV 


ECLSSB) ySR 
ZERSSO} CLR 


MLPSSOy A 
MTZS$SO} 40D 


XO938) ROR 


Covssel 400 
MTOSS6) AgR 


XOOS3B) ROR 


41154 = PAGE 6049 


sENDG 
sENOG 
sENDE 
1E0T 


ihe 
(3P)0,R5 
(RP), Re 
CSP) 0, (SP)e 
OCRA)e oo 
EAC MYL 

CEP), (SPS 
CEP), ISP)O 
aERS39 


CgP pe 
#9005, R0 


COLSS8 
#3405,R0 
($P)6 
RS, SERRA 
Ro 


Oursse 
CACEMYLOTY 
nq 

x9S30 

RI RL 

RO 


covsse 
RG,RO 
Re 


769 


4/70 


SMLROS 


4945 
4046 
4047 
4348 
4aa9 
4050 


SPPROG 


4909 
4903 
4908 
4903 
4904 
4995 
4906 
4997 
4908 
4909 
4918 
4933 
4942 
4943 
4914 
4915 
4916 
4947 
4918 
a9u9 
4920 
4923 
4922 
4923 
4926 
4925 
4926 
4927 
4928 
4929 
4930 
493% 
4932 
4935 
4934 
4935 
4936 
4937 
4938 
4939 
4948 
4gay 
4942 
4943 
agag 
4945 
4946 
4947 
4948 
4949 
4952 
4954 
4952 
4953 
4954 


MACKS 


8926746 
982676) 
8027008 
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902702! 
692704" 
882706! 
e82719! 
g02712! 


Vee 


380804 
290005 
882906 
080007 


812609 
822603 
832602 


Voes 


832603 
OB0134 
942608 
842624 
9001354 


300008 
90004 
889002 
80003 
880004 
280085 
888806 
177304 
177324 
888008 
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SNORI 
SNGOI 


aERs34) 
OVRSS3) 


SPSHRS) 
SPSHR4} 


SPSHR3} 
SPSHRQ} 
SPSHRI) 


ROeXS 
Riess 
R202 
R3exS 
R4axé 
RSX 
SPex6 
PCaXx? 


SPOPRS) 
SPOPRG} 
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SPOPRS} 


srt 


soyt 


nidsasi 


Ba8ic SOURCE Fite #24 


sTITLE = SNEGSZ 
vEFOF = -CNOSSE 
sGLOBL SNGL,SNGR,SNCO,SERR 
Ranks 

ASaXxs 

SPOXx6 

NES esp 

avs OVRSSY 
ume OCRaye 
Ts? ogp 

Lia) #ERSSY 
A000 8160900, 03P 
ume O( Raye 
JSR R3,SERR 
Td O(Raye 
BYTE 5 

sOYTE |= 484 
sENOC 

eTSTLE SPHROT 
vtFOF © GNOS3Z 

e xe 

8 wa 

Ld] x2 

ty x} 

ty x 

4 x5 

e % 

: os 

2G OBL SPSHAD, SPSHR4, SPSHRS, SPSHR2Z, SPSHRY 
MOV RJ, eC HP) 
MOV RG, ahr) 
MOV RasetHP) 
MOV RO, e(5P) 
JMP O(R4}e 
sENOC 

‘TITLE spPRe4 
stPOF = -ONQSSG 
sGLOBL = SPORPRS, SPQOPR4, SPOPRS 
MOV (3P) 9,88 
MOV CGP) o,Rs 
MOV (SP) a, RZ 
MOV (9P) ORS 
ume OcRa)ye 
MOV (3P)o,RO 
MoV (SP) oe RE 
UMP O(Raje 

+ ENOC 

ATETLE SRO? 
stPOF © CND$S4 
1GL08L sRO 
RaBK4 
BPeX6 
FOOXS 
Fiexs 

Ivor = FRY 
WORD 470033 
WORD 477426 
WORD =: 474848 
UMP O(Raye 
NOC 

sIFNOF FPY 

MOV 269P),0CSRy 
MOV 26SP),0¢SP) 
CLR 4(3P) 
cL 6(SP) 
ume OCRa)e 

+ ENOC 

Enoe 

ATETLE SRIQ4— 
vtPOF © GNOSS9 
1GLOBL SRI,SGRR 
stPNOF §$B8as 
2GLOBL «SO 
sENOC 

RGaXD 

RLOKL 

RZEKZ 

RSEKS 

R4ax4 

A5OXS 

sPexe 

MQu477504 
WSHOL77544 

roexe 

vtPOr FRY 
s3PNOF 8848 
seTo 

6A RLOSSS 
sENOE 

serr 

set! 

400 (SP)0,79 


47a 


y 
yee 





MACXLA 


092714 
B82716/ 
a02729! 
ge2722¢ 
902724) 
802726! 
892739! 
082732 
082734! 
992736! 
oe2742! 
092744! 
092746! 
092752! 
ge2754/ 
092756! 
092766! 


ge2764¢ 
882766! 
0927784 
a62772¢ 


0927744 
og 





8 
oasei2! 
oesesa/ 
oose16! 
ogse2g! 


veas 


995902 
895202 
242603 
086116 
096103 
986146 
120103 
185804 
990304 
162703 
892433 
ooa4sy 
022784 
GB2422 


3 
136603 


986103 
086102 
995304 
883374 


999402 
182406 
003987 
286826 
103404 
999402 
918216 
080134 
886026 
183774 
889746 


23eMARC7S 


oepeey 


8ese17 


Beoe85 
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stPNOF 


a SPNOF 
softs pov 


sri ne 


SFPSSS) 


Li 
ObGS351 nee 


s NOC 
ONESS3} 7 


<m 


at 

SGNS35) ROR 
8s 
NEG 

OUfSS5) MOV 
vp 

NGMSS5} ROR 
8 


cs 
OVASSS1 TST 


re ——— $< $@$£@ 


MACXL4 


agse22! 
893926! 
803030! 
003034! 
883032 
003854! 


865936! 
oese42! 
a03044/ 
a3ese 
883952! 
083056! 


voaa 
084567 
880401 
o2y 
026 
085002 
080762 


280008 
880002 
AOGBC2 
880023 
890024 
980889 
280206 
880807 
980028 
308003 
388802 
980805 


86586 
285646 
846446 
924446 
842746 
842746 


23eMARe73 
oege1e 


807733 
040313 
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JSR 
aR 
BYTE 


BYTE 
ZERSSS) CLR 
BR 


SNGLI = MOV 
” 


OVRSS6) ist 


cost "0 
Ci 


70, 0($3P) 
o(R4je 


vey 


S8A5 
CHP) O,2¢SPy 
(9P)6,2(8P) 


nz 
R2 
CSP) RS 
oup 
Ry 


o(SP) 
AQ,RS 


835,088 
OVRSS3 
Ry 


ag 
36SP),RS 
EACRMYLOLY 
ay 

Ag 

Ry 

SEYS35 


tae 

ana, Re 
RZ, ORO 
RG, 06 RB) 
RL, 00.,8H 
oha Re 


MYLOTY 
O7S204 


Pee 
ns, 748 


RS, SEAR 
EGRSSS 
3 


Mes 


S$GLBe 
CNOSSG 
SNGL.SERR 


Z4R9) GRE 
(RO) gO 
GRADO RE 
OR4, RE 


SSINGS 
CNOSS7 
SIN,COS 
vp 


PU 
SADR, SHUR, SSBR, SOVR, SINTR, SPOL SH 


rey 
si 
e 
R sp 
ditt 474 
8667733,0(SP) 
SO4B324, 0487) 


SSING4 


SSING4 


MACKAY 


893062! 
993966! 
203072! 
803076! 
8031090! 
aoSio4/ 
883106! 
oosiio! 
ooS114! 
883116! 
893122! 
603326! 
993432! 
o83434) 
885136! 
095142! 
983142! 
893y44/ 
893346! 
893159! 
893152! 
083154) 
803156! 
883160! 
083162! 
803164! 
883166! 
883179! 
083372! 
aes174/ 
883176! 
803209! 
863202! 
803204! 
aeS206! 


BOS218/ 
093212! 
BBS214! 
093216! 
eese2zg! 
683222! 
883226! 
983239! 
083234! 
883249! 
803242! 
903244! 
893246! 
983252! 
093254! 
803269! 
883262! 
883266! 
803279! 


MACX12 


823274! 
883276! 
883302! 
BBS306! 
983312! 
083316! 
883322! 
083324! 
883330! 
983332! 
OOS334! 
883336! 
@83342° 
883346! 
883359! 
8893352! 
883354! 
OOS356! 
883369! 
803362! 
883354! 


voes 


884467 
agen! 
036506 
005046 
916446 
811446 
286326 
206866 
286016 
842746 
042746 
204467 
agi2se) 
ees2sa! 
ootsse/ 
ogageg! 
283242! 
eo32se 
094154! 
o83254/ 
ogagag! 
8e3262/ 
393239! 
oo3230! 
o82322/ 
OBS332! 
802322! 
TTI Y 
982329 
899006! 
og2szg! 
ogeeg! 
082322! 
segeeg! 
ap2322! 


883212! 
822608 


262746 


Vea 


293946 
912746 
004467 
990806! 
042704 
106266 
193022 
262716 
apais4 
042608 
842604 
942702 
812703 
300402 
040146 
040046 
944246 
244246 
885303 
983372 
200134 


23eMARe7S 


eu,e39 
885306! 
og0ee2 


888004 
OB7733 


040733 
800744 


sLegee8 


oeenee 
oepeee 


08880) 
op0010 
oggee4 
108088 


23aMARe7S 


840200 
800579 
0033120 
003456! 
898005 


199008 


o034i2! 
agaaes 


1apse 


13154 


SINE 


SNCS371 


OSess7y 


RINSS7} 


RT{S37} 
ovess7} 


X4837) 


avess7) 
astss7) 


Qsas3s7} 


Q45$37) 
8 


QUurss7) 
PLYSS7} 


PY2S37) 
PY{ss7} 


cost 


SINt 


SNES37} $ 


POSSS7) 


Gisss7 


Qi2s37) 
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JSR 
s WORD 
MOV 
¢ 
MOV 


PAGE 705 


R4,9P9LSH 
SAOR, SNCSS? 
25R5),R4 
o(9P) 
2(R4),0(SRy 
OR6, (SP) 
oge 

4(9P) 

age 
6087733, 0(9P) 
8040733, 048P) 
R4, SPOLSH 
SOVR 

OUPSS7 
SINTR 

S90R 

x4837 
PSS? 
SINTR 
QvOss7 

S36r 


OUPS97 
OUPS$3? 
SMR 


baves7 
SMLR 


RINSS? 
(HP) oy RO 
CEP) SERS 
(§P)e 
RT4SS7 
#480000 ,R0 
RS 


2487) ,0(SP} 
20SP) pe SP) 
ca 
tf 


id 
RINSS7 
a8) 
O(Rae 
or ,8, (SP) 
OCRaye 
4g) 
043857 
#409000,¢SP 


248?) 
940200, 0(3P) 
R4, SPOLSH 
sa0R, SaRS39 
#QSES¥7, RE 
5(9?) 

QuTS37 
#100000,eSP 
O(R4)e 
CGP) Og RO 
CSP) O,R 
@GONS$704,R2 


RO, a (SP) 
o(R2),0(SP) 
oimanqetsh) 


Pass? 
a(Raye 


PRU 

Mad Oa 
PL2S37 Fo 
SNQSS? 
@2( R95), FO 


8FCOS37 RO 
Req 


POS$37 
nq 


ro 
(RB) OFS 
#0,25,78 


FO,Fo 


RINSS? 
04,3,F8 
Pyke 
ay 
933337 
re 


pareete 
998857 
rg 
FOF? 
Ve,Fe 


O4—Rt 
CREDO IFS 


- 


475 


476 





SSINOE 


MACKX11 


OOS366! 
803372! 
B9S376! 
893402! 
883406! 


vo2s 


935836 


840343 


Z3emMARe7S 


453072 
239145 
832358 
05674, 
087733 


42154 =PAGE 706 
MULF 
OES 


xPQSS?} 


NE 
RINSS7) 
M 


AL! 
CONSS?) 


TANHS 


or 
STESsey 
66 


TANSSB| 





BR 
MoV 


rare 


Ry 

(ROO FL 
XPO$37 
Fiera 


R4 
RINSS7 
rg 

70, 0(¥9P) 


(9P)0,RO 
COP) eRe 
Re 


040334,907732 
£22043,064502 


8399305455672 
296234,5825243 
837243, 032430 
$48049 956742 
540323, 087933 


Hb 


TAN, EXP, 340R,S50R, LR, sOVR,SFCALL 
SPOLSH, SPSHRS 


A5,0($P) 
24 RS), RS 
ons, RO 
TERSS9 
RO 

aa 

ag 

RO, 8285 
STES39 
#46208,R0 
R 


OUTSse 
0200000,Re 
OUTSSe 


ZERS) ARE 


ORS, RO 47  § 


OUTSSy 
26R5),e(SP) 


ee 


STNHB2 


MACXLL 


vee. 
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VPLSS84 
Oursssy 
SMUSS84 


xSQS38} 


ONESSB) 


P45$38) 
P48838) 


P3SS38) 


ZERS36} 


UPSse) 


G04 
eSPNOF 


ORD, 0( SP) 
9200,0SP 
SPARS 
oGxP, HA 
PGs SFGALL 
RA ye (9P) 
RO, 0(3P) 


o(8P) 
640200, 0(9R) 
RL, eCSP) 
RO, aC ¥P) 
=(8P) 
049200, 0(SP) 
Aa, SPOLSH 
Te ene 
CEP) oyh 
(ePyorky 
serene 


zin9) ini 
ORS, RO 


R4,SPOLSH 

Ae ate ae cde cba 
245P),0(SP) 

2¢8P),e¢SP) 

RO, SPOLSH 

P35530, AOR, ONESSS 

SPSHRS»P49938, SPSHRS,SOVR, SAOR, SADR, SOVR 
S§BR,SMLRUPLSSS 

437), RO 

O(SP) RY 


6(8P) 

#48208, 4(5P) 
e(Raye 
8436237,0(9P) 
842464, 0(59) 
9463707, 0(3P) 


944728, 0¢SP) 
ecRaye 


0496497, 0(9P) 


940444, 00 SP) 
ecRaye 

R® 

RY 

OUTsss 
(9P)6)30,69P) 
($P 94940, (SP) 
ocRaje 


SATNOS 
CNOS3Y 


ATAN g7y 


sbas 


SATNOS 


SATNOS 
3348 


MACKLL 


vee 


o8eee6 
880004 
880082 
TTT TI 
308006 
800805 
280006 
ogogee 
880R04 
289902 
BBO004 
TTT TT) 
090085 


MACX14 


89S412¢ 
8B3414! 
0835416! 
393428! 
883422! 
ao3s42q! 
aaS43o! 
BOS4354! 
383436! 
093440! 
OB3444! 
893459! 
893454! 
883456! 
903469! 
803464! 
803466! 
BOS474q+ 
383582! 
8BS506! 
803512! 
893516! 
BB3524) 
20353Q! 
683554) 
303540! 
BO3544! 
883550! 
803554! 
393560! 
883564) 
823566! 
8O3570! 
083576! 
883600! 
883606! 
083614! 
O93616! 
883622! 
883626! 
883632! 
803634! 
883636! 
393649! 
803644! 


voes 


805046 
885946 
085046 
883946 
885946 
816506 


eoiees 
312766 
342766 
808366 
016646 
916646 
312766 
9859066 
o04ae7 
oa123¢/ 
346646 
316646 
885066 
905066 
821627 
183445 
191904 
32662? 
104440 
942766 
842766 
844600 
916603 
842746 
842746 
940246 
840046 
085846 
312746 
812746 


23eMARe7S 


23eMARO7S 


189020 
eogese 
240288 


89OBKe 


240334 
OB77355 
900824 
890882 
928002 
849208 
898086 
O8GS42 
893540" 
B8oR02 
900808 
OBOR04 
880006 
837633 


208008 


940B06 
995222 


oeenee 
134727 
140335 


240208 
139727 


890804 
980086 


BOB0R4 


830243 


BB0004 
280006 


22554 


11154 


ATAN2I 


OLVSs9) 


uPyss9y t 


ATESS91 


INFSS94 
Ll 


INRSS9} 


ATANE 


AT{SS9} 


PLUSS9I 


GT{$391 


LELS394 


TNSS3S9} 
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1GL08L 
sENOC 


vSENOF 
1GL08, 
sENOC 
RoOxe 
RLONL 
RZOK2 
RIEXS 
Rags 
A5axs 
SPOXx6 


a TPNOF 
a }PNOF 
CLR 


cy 
Ts? 
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ATAN2 


rey 
SAOR, SSBR, SHLR, SOVR, SPOLSH, SPOPRS 


Fey 

s9as 

SP) 

o(SP) 

(SP) 

0(SP) 

o(SP) 
2(R51gR4 
3(R4),0( SP) 
@R4,0(SP) 
OgP RO 
4GR5) ARS 
2(R4),e(SP) 
ORG, 0(8P) 
O9P RY 


hey arg SH 
SOVA, UPLSU9 
O4(R5) 


ATESSY 
9040934,8, (SP) 
0007753,20% (SP) 
03(R3) 


ATessy 
8480090,8,(SP) 
esp 


ATass¢ 
#48,,9P 
#940345,R9 
897753,RY 
@Z(RS) 
INRSSY 
0409000,R0 
Ro 


e(Sp) 

o(SP) 

(SP) 

2{SP) 

24S) 

2GRS) «RE 

20 RG) eC SPY 
OR4,e4SP) 
PLUSSY 
0200080, 05P 
4 (ae 


s3v 
8440341.4(97) 
008077353,5¢SP) 
42), (37) 
(3h), 0(SP) 
2($P),e(SP) 
849208 ,4¢SP) 


24SP),0(SP} 
2¢SP),0(SP) 
acsp 


6(SP) 

OGP , WUS761E 
Lasss? 

TNSSIP 

2587), 9030243 
Cussse 
6040806, 4(SP) 
#895222, 6($P) 
OgP, RO 
2¢9P),R3 
9254727,0¢8P) 
8449595,0(¢9P) 
RL, 0( SP) 
RB, oC ¥P) 

0( SP) 

#40200, 049°) 
0254787, 0¢8P) 


479 


490 


dy 


SATNAS 


5395 
3396 
3397 
5396 
5399 


5ae0 
errs 
5402 
5403 
54p4 
5405 
5406 
5407 
5486 
5409 


5448 


5433 
5412 
5445 
5434 
5415 
5426 
5447 
5418 
3419 
5428 
5423 
5422 
5423 
3424 
5425 
3426 
5427 
5428 
5429 
5430 
5433 
8432 
5433 
5434 
5435 
5436 
3437 
5438 
5439 
5aa0 
544s 
5442 
5445 
5444 
5445 
5446 


SAYNOS 


9447 
5448 
5449 
5450 
5454 
5452 
5453 
5454 
5455 
5456 
5457 
5456 
5459 
5460 
5464 
5462 
5463 
5464 
5465 
5466 
3467 
5468 
5469 
5470 
5474 
5472 
5473 
5474 
5475 
5476 
5477 
5478 
5479 
5489 
5484 
5482 
5483 
5484 
5485 
5486 
5487 
5488 
5489 
5499 
5494 
5492 
5493 
5494 
5495 
5496 
5497 
5498 
5499 
5508 
5504 


MACXL1 


883659! 
o93e54 
883656! 
oesoeg! 
8B3664! 
803672! 
aes7ag! 
883702! 
893706! 
ags719¢ 
083712! 
808714! 
983716! 
903722! 
g0s724/ 
893726! 
OOS734! 
893742! 
693759 
883752! 
893754! 
893756! 
8935769! 
893764! 
093766! 
898770 
093774) 
aeseag! 
094902! 
oo4goa! 
004906) 
op4gi2! 
904916! 
og4o2g! 
0e4922/ 
aeageas 
094926! 
804058! 
9g4gs2/ 
094934! 
884936! 
094042! 
ag4geas 
oe4g5g 


MACKXLS 


Ve2s 


342746 
846146 
016046 
904467 
a92322) 
ceeeng! 
021608 
016604 
010146 
010046 
018146 
810046 
694467 
a92322/ 
904902! 
892322! 
TTT 
092322! 
ap0006/ 


‘oeageg! 


294936! 
8geg06) 
ag2706/ 
895726 
099205 
012666 
042666 
0994354 
232600 
032603 
032702 
842703 
ogeaee 
610146 
010046 
014246 
044246 
085383 
088372 
200434 
285766 
002482 
262726 
980134 


Vea. 
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8405355 MoV 8060535, 0(8P) 
Moy RO, 0(8P) 
MOV RO, 0(¥P) 
808222 Jgr R4,SPOL8H 
880882! 8837700 WORD «= SHILA, SHOR, UPSS9, SSBR, OVA, LL9SE9 
8ogase! B83720/ 
425839) MOV Og, Re 
sasoee Ov 2¢5P),R4 
mov RL, 0 SP) 
MOV RO, 0( SP) 
MOV Ra,etgP) 
MOV RO, 0 (§P) 
998154 Jer RO, SPOUSH 
iWORD SLR 
sWORD = PLYSS9 
egesee! BezIZ2t sWORD = - SUL SADR, SMLR, SADR, SMR, SAOR 
892322! aeeeee! 
aeons! ag2322 WORD = SHLAA SAOR SHR, SAOR 
WORD = SAOR 
WORD = SGNSSY 
»WORD = =SAQR 
oeg7e4s 2WORD = SPOPRY, EXIS39 
EXtss9y TST CEP)e 
ays ay 
UPSS9y «MOV CHP )0, 49, (SP) 
MoV CEP) 4,48, (SP) 
Td OC Rae 
PLYSS9) MOV CSP) oy RO 
MoV CHP) O Re 
8G4076s MoV SGONS3904,R2 
ogeens MOV 05,R3 
OR PYas3y 
PY2SS91 MOV Ri,e(SP) 
MOV RO, 0($P) 
PYCSSO) MOV (RZ), 0(SP) 
MOV 4R2), a {SP} 
occ R: 
8GT PY2859 
MP O(Raje 
896010 SGNSS9) TST 8, ¢SP) 
8£0 SG4S5¥ 
ip9880 40D #480000,0S5P 
S8GiS39) UMP OL Ra)e 
sENOC 
vJPFor =o FRY 
ATAN21 | SETF 
MOV 2(R9) RS 
MOV 46RD) ARO 
MOV ORS, RO 
MOV ORG RE 
660 INPS3¥ 
As ag 
CLRS Ro 
SWAB RB 
23eMARO7S «11134 = PAGE Tut 
asl, RY 
CURO Ry 
SWAB RY 
suB RE,RO 
CMP 26, ,KO 
BLY INFSSY 
Lor PISS9AFS 
LOF ORS, FO 
cree 
8GE AUPssy 
NEGF ry 
ALPS391 LOF ORO FE 
cree 
aL? AaMSSY 
CLRr ry 
A2MSS9| DIVE iiss 
BR aTassy 
INPS391 LDF PLaS3v,F. 
TST ary 
BCE EXIS3¥ 
NEGF ry 
BR EXIS3y 
ATANE Serr 
CLRF Fy 
LOF OZ(RS), FO 
ATISS9) CLR ng 
cree 
sr rg,rs 
CLRF r3 
8GE PLUSSY 
agsr va 
ING R4q 
PLUSION LOF OLL000S 
cuer PO .rS 
cree 
§Le Leasay 
GY{ss91 DEC R4 
Or rO,FS 
Lor FE.Fe. 
Lor PLESSy FS 
LE{S59) STF F3,F4 
CLRF rj 
cMPr TE585¥,F0 
cree 
8GE Lasssy 
LOF PLOSSVIFS 
Lor Fo.F 
MULF ATS$3¥,/0 
aver 940,78 
ADOF = RY S839, F4 
oyvr FLare 
LA5S39 LOF FO,F2 
MULF O,FO 
MOV SFCOSSP, RO 
“OV m4,R4 


TIES 





SATNGS 


$502 
55083 
5504 





SPOLa7 


5537 
5558 
5559 
5560 
556. 
5562 
5563 
5504 
5565 
5566 
5567 
5568 
5569 


MACXIL 


ge4e52! 
294056! 
oo4g62! 
884066! 
304072! 


884076! 
oe4ice! 


MACXLS 


904102! 
004104! 
004119! 


804112! 
OB4114! 


304116! 


984122 
aa4124° 
304159° 
0841320 


284434! 
304136! 
39444g° 
a94i42! 
o04144! 
804150! 
884156! 
984162! 
384166! 
004170! 
aoay74s 
04476! 
304222! 
304206! 
oeseig! 
084212! 
004214! 
004216! 
e842208 
oe4222! 


Ve2s 


037305 
137423 
O37514 
137632 
140208 


OBeg04 
800026 


885726 
98156 


VO2s 


208000 
29ga0% 
OB0004 
880803 
080806 
300008 
ITIL ES 
8822 


910546 
946505 
011504 


190443 
3B1446 


342746 


80620) 
9627914 
205046 
410146 


285046 
214546 
305846 
010446 
304467 
2842347 
162746 
203366 
304442 
346546 
844546 
816646 
846646 
280756 
912629 
042609 
209726 
022605 
988205 
004567 


23eMARo7S =611154 


O3930% 
956524 
143333 
125244 
TILT 


L 
XPOS39) 
oO 


8G{S39) 
EXtssoy 


P1339) 


RTSSS9} 


Fcosse) 


CONSS9I 


R4aexd 
SPax6 


SV2GAt 


SPOLSH} 


S€act 


seisi 


srPul 


srtst 


23eMARG7S = L154 


oeeen2 


980003 


820128 


177726 
BBGBH64 OBAL564 
889208 
880904 


889008 


880906 
B98B06 


80812 


SROXt 


SORT! 


Sart 


LUPS441 


UPLS44) : 
1} 


oursés) 


RINS43) 
ERRS43) 


PAGE 7042 


Er OeL 


PAGE 7a 


MOV 
cy 


T 

mov 
RTS 
Jr 


ie 


th 
CRO) OFS 
xPoss? 


040533,007733 


, 840343,007738 


897644,050248 
040006, 009222 
840335 333727 
537309, 935802 
13742,059514 
8975441245833 
£97652, 425244 
840200, 000000 


SPOLB7 
SPOLSH 


sy2ga 
CgPye 
O(naye 


CAE 
SEAE 


ELSIMYLOIV 
SCis 


rey 
sry 
ris 
Sfts 


RSX 
SASX 


S¥ares 
CNOS 44 


SQRT,SERR 
FRY 
SADR, SOVR, SPOLSH 


rey 
OSCRIV RL 


FPY 

R39, 0($P) 
245) RS 
ORS, RY 


ERRS AR 
ee 


ssratary 


3 


Ry 
920400,R2 
o(SP) 
RL,e(SP) 
rey 

(SP) 
ORS, 0( SP) 
049?) 
RoaalSP) 
R4, SPOLSH 
SOUR, S408, UPLS4a 
200,05 

4¢3P) 
OUrS42 
2(85),0(SP) 
RS, 0(8P) 
G(8P) ,eCSP) 
Sie 


t Po ke 
Bisse 


{ ole Rs 
R 
RO, SERR 


493 





SSOTBS 
3622 


MACX11 


994226! 
8042sa! 
096233! 
094232) 
084234 
084236! 


e942! 
942420 
84246! 
geese! 


904252/ 
994256! 


9426 
884264! 
094266! 
084279! 
094272! 
84274! 





SLORO1 = MACX11 


5667 


ve2s 
296773 
oo4 
833 
ooseae 


seseey 
080767 


oeeces 
oeages 
998006 
8egg07 
Sses46 
06500 
o9e4ag 
830846 


120027 
691402 


084777 
9 


809776 


vo2s 


25eMARC7S «14154 PAGE Fede 


ZERS43} 


LUPS44) 


ERAS42) 


EERS43} ¢ 
Ci 


SERRAI 
ERBS43} 
ogege5 


osg0e4 
IGNS43} 


SEAVEG} 
HLPSASI 


BR 
BYTE 
sOYTE 
CLR 
CLA 
OR 
sENOC 
vtPor 
mov 
SCrr 
Lor 


LOF 
LOF 
b 





23eMARC7S «611154 = PAGE 7015 


SLORI 


SLOOI 


SS?RI 


LPS464 


STKS46} 


SPaX6 
MoV 
MOV 
JMP 
sENOG 
ATUTLE 
aSPOF 
RQaKe 
R4EXd 
SPaXx6 


RINGO 
4 

4a) 

nv 
Rinses 
rey 
#F,RO 


($P) 6,79 
OZCR5),F2 
FOL 


SERASY 
SERR, SERRA, SERVES 


RO, 0(9P) 
24R5), Re 
ERBS4S 

RO, 0(3P) 


PG, @SERVEC 
C3P ORB 
RS 


HLYS4§ 


HLTSAS 
SLORY 
CNOS44acnoga2 


C9P)e,2¢SP) 
C9P)o,2(SP) 
Ot Raye 


$0003 
CNDS454CND942 


sP,Re 
08, RB 
(SP) 6, (RODE 
CSP) Oe, (RAQe 
(3P) +, (RB)4 


CSP), (ROQY 
a Rare 


S9TROQ 
CNOS4O8CNDS42 


#FACS42,R5 
36(SP} 
STKS46 
30(SP} 
SP,RO 
SPARS 
CRZISPCRIDE 
#43, R2 


‘ 
CRE OE (RODS 
RZ 


LPS46 . 
(R50, (RODS 
(AB) Og (RB) O 

einays 

CRB), (RODS 
(RS) 0, (RBIS 
(JP PO, (SPL 

egRane 


SST0ey 
CNDS478CNQS42 


YES” 


456 





sS?002 


5722 
5723 
5724 
5725 
5729 
5727 
5728 
5729 
5738 
5733 
5732 
5733 
5734 
5735 
5736 
5737 
5738 
5739 
5740 
5744 
9743 
5743 
5744 
5745 
5746 
5747 
5748 


FPMPig 


A 

ALOQG 
AT1$39 
8 
B2NS30 
CNOS48 
CNOSS 
CNOS37 
CONSS 
covs3e 
OH{$18 
ONGS4 
OVis48 
ECLS30 
ERBS43 
ESVS20 
EXP 

FL 

FS 
1FPMP 
LGTss 
LA5S39 
MT1S30 
NGOS18 
NOMS30 
ONES28 
OuTs4y 
OVRS3B 
PG 
PLYS39 
PY1$37 
Q 
Qyns37 
RESLT 
RINS@L 
RY 

RS 
SFOS2 
SFTS35 
SGNS39 
SIGNS 
SP 
sTess 
TNSS39 
UNFS2 
UTSs2 
ZERS16 
#ERS39 
2FRS28 
SOVR 
SUNTR 
SPOPRS 
SSaR 


MACX44 


880003 


MACX11 


= 009018 
809542R6 
BOS436R 

= g00014 
882424R 

= 200004 

= pooess 

= 900084 
801112R 
902646R 
604472R 
801226R 
081606R 
BO2606R 
884252R 
BO2256R 
BO1666RG 

SxXO00084 

3X000085 
2OO0RORG 
@81052R 
883790R 
882624R 
981642R 
882476R 
@82292R 
884210R 
OB2579R 

5%800007 
@84092R 
BO3S54R 

= 000014 
883254R 

3 900010 
004216R 

BX90R08% 

EX000205 
BOB3534R 
O22764R 
6B4036R 

© 900080 

8%020006 
829752R 
@03608R 
BOB524R 
O8952aR 
8814148 
082612R 
O02156R 
B01234RG 
@O1134RG 
8O27B6RG 
@0G8d2RG 


Yoas 


vo2s 
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sSfO1 


LPs47] 


STKS471 


SPyX6 
eGex7 
MOV 
Ts? 
rt) 


23eMARO7S «44154 = PAGE 7047 


ag 

ASH 

ad 
BYOSs2 
B2ESSo 
CNDS2 
CNOSS 
CNOS39 
CONS37 
ry 
OLWS28 
oUPSs2o 
ECKS2 
ECLsi18 
ERRFPY 
EXAS2 
FCOS39 
Fe 
Gosi8 
1GNS43 
LO6S5 
MLTS30 
N 


NODS2 
NOR 
ours2 
OVASS8 
OVRSSS 
PLES28 
PLass 
PYLSS9 
QSES37 
ourss7 
RORS@ 
RTSSi8 
R2 
SCkS2 
SFULSZ 
SFOS2 
SG4539 
SIN 
SORT 
STKSS 
UNOSS8 
UPLS43 
X2330 
ZERSZ 
2ERS35 
27882 
SERR 
sqR 
SPOPRG 
SV20A 


2 477302 

= 4773526 

= 3eg0g6 
200468R 
BO24046R 

= geenes 

= geeoas 

= 900804 
B835496R 

= g09019 
BOLAGAR 
O82032R 
988240R 
901452R 
BOBOB2RG 
8290142R 
ge4a52R 

2x200002 
824632R 
884264R 
880544R 
BO2620R 

= goe0s6 
888370R 

= 477342 
900426R 
284432R 
8e3020R 
o82044R 
B219ZER 
G84024R 
883456R 
OVS33OR 
Be1176R 
822664R 

axgeoog2 
BOBL7AR 
BeB3e4R 
O88324R 
004056R 
993072RG 
804492RG 
888746R 
981448R 
884456R 
902636R 
880536R 
@83832R 
OBO5geR 
B84240RC 
BB2236RG 
092674RG 
904076RG 


AUNT 


#33, 
CRA Og (RODS 
Re 


LPS47 
(R9) +e (ROVE 
(R35) 6, (RODS 
(R96, (RO 
(R50, (RODS 
OCRe)e 
(RB) Og (REDS 
(RE) Og (RBG 
(ROD GO CADDD 
(29) 97 (RODS 
36,8? 
OqRaye 


081126R6 
88321aR 

= 9900390 

= 990086 
e02402R 

3 oeeoes 

* gogoes 

* seaeey 
g24072R 
004420R 
062774R 
BO4D0GR 
gayaear 
#04636R 
681002R 
bO4082R 
B8L5Z6R 

#x000003 
BO3496R 
OGZGZER 

8 477344 

8 477306 
8ea222R 
Bez274R 
B84690R 
pe25eer 
Ban4s4R 
80,4630R 
BO349R 
804706R 
BB3350R 
sassian 
BOS344R 
884576R 
paszZ6R 

exe00o03 
B82498R 
waazgaR 
BOL55aR 
81474R 
oer74aR 

e a7731E 
BogdL4R 
880554R 
B80790R 
682692R 
g02220R 
08425aR 
saaeHgRG 
084290RC 
S92SZ2RG 
902674R6 

5 994270R 


Alts4 
ATAN 
Aans2 
82 
crRrs2g 
eNnos27 
CNOSSS 
CNOS44 
cQs 
neCsss 
ONESS 
OUPSS7 
CCLS28 
£08518 
ERRS44 
EX1539 


mA) 


r4 
HLTS4S 
LELss9 
LUPS4s 
MTBSSO 
NGMS35 
NQMS2? 
NT8Si8 
oursss 
ovRs2g 
ovis3g 
PLYSS? 
pQSs27 
PY2SS9 
OSTSS7 
REGSS 
RINSS? 


R4 
SoLss 
SF%s2 
SGNS35 
SIGN 
SNCS37 
SRLS2 
Suss2 
UNOS 
UPS39 
x4337 
BERS27 
a€1s30 
sas 
SERVE 
SPOLSH 
srt 


Noe 
iFATLE FPMPL3 FLOATING POINT & MATH PACKAGE 


437 


O81442R 
8234642R6 
Beggar 
aoe. 
go2060R 
peoees 
gegedy 
geoaey 
OB30SERG 
882770R 
084220R 
883230R 
aezz2eRr 
aB4654R 
g04z22R 
@B3764R 


sx080008 
akooga04 


@04272R 
GBS940R 
O8434eR 
ge2asar 
BBSHL4R 
BE2Z64R 
981530R 
OOSHLER 
602232R 
Be2~72R 
803332R 
882252R 
B04e20R 
Bo3z62R 
BB0754R 
083242R 


=xp00008 
ancogege 


088772R 
goRz44R 
BB3002R 
gogeez 
883406R 
900272 
BB0044R 
a02608R 
O83770R 
803242R 
882920R 
g82564R 
BBsZ7SRG 
8 
984070RG YEE 


882714RG 


yd } 


‘SH 


FRMP12 =MACX22 3 vVO2d 


GRRORS OETECTED! 8 


FPMP14 MACX14 8=6- O21 


RUNCTIMET 
GORE YSEQ! 


46 SECONDS 
3K 


23eMARe73 


Z3eMARCTS 


11454 


11154 
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PAGE 7019 


YS7 


a 
ay 

h2 
A2NS2 
ag 
alis4 
AINT 
ALOG 
ASH 
ASLS4 
aTgs39 
ATAN 

8 

83 

82 
B2NS3a 
832530 
B9AS2 
etes2 
CFRS20 
CLasss 
CNOSS 
GNOSLO 
CNOS33 
CNOS32 
CNOSA3 
CNOS34 
CNOSL5 
GNOSL6 
CNDSL7 
CNDS18 
CNOSS9 
CNOS2 
CNOS28 
CNDS23 
CNOS22 
CNOS23 
CNOS24 
CNQS25 
CNOS26 
CNOS27 
CNOS28 
CNOS29 
GNOSS 
CNOSSD 
CNOSS4 
CNNS32 
CNO$SS 
CNO$S¢ 
GNOSSS 
CNOS36 
CNOSS7 
CNOSS8 


CNOS3S9 
CNOS4 
CNOS4% 
CNOS42 
CNOS44 
CNOS45 
CNOS46 
CNOS47 
CNOSS 
CNOS6 
CNOS7 
CNOS8 
CNOS9 
CONSS 
CONS37 
CONS39 
cos 
COVS38 
ie) 


DGHS38 
DECS35 
OW1S18 
OLWS18 
ONAS4 
DNES35 
ONES4 
DOUBLE 
OUPS22 
Dyess 
OUPS37 
OV1518 
EAE 


eCisi8 
ECKS2 
ECLS18 
ECL S20 
ECL S30 
Pat 
Eqisi8 
£02518 
ERBS43 
ERRFPY 
ERRSS 
ERRS4 
ESVS20 
EXaS2 
EX{S3 
EXS39 
EXP 

Fo 

FA 

F2 


408 
aide 
418 
133 
3665 
5673 
5686 
5715 
1225 
1269 
1309 
1325 
1634 
1044 
3134 
5422 
5042 
4822 
32240 
3242 
49868" 
3274 
3276 
4217 
4976 
1283 


3698 
1934 
5078 
3307 
861 
4065 
3289 
850 
3292 
3777 
4810 
5543 
3405 
34068 
5652 


1928 
5582 
3084 
838 
1939 
5414 
3645 
805" 
12038 
19848 


4625 
626 
625 
o34qe 


11796 
11798 
40498 
32268 
4199 


33500 

4639 
89 
824 


46548 


9378 
37448 


126 


2313 
2496 
2638 


i448 


1108 
129 


3813 
3828 


4009 
1276 


109 
1228 


4886 
4926 


199 
5198 


109 
1136 
137 
5665 


11298 
51954 
35268 
59590 
46298 
3244 

32988 


$279 
3278 
12196 
49998 
1188 
94 
37838 
19580 
5982 
3315 
872 
4968 
32998 
8544 
3295 
37798 
46130 


34278 
3408 
5654" 


10738 
Soi 
37298 
asae 
1044 
54158 
36648 
{o0ge 
11498 
36590 


4044 
Q32 


969 


4976 


1590 
3435 


ayee 
429 


i508 


426 
4596 


413 


449 


5560 
5073 


3254 


33068 
33020 


L2i6# 


5987 
33878 
938 

4073 


32978 


19648 


13488 
S22o0 
50568 


4637 
829 
834 


4943 
832 
649 


3205 


786 
3943 


4024 


986 


3044 


5288 


3686 


3256 


5088 
3402 

959 
4079 


32198 
Joses 
53008 


833 
835 


4646 
844 
846 


5745 


51066 


963 
4624 


36578 
50550 
55730 


836 
639 


4654 
846 
92a 


3263 


£298 
4657 


48368 
52998 


o4y 
845 


asy 


3264 


428 
480 


so0ve 
557¢8 


645 
928 


oes 


3266 
4617 


49448 


3275 
4983 


SO54e 


3285 
4989 


52960 


3385 
5539 


S57\8 


3347 


3323 


ail. 


3386 


Y9X 


oN 


Ye 


4Q 

sYesse 
“T1830 
MWLOLY 


N 
NGPS2 
NGMS$33 
NGOSi6 
NOQOS2 
NQOS27 
NOMS27 
NOMS3@ 
NOR 
NgO$16 
NTOS18 
ONES29 
oyrs2 
oursse 
OUTSSS 
OUTS4y 
ovisis 
Ovis538 
OVRS18 
OVAS2 
OvAs2e 
OVAS3S 
OVAS35 
°G 


PL283 
PLES29 
PLUSS9 
PLYSS7 
PLYS39 
P0ss2p 
PO$S27 
PY4S37 
PYLS39 
PY2$37 
pvense 
943337 
QSES37 
QSRS37 
a$7537 
QYOS37 
QVTS37 
RQ 


RL 


R2 


RS 


Rq 


RS 


19058 
53828 
53038 
55248 
5554 
3283 


3672 
5268 
3398 
5363 
5661 


5656 
3696 
5389 
5362 
1965 
18140 
22478 
55968 


4659 
8029 
4649 
4054 
968 
4817 
32228 
876 
5e09 
3392 
966 
4075 
49728 
4776 
8038 
3396 
3313 
3671 
822 
47978 
583 
5606 
32938 
4795 
32940 
941 
3668 
4783 
4978 


4653 


1838 
3681 
5358 
5899 
5406 
3663 
4064 
31433 
5424 
51340 
54258 
32230 
5118 
30878 
5123 
5986 
5984 
5126 
7888 
902 
11568 
3273 
36798 
45988 
4821 
5455 
56358 
7898 
934 
1187 
3718 
4092 
4829 
4986 
55678 
7998 
897 
3259 
4626 
4965 
79.8 
978 
3253 
4908 
7920 
1050 
3318 
3676 
37798 
4618 
5079 
5398 
7938 


S323 
3 


3733 
S304 
3393 
53660 
56028 
230 
56598 
37918 
$383 
5365 
igege 


3eu7e 
$605 


4653 

11460 
4e32e 
40200 


498 
$23 
o7a8 
5g0768 
3395 
986 
49898 
4677 
47898 
$2168 
34040 
33146 
37738 
633 
4846 
50050 
56068 
338¢ 
4796 
3372 


3773 
40060 
3ees 
1930 
4634 


40528 
4832 
5876 
3406 
926 


50578 


S3ee8 


$739 
5437 
33978 


5663 


5399 
5374 


6g088 


40io8 
3e50 
4036 


4399 
4996 
3243 


34a0ge 
9ig0 


49350 


3383 
49098 


939 
37760 
50098 


4eo1s 
4628 


S760 


3299 


843 
907 
4176 
3294 
3745 
6775 
4924 
3386 
5653 
44 
938 
2299 
3727 
4996 
4836 
5483 
5587 
826 
1044 
3262 
4630 
5004 
823 
ga4ie 
3265 
4973 
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ogegegs cure (RE) 4,8, COMMA 
ONE ERPOSS 
8gone86 Jgr PG, OWEVAL 
acs ERPOQSA 
agegees JER PG ,OMLNT 
opevees CMPB (Ro) Oo, eH, RPAR 
BNC ERPOSS 
CLR RO 
BBR0086 as create 
8N 
eegeueG TST rhea) 
aLe Posr 
9800806 833a FACQ(RS), Re sRO ISN 
ICWECK NULL XS 
800082 177777 CMP 2497) ,6277777 
BNE POX 
CLR ae 
OR posr 
COMPUTE LENGTH OF XS 
Posxt CLR Rg 
809002 8388 ©2¢5P),R2 
JCHECK NULL YS 
179777 CMP CP) 0977777 
BNE Posy 
INULL Y¥S_ ANS 25 MINCNSLEN(XS)) 
cur RO,R2 
BLE Posr 
MOV RZ, RO 
Pg 
iSaVE AOOR OF mae YS IN T2 
oeooee 8188 O(SP),RS 
aoo CSP) RS 
800003 aod a3, RS 
BBCDORG mov RJ, T2¢R5) 
MOV CEP) 4, RS 
890003 aco HFRS 
HSAVE ADOR OF ENO OF XS IN Te 
aoo (SP), K2 
BBB883 aoo #3,R2 
88908086 MOV RA TLIRS) 
MOV (GP) o,R2 
A00 RO,RZ 
eoenee aoo 98,2 


IFIND MATCHING FIRST GHARAGTER 
POSFST| CHPS (RS), (R20 

BEO POSREM 
POSTRY} INC Re 


BASICH 


BASiCH 


MACXLL 


001956! 
881862! 
aaige4! 
081866! 


881070° 
881872! 
oo1p74! 
881876! 
361492! 
oeiso4! 
883410! 
804212! 
003214! 
o8t116! 
984120! 
883122! 


oo1424 
091126! 
094132! 
891436! 
601142! 
004146! 


MACX14 


081152! 
881156! 
803160! 
681164! 
881166! 
904172! 
901174! 
204200! 
801204! 
9812168! 
aer216/ 
804216! 
881222! 
oe1224! 
081230! 
801234! 


801236! 
801240! 
801242! 
Bo1244! 
081246! 
oe1250! 
083252! 


881256! 
801260! 
001264! 


081270! 
801274! 
81276! 
BBL 308! 
801502 
381304! 
Oe4319! 


8013522! 
aa,si4/ 
881316! 
881320! 
381322! 


301324! 
884326! 


881330 
BO1532 
OB13354! 
384556! 


8813542! 
801544! 
8841546! 


ve2a 


820265 
094372 
veseee 
000437 


818246 
810346 
OB52c5 
828365 
oe44i8 
820263 
004402 


812682 
200754 


822626 
830005 
989869 
ae0457 
800357 
600437 


yeas 


004787 
109114 
122127 
ET Ieee 
004737 
183526 
3946737 
346546 
246546 
122127 
004877 
084737 
103478 
04737 
£22427 
084967 


812622 
822608 
180403 
001055 
905708 
293808 
242702 


395808 
921627 
157628 


805765 
10044 

00140 

040883 
288403 
046583 
883433 


020003 
184084 
810003 
820223 
191026 


160283 
289203 


818246 
819502 
840346 
BB4787 


822602 
912600 
861608 


22eMARG7S 


8098086 
BeoveRs 


0900006 
9gae0aG 
8800086 
98aeo86 
ogoneRG 


Z2eMAROTS 


ovevves 
PTT TTI 
opea0eG 
apeoesG 
3govesG 
Bgo0e8G 
8088006 
ooeva0s 


oegoees 
opopeeG 


980804 


479777 
090008 


15145 PAGE 1804 


cur RBsTLIRB) 
one posrey 
CUR 


or Pgsre 
ICHECK THAT REMAINING GHARS MATCH 
POSREM] MOV RZ, oC ¥P) 

MOV Rave(HP) 


INC 
POSNXT) CMP me T2hA5) 
seo POosr 
OMe RA, TLRS) 
860 —-POBNG 
CMPs (RRO CRSQVO 
EQ POSNX 
PORNO; MOV CGP) OARS 
nt th 
BR post 
ene Enon Poneto 
CMP Po, (SP)e 


Posrt 
Posre: MOV RE,PAGACRS) 
CLR FACL( AS) 
ump @SOPRATOR 
ERPOSA} UMP O@BERRARG 
ERPOSS| UMP OWERRYYN 
POSFNE) 


45145 =PAGE 33 


1 SEG FUNCTION ROUTINE 
SEGFNI ir peseseval 
ce ERSEGA 
cmPa Ri) Sue SeHMA 


ONE ERS 
Jgr rageabVAL 
acs 


usr Byes INT 

MoV FAGLCRS) (SP) 
MOV FAGZ(R5),0(SP) 
cma (RL) 6,8, COMMA 


vr ree 


usr PCs SeeiNT 
cure (AL) op 8 RPAR 
$ of 


ON! CREE 
1GET X VALVE JN R 

MQ ($M) oyR2 

MOV ($P)o,R8 

amt SEOX8 

ONC SEGNUL 

TST Re 

BGT ae 


SEGXB] MOV 63,R2 
COMPUTE LENGTH OF AS IN RO 
SEOLI CLR Re : 
(5P),6477777 ]GHECK NUL STRING 
ese O(SP).RD 


Ger, Y VALUE IN RY 
SEGTY! ST FACL(RS) 
oat SEGNUL 
seo. searyg 
MOV AG,RS 
aR SEGRNG 
SEGTY2 MOV FACZCRS) RS 


Le SEONUL 
IGHECK BCeR2<sR35CaRg 
SEGRNG) CMP ROARS 

ant SGGRZ 

MOV RO,RS 
SEGR2t GMP RQ,RS 


8 “a 
I COMPUTE he ae OF OUTPUT STRING 


INC ny 
IMAKE NEW STRING OF THE CORRECT LENGTH 
MOV 


RB, oC GP) PSAVE START CHAR 
MOV RD ,RZ 
MOV RY, oC HP) 
vr 9G OSMAKESOR 
WFLX STACK AND nove IN CHARS mon 40 STRING 
MOV (GP) O,R2 NEW arate POINTER 
MoV (GP 74,80 HeTAR? CHA 
aoo (3P), RO ya0o OLO amr POINTER 


SOF 


4 


L 
x4 


ee 


BASICH 


BASICH 


397 
398 
399 
408 


MACKIE 


001550 
881352" 
981354! 
084356! 
091362! 
891366! 
01570" 
804372! 
861574! 


01400! 
004404! 
aosase! 
Beyaias 


MACX24 


001429 
oa1424 
084426! 
001432! 


301434/ 
801436! 
201442! 
881444! 
og145e! 
801454! 
001456! 
901400! 
081462! 
004464! 
091466! 
081472! 
oase74s 
001476! 
oo1sag! 
oe1502! 


01504! 


001510! 
ooi5i4/ 
881529! 


B01524 
881526! 
801539! 
081534 


081536! 
891549! 
001542! 
081544! 
381546! 
284550! 
801552! 
981556! 
084562! 


ves 


040246 
9e50e3 
134283 
862782 
662788 
132022 
885323 
084373 
000337 


232726 
9601357 
060187 
ooeisy 


vos 


884737 
193856 
122127 


201054 


811609 
9g0ee7 
08186 
995065 
885905 
095726 
980455 
985082 
134802 
810216 
062700 
og0e2 
193042 
940446 
010246 
028246 


0847357 


804757 
810365 
810465 


189716 


OB1773 


820026 
981010 
912603 
232606 
832682 
132239 
380357 
990157 
200137 


22eMARe73 


8808086 
479777 
oeegeas 


egee0eG 
0988886 


22eMARe7S 
soeeeec 


479777 
sveseee 





098805 


eeooees 


8088806 
oeeoeeG 
0920086 


096049 


25143 = PAGE 149% 


MOV RQ, (9P) 
Ry 
otse (R27, KS 


HSAVE NEW STRING 


aoo 3,2 FADOR FIRST CHAR JN NEW STR 
aoo 68, RO pADDR START. CHAR JN OLD STR 
Stour, MOVE (RB) Oy (R2)0 IPTLL IN NEW STRING 
DEC Ry 
he SEGLP 
asatono 


YOUTPUT we STRING 
SEGNULI MOV 0477777, ¢9P) 


SEOX! UMP OSSOPHATR 
ERSEGA| UMP OSERRARG 
ERSEGS| UMP ONERREYN 
SEGFNE} 


45145 «= PAGE 42 


} VAL FUNCTION ROUTINE 
VALFNE JSR PG, eeeVAL 
ece ERVALA 
curs (RY) o,8,RPAR 
LE 


BNE ERVA 
PREAD STRING 
MOV (SP), KO 
cup RO,0877777 WCHECK NULL STRING 
BNE val 


VALR 
CLR FaCa(RS) 
CLR FAGQCRS) 


Ts? ($P)e 
or Vad 
VALRE CLR 


sss they a2 
mov Re, (87) 


aoo HF, RO 

A00 RB,RZ 
CURB (RR) 

MOV A4,0($9P) 
MOV od 


mov Reet ¥r) 
JREAD ascit NUMBER ang EXPONENT 


PG, eval 
INORMALTZE. TO FORM FLY PT NUMBER 
JSR @NORM 


PG, ee 
nov ROPFAGLCRS) 
MOV RG, PAGZ(RS) 


ICHECK ENO OF STRING 
VALCET i {RB} 


VAUX 
oMPe yh le 
eca 
Did alsa aol ange RE yen TO EVAL 
AUX 


af 
BNC ERVALA 


MOV CSP) ORY 

MOV (SP )O,Re 

MOV CHP) O,R2 

“OVE R@, CRO) pRESTORE STRING LENGTH 
VALJt MP @SOPRATOR 
ERVALS) UMP OBERRSYN 
ERVALAL JMP OSERRARG 


VALFNE} 


#RS {8 NEW STRING LENGTH 


5/0 


SN 


ae 


BASICH 


443 
44g 
445 
446 
447 
448 
449 
450 
453 
452 
453 
454 
455 
456 
457 
458 
459 
460 
463 
462 
463 
404 
465 
466 
467 
4668 
469 


BASICH 


478 
472 
472 
ayy 
474 
475 
476 
4677 
478 
479 
480 
484 
482 
483 
484 
485 
486 
487 
46a 
489 
498 
494 
492 
493 
494 
495 
496 
497 
498 
499 
509 
oe4 
502 
583 
504 
505 
906 
507 
9e8 
5ay 
218 
D1. 
512 
913 
544 
515 
516 


MACKLD 


891566! 
084572! 
091574! 
o916e8! 
aereee! 
091606) 
oo16i1g! 
ae16re! 
BOL616! 
801622! 
884626! 
801632! 
801636! 
881640! 
281642! 
021646! 
094652! 
901654! 


091660! 
801664! 


MACX11 


801670! 
801672! 
904674! 
884676! 
981700! 
a1702! 
801704! 
881706! 
aa1710! 
004722! 
o04714/ 
084716! 
004729! 
o04722! 
oe1724/ 
881726! 
804750! 
801732! 
901734! 
884736! 
281740! 
004742! 
004744! 
301746! 
081750! 
#04752! 
901754! 
201756! 
804768! 
684762! 
801764! 
901766! 
204767! 
981779! 
9e4772! 
oo1774! 
981776! 
9047775 
ap2gee! 
882983! 
o92on2! 
oe2003! 


Veas 


884737 
183432 
122127 
8BL95% 
842746 
810502 
04757 
811603 
262703 
830305 
005868 
004757 
9208086 
820688 
816346 
894737 
812616 
088137 


080337 
090437 


vo2s 


oBeeee 
009928 
3880008 
oeeeee 
890089 
890008 
890988 
oe2216/ 
oo2g7al 
oeeoee 
800820 
200808 
200000 
890080 
800008 
880008 
899009 
200908 
882008 
C899 
800008 
892908 
980009 
800000 
800088 
eooge8 
880008 
eeeeee 
800800 
880089 
800808 
820 
TT) 
oe2eee? 
ap2gvel 
209808 
820 
208 
ee 
oe0 
88 
009 


22eMARe7S 


opegeeg 
seouees 
809020 
peoe2s 
opo203 
geo92eG 


8990086 
8900086 


8030886 
a90008G 
eeenees 


898e00G 
o80e086 


22eMARe7S 


15145 PAGE 45 


1 STR FUNCTION ROUTIN 


STRFNE VSR 
acs 


cure 
one 
mov 
MoV 
gr 
MOV 
D0 
MOV 
CLR 
v$R 
+HORD 
MOV 
MOV 
Jse 
MOV 
ume 


ERSTRA} UMP 
ERSTRS} UMP 
STRFNE 
FNENO! 


45145 = PAGE 44 


PG, ORVAL 
ERSTRA 
(REO, 8, RPAR 
EASTRE 

826, 0(8P) 


R5,R2 
PG, OWMAKESTR 
¢$P), 43 


SAVCHAR 

SP ,R2 
TEIRSQ eC SP) 
PG, SOMAKESTR 
(§P) 0, (SP) 
OaSTPRO 


OBERRARG 
ONERRSYN 


' 
' 
) USER AREA STORAGE CELLS 
' 
U 


srt sWORO 
s WORD 
WORD 
WORD 
‘WORD 
(WORD 
WORD 
a WORD 
WORD 
aWORD 
WORD 
WORD 
WORD 
WORD 
s WORD 
WORD 
a WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
‘WORD 
WORD 
WORD 
+ WORD 
WORD 
WORD 

RANDY WORD 
WORD 
WORD 
sOYTE 
BYTE 
ry 
ry 
eWORD 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 


ccaeaarzraaa 


SRCOUE 
RULING 


TPBFHE 


x 
a 
a 
= 
x 
- 


IPROTECT STRING 


HSYMBOLS 
aLIMt? 
PO, 
pPoSt2e 
JARRAYS 
JHIFREE 
sLOFREE 
1600e 
TRINE 
/VARSAV 
sSSYSAV 
y$S2sav 
TLINENO 
1GSCTR 
COLUMN 
sCLMNTTY 
iP ACt 
ace 
pROSAVE 
PRLISAVE 
PRESAVE 
IRSSAVE 
PRASAVE 
ve 

v2 

173 
pRNOL 
PRNOZ 
yRNOCY 
sLOSTR 
PHISTR 
sQDEV 
1IDEV 
sTPHD 
1KOHO 
1ECHOSP 
yCNCFLS 
IGNOFLE 
IFITLLCS 
IFYULNG 
IPILLCH 
y CSPARE BYTE) 


— 


cre 


~N 





BASICH MACX22 VO22 22eMARw7S 15345 PAGE 15 








537 ’ 
tte i USER 3/0 BUFFER AND SUPFER WOR, SPACE (TTY) 
928 ee20R4) ceegze! KOOFHS) © Keaurs sOaTRe 
52% s82e86! 082937! e KOBENY sBEND 
322 e62e18/ op2e2n! «WORD KBBUFE HBGETL 
523 o82012' ovesze! sWORO = KOBUFE 1BBET2 
$24 e82014! oe2020! WORD weeura sBPUT 
525 982016! ovege0 18PSPce 
526 eo2e2e/ Keeurs 
527 ee2esg! ¢ *; sognaesy JOLFAULT SIZE # 28 CHARS, 
528 ee2gs7! KBQENS 
329 "EVEN 
' 
33% 4992040 se2056/ TPOFHS) © Teeyry iB8TRT 
532 082042! 002073! + TPRENS 188N0 
333 902044! aseeze 6 yQGETL (NOT USED) . 
534 39 ee2gse! TPeury HBOET2 ; 
535 202854! TPOUrS 1ePyr 
53 oeeese 8 rergrce 
53 oe2954/ TPeUrS 
338 ee2p7a! 8, oeTresy FOEFAULT # 20 CHARS, 
539 92973! +PQENa 
340 EV! 
343 USRLINEL 
342 oe22i4! 18 OSULNGP JORFAULT @ 428 
545 iskcooe: 
544 
BAS|CH MACX22 VOZL 22eMAR®7S 15145 PAGE 48 
545 ' 
346 1 weONCEPONLY INIT, CODE 
547 ' FINO OUT HOW MUCH CORE AND EXPAND USRAREA ACCORDINGLY - 
548 } 
349 082224! 162706 817774 OEECORE I SYS 047770,R4 IGOME HERE ON TRAP FOR BAD MEM, 
358 g@2220' 322626 cur (9P oy (SP)e 
Ha 892222! 2904%2 er TRYCORE ) REPL, ANDO DEC, CORE Stze 
5 ! 
553 092224) 2egg05 ONCEONLIRESET 
554 882226! 342706 Ba3304! MOV OTMPSTCK, SP ‘TEMP, STACK 
555 992232! 094767 sag0006 JSR PO. IFPMP TIN]T POR FPMP ROUTINES 
356 892236! 012737 Be2z14! BeeBeS MOV AOECCORE, 094 i3et UP TRAP AGOR, 
557 o92244/ 232704 160080 MoV susonae, R4 128K 
358 982259' 3059744 TRECOREITST Ra) 1TRAPS TO OECCORE {F BAD ADDR 
359 992252! 032737 see90g soBREE MoV s 1006 SPALLS THRU ITF OK e RESTORE TRAP ADOR, 
ue 882260! 810467 904108 MOV AG, HIGORE 
ry 
362 VINITIALLZE TOP oF Rae 
563 992264! o12701 coeaee! MOV AST CH RE 
564 IPRINT HEADING any READ ANSWER 
565 o@2278' cpese? 290756 INTHOE «JSR spray 
566 382274! 045 012 BYTE «45, 
367 982276! 240502 044523 o20493 sASCTY Basis yeaqal 
OO2304! 230126 230460 402 
568 902311! aus 912 BYTE = 35542 
569 982313! 417 952220 045049 sASGIT ' OPT ENSt AeALL, NeNONE, JetNO! 
982320! 254516 320972 226504 
082326! 046101 8261314 a47069 
882334! 247935 947117 226105 
882342! 244449 044455 942216 
578 992359! oss 032 sBYTE = 45512 
574 992352! 87? sASCTE tye 
572 982353! TT) BYTE 8 
573 s EVEN 
974 082354! ag4767 098722 usr PG, ROANS 
375 882368! 120027 88116 cure RB,BIN jCHECK FOR N 
576 802364! 304512 seo INESAV 
577 882366! o9So02 CLR Re IGLEAR ALL FLAG 
578 082370! 1420027 88192 cnes RO,AIA IGHECK FOR A 
579 992374) ao1902 ONE INET! 
588 382376' se8202 INC RZ sSOT ALL FLAG 
584 082408! 990415 8R INTALL 
582 992402! 129827 280113 INfTIY «CMPe RB, ait HCHECK FOR } 
583 092406! ga133—8 BNE INCHO 
584 JPRINT HEADING FOR ingiy FUNCTIONS 
585 882419' age3e7 290036 JSR RZ,PR ase 
58@ 382414! 015 oi? 842 sBYTE «= 155425 
$07 392427! 048 826934 84253, sASCyY ¢ Pott NeNOt 
002424) 820123 947068 347055 
802432! 147 
588 302433! ae :BYTE 8 
589 992434! 232705 agS3740 INTALLY MOV OPNTAG,RS S14 
598 392440! 312706 ageoeR MOV STABLES, R4 
593 IGE? NEXT pnenies ao ADORESS 


592 082444) BId503 INTLPT MOV 


ats 
a 


BAS|CH MACXi2 VO2i 22eMARe7S 15149 PAGE j604 





$93 992446! 190005 oPL INTPN 
594 992459! 262705 gpese2 400 O8,R5 pSK3P A FUNCTION 
599 892454! 262704 ceBeRe aoo O3,R4 , 
$96 cozeeg! oe8773 BR INSLP 
$97 ITPRINT QUESTION FOR FUNCTION, SET ANSWER 
598 o92462! azgazy aegc0eG INEPNY CMP RO, OTULSENG 
999 992466! 181094 BH INTSAY 
$20 982478! o2g527 B85944+ CMP RO, OFNTABE 
60% 992474) 193046 BHSS INSSAV 
02 082476! cas70g Ts? R 
683 092500! ca1927 SNE INJOF 
604 082502! 036567 ceeges ceonie MOV 4(R5) )FNNAMS 
$05 g92516/ 036567 seeseg BeBas8 MOV O6RS5)  PNNAM2 
$06 002516! B04307 8005398 ygr RY, PRNSG 
07 «392522 oss 942 sBYTE = 459 542 
09 392524! seegce FNNAMZ}) ,WORD @ 
909 992526! sesgce FNNAM2) ,WORO) 
19 «882530! 2380409 040 sABCTE Foyt 
613 002533! aog BYTE 68 
622 EVEN 
O13 092534! 894767 000542 Use PG, ROANS 
614 «992540! 120927 900426 CMPS RO,9IN TCHECK FOR N 
$15 92544! geige? ONE INTTY 
626 002546 70957284 19? (Raye 
@17 982550 goe4is BR UNENKT 
160 882552! 129027 290353 INTTY) « CHPE RO wry iGRECK POR Y 
619 «092556! a04362 “NE INJPN 
620 HORFING THE FUNCTION 
$23 992569! 936196 INfOrF) MOV stiee 
$22 082562! 192709 se9n0e0 sys eTABLES, Re ; 
23 992566! a1¢024 Mov RO, (RA) (PLACE AOCDRESS IN TABLE 
624 «992578! 332323 INTMVE MOV (ese g (Rate 
$25 982572! 928369 seoue? cP RY, 2085) 
626 «9825764 183774 610 
627 o82zeue! g62709 s90818 ININXT? AOD 840,89 
$28 302604) 220427 aone00G cur R4, OTOLSEND 
HH 992610! 194715 8,08 INTLP 
633 ISAVE TOP OF BASIC 
632 982612! 210167 175262 INTSAY| MOV RE USRAREA 
O33 IMOVE USER AREA TO +O or sasic 
$34 082626' 212708 984078! MOV SYSR, AZ 
35 992622! o1020 MOV REAR FCOMPUFE RELOCATION CONSTANT 
636 992624) 16030 aye myers 
@37 092626! o29227 B62234! MOVLP) CMP RG, eUSRCOOR 
638 3026032! 193805 ents MQVOON 
39 «992634! 032224 GRADO (RDS 
648 882636! 201773 MOVLP 
044 892640! 160343 RY, eCKS) PRELCCATE NONSZERO ENTRIES 
442 992642! 909723 CR4)e 
"i 092644! 290778 ; MOVLP 
a4 MOVOON} 
645 as 
BAS{CH MACX22 YO2i 22eMARe7S 15145 PAGE 47 
646 
o47 HINITIALSEE USER AREA ; 
648 002646 234704 880512 MOV HUGORESR4 JR4 I$ HIGHEST ADOR, IN CORE 
649 992652! 168704 cogzeo sue 36a, R4 
$50 092656! 046705 175336 MOV UBRAREA, RS 
5% 302662! 019465 ceeeeed MoV R4,LIMET CRS) 
652 082666! 162704 90354 sys wage, ne (POINTER SPACE 
O53 982672! 018465 g908886 MOV RG, POLERS) sOA8E OF gragk 
654 «982076! 162704 a900886 sys WESTKSE, RE IMAX, STACK SIZE 
655 992782! 349465 23999986 MOV sen anenatna) FMYES? ARRAY STOR, LOC) 
659 «082706! 262704 s80040 ago 
957 982712! 219465 oe9eeG MOV maufoaiae a5) 
658 9827264 032765 93253, spe8880 MOV 2334, ANOG(RS) 
959 992724! 232765 163253 seeeneG MOV #463294, RNO2(A5) 
660 
664 iDUALOGUE fo SET UP TERMINAL TYPE 
962 882732! o95803 ASRSER! RS 
663 882754! 394367 298312 Sgr et ee 
664 gB27494 e185 ote o12 sBYTE = 45442082 
665 082743! 406 054503 o20124 sASCIL FAST SER VERME! 
082759! B42523 820422 242526 
882756! 846522 077 
666 «002764! eee BYTE 8 
667 1EVEN 
668 882762! 884767 888324 usr Pg, ROANS 
669 682766! 120827 998116 curs RO, 8'N 
678 892772! 081457 aco ASKDON 
674 082774/ 129027 900154 cMPa RO ery 
672 883008! 004354 UNE AGKSER 
673 o83e82! 389283 INC RS 
674 
675 983084! 284367 390242 ASKLAL JSR AZ, PRHSG 
676 «ae3e18! 015 oi2 1BYTE «= 4394 
677 O83012! 240544 038863 24040 sASCIT ‘QA3@ (388 BAUD)?! 
O83820! 39863 B22260 249502 
093026! 342125 037453 
478 003032! Tr) BYTE «8 
679 903836) 1 EVEN 
682 883054! 094767 298242 usr PG,ROANS 
681 983048! 120827 982333 comes Roary 
682 383044! 981432 gea ASKOON 
683 883046! 120027 800116 cuee ROBIN 
684 883052! 204354 ONE ASKUA 
685 083054! b95203 ING RY 
686 
687 883056! 094367 880470 ASKVT| «JSR RY, PRMSG 
688 3a83e62! o18 032 sOYTE «45442 
689 283094! 252126 232468 824049 sASCIL 'VTGS (>0¢08 BAUD)T! 
883872! 336476 330866 920860 
083108! 249502 842325 037454 
699 983106! 908 Oyen 8 b 
694 383110 ' 
692 O83118' 884767 900266 gsr PG, ROANS S/ 
693 983114! 120027 290353 curs RB, etY 


694 «ga3128! 294404 [T°] ASKOON 


BAS{CH 


695 
696 
097 
698 
699 
728 
78% 
702 
783 
724 
705 
786 
707 
708 
709 


mR 


BASICH 


747 
748 
749 
758 
754 
752 
753 
754 
755 
756 
757 
758 
759 
768 
764 
762 
763 
764 
765 
766 
767 
768 
769 
779 
774 
772 
773 
774 
775 
776 
777 
778 
779 
78e 
784 
782 
783 
784 
785 
786 
787 
788 
789 
798 
79% 
792 
793 
794 
795 
796 
797 
798 
799 
bee 
cre 


MACX21 


803122! 
893126! 
80315a! 


o9S152 
893434! 
893236! 
893140! 
083342! 
883246! 
903459! 
o83154! 
893156! 
83169! 


893162! 
893166! 
603179! 
803474! 
903377! 
eosze4! 
893212! 
883216! 


ogS2z9° 
oes22e/ 
888227! 


gaS2sg! 
OB3234! 
893236! 
893249! 
8032444 


B8S246! 


oos252 
803254! 
ogs2eg! 
883262! 
803266! 
o9s279/ 
883272! 
0e3274/ 
883276! 
88330e¢ 


8853026 
OB3S306! 


MACX21 


863312! 
093314! 
8a332e! 
Oa3324/ 
883330! 
O83334! 
BBS336! 
893342! 


883364! 


OBS366! 
803371! 


893374! 
803376! 
803420! 
83404! 
883406! 
oeS4ig! 
883412! 
aosaie! 
003416! 
803429! 
903422! 
003424! 
803426! 
803432! 
803434! 
083436! 
803449! 
03444! 
083446! 
80345g0 
O03454s 
883456! 
803469! 
O8S464! 
203466! 
003479! 
003474! 
883476! 
093500! 
603504! 
803506! 
9935.9! 
oa35ia! 
883546! 
og352g/ 
003524! 
883526! 
88353" 


vee. 


120027 
081353 
990708 


819382 
081412 
886503 
869382 
862782 
019503 
862703 
122223 
122223 
142223 


895737 
o04416 
004367 

015 

125 
04971206 
o42ias 


eee 
eesa2s/ 


004367 
915 
908 


832782 
032203 
864403 
962703 
810312 


980267 


90308 
188737 
180375 
122937 
881372 
229083 
895203 
206203 
806303 
888293 


885267 
105737 


vo22 


198373 
113780 
242728 
010067 
694367 
890888 
816708 
888207 
BBS364l 


oa3363! 
ove 
800 


seegeg! 
opesse! 
049422 
177777 
179777 
179777 
179777 
477777 
179777 
477777 
ope1sal 
000236! 
044104 
477777 
8eo236/ 
aga324t 
843523 
380326! 
200436! 
240524 
380436) 
oeesial 
042544 
aeesigl 
aoes7el 
051582 
ages7al 
808646! 
344103 
290646! 
PT yeeru 
04752@ 
99i35@/ 
eeraeg! 
842523 
oosezg 
991566! 
040526 


22eMARe73 
988116 


93303! 
og98980 


ogeu4se 


9eoese 
012 


45145) = PAGE 4704 


B42 


242523 828122 
828423 047544 


842305 


812 


890834 


4777766 
seeeneG 


176452 
8808086 


22eMARe7S 


SgeR02G 
177608 
eeooe4 
177726 


477772 


o1y 
aoe 


920304 


820423 


820226 


620182 


B20116 


920403 


022422 


020325 


823407 


820314 


032 


845 
O12 


cura RO,BIN 
BNE Agnyr 
BR ASKSER 
ASKOON) MOV RY,RZ 
aca FILLOON 
Ast, Ry 
ano RY,R2 
aoo FILL TBR 
MOV R5,RS 
aoo OFILLGO RS 
MOVB CREDO (RSV 
MOVE RZ) Oy (REDO 
MOVE GRADO (RSID 
FILLOONE 
IPRINT OUT JF USER FUNCTIONS LOADED 
187 084s 
BE NOUSR 
JSR RS, PRMSG 
sBYTE = 19442542 
sASCIE ‘USER FNS Loaded! 
BYTE B 
EVEN 
NOUSRI 
JsR RZ, PRMSG 
sBYTE =. 4.99 42042.8 
vEVEN 
ICHECK IF RNOL LOACED 
MOV ATABLES RE 
MOV (RZ) OARS 
sea NORND 
aod #RNOFNORNOLFN RS 
Mov RZ, (RQ) sOZFING RAND ALSO 
NORNOD! 
JMe START 
ISUBROUTINE 70 PRINT A MESSAGE 
PRMSGI MOV RJ, RO 
PRLP} = T$78 eateaez 
OP, PALP 
Move (RG) so, e0TP 8 
One PRUP 
MOV ROARS 
ING ry 
ase RS 
ASL Ry 
RTS RS 
FSUBROUTINE TO READ ANSWER FROM TELETYPE 
ROANS} INC RAND 
Ts? ewTKs 
15145 «= PAGE 4702 
er. ROANS 
“ove O87KSe2, RO 
Bye 8477600,R8 
MOV RB, INCH 
J8R R¥,PRMSG 
INGHE ,WORD 2 
MoV INCH, RO 
RTS °g 
7 5928 
TMPSTCK! 
HICORE} ,WORD  @ 
FILLTBe, eS 
18YT O,12,35 ILA38 
sBYTE «= 89 84,42 iVT8S 
FNPART 
sWORO =—-RNOLFN 
sWORD = RNOFNE 
sASCTE FRND f 
WORD of 1 AND 
WORD sd 4 84N 
WORD oh 1 egs 
;WORD = oh 4 QR 
sWORD of 1 aTN 
sWORD ed y exe 
WORD ad 1 406 
,WORD = ABSFN ) ABs 
sWORD = ABSFNE 
sASCTY ‘ABS ft 
sWORD 0d 1 INT 
,WORO = SGNFN 4 SGN 
sWORO = SGNFNE 
sASCTE S6N FE 
;WORD = TABFN y a8 
sWORD = TABFNE 
sASCIL faa t 
»WORD = LENFN 5 LEN 
sWORD «= GNFNE 
sASCIT "REN E 
:WORD «= ASCFN y ase 
:WORD = ASIEN’ 
ASCII FASC Ft 
:WORD = CHRSFN 5 CHRS 
sWORD = CHRPN' 
rASCIL * CHAS! 
WORD «= POSFN 5 POS 
sWORO = POSFNE 
sASGRT POS . 
sWORO = SEQFN i $60 
sWORD = SEGFNE 
sASCIT « FEGSE 
sWORD))VALFN yVaL 
1WORD = -VALFNE 
sASCTY VAL 


RY es 





SIE 


BAS{CH MACX12 VO2L 22eMARw7S 415449 PAGE i705 


002 aa3sse! o81566! sWORD = STRFN i str 
883 983536! Beig79! sWORO = SYREN 3 
804 983549! 952423 922122 ASCE 7htRs 

go FNPABE} . 

807 oeezze! 1ENO = ONCEONL, 


BASICH MACX12 VOZ2i 22eMAR@7S 15145 PAGE 3704 








aBSFN SB014R ABSFNE BB92S6R agStny Ooea74R ABsx gee222R 
ARGB B enseee G ARRAY§ * aeceee G ASCFN OHO5LOR ASCFNE 990974R 
ASKQON GOSLS2R ASKLA 983004R ASKSER O6275aR Agny? BO3G5OR 
BAS{CH  gg82@2R a, = peed CHRFNE  099646R CHRSFN «©98B974R 
COLUMN © eaesee G OECCOR BB2244R ERABSA eeg226R ERABSS 9OHZS52R 
ERASCA 8O09564R ERaScS 900578R ERCHRS 08g642R ERLENA GOO5G0R ; 
ERLENS @98594R ERPOSA OB1L42R ERPOSS OO4,46R CRRARG @ @ oe G 
ERRMIX & eneeee G ERRNOA OOBLSAR ERANOS BORLSOR ERAPOL 8 on G 
ERRSYN 28 seesee G ERSEGA @81410R EROEGS 0814g4R ERSGNA BOSILER 
ERSGNS gogS20R ERSTRA 001660R ERSTAS 964604R ervaas BHGASER 
ERVALA @84562R ERVALS 981556R EVAL SB ageeee G PACy 8 eneaee G 
FAC2 8 enone G FILLGQ & eneeee G FILLOO 8863162R PILL TS 8 BBS3GSR 
FNEND OOLE7OR FNNAMY 8O2524R FNNAM2 bO2580R PNT AB B83374R 
FNTABE 9035442 HIGORE  @83364R {FPMP 5 eneeee C INeH OBSSS4R 
INTALL  882434R TNJOF 8O25g0R INFN 082492R INTHO O82276R 
INJLP 002444R INEMV 882570R ININXT = BGQ60OR : INTSAV 902042R 
TNUTI 902492R INUTY B82552R tnt 8 epeeee G KOBENS © GB2RS7R 
KBBFHA ©g92994R KBBUP4 © Ge202BR QENFN GH0436R LENFNE  g@eoieR 
LIMIT 38 aaenee G MAKEST § esneee G MOVOON BB2646R MQVLP G02626R 
NORM 8 eseven G NORND BOS246R NOUSR OO3Z220R NUMSCN # ee G 
ONGEON B82224R OPRATO & esnece G °¢ eXBO0007 POL e eeesee 6 
POS|ZE & eeses G POSF 9O1124R POSEN B8B646R POSFNE  901452R 
POSFS] OB4O5OR POSF2 081126R POSNO 0911 ,6R POSNXT 884076R 
POSREM OO4070R POSTRY 0818546R PosXx OOB794R Posy 984 208R 
PRUP O9S254R PRMSG 083252R RANO OO4790R ROANS 8833B2R 
REXP age74R RNOEN 00016R RNOFNE  0894408R RNOFN2  B08820R 
RNOLFN eeeeseR RNDL a eecoes G RNOZ a enenen G RNORM BOORSER 
RPLUS eege5aRr RO 3XO00008 Ry sx0O0004 Re aXQ0OOR2 . 
R3 8%009005 R4 axoooeg6 Lkd sxOG0005 SAVCHA = eeeees G 
SEGFN 001152R SEGFNE  84428R seo. 804256R SEOLP O01366R 
SEGNUL  802492R SEGRNG  684542R SEGR2 8045g0R secry 882278R 
SEGTY2  861304R SEGX g014g4R SEGXe 064292R SQNFLY  g9090278R 
SGNFN @pe236R SGNFNE  @09524R SGNPOS  Beg27ER 8GNX O9B9LER 
SOPRAY © @eeeee G sp SXOBCOR6 START 8 seeene G STPRO 9 neoeen G 
STRFN 981566R STRFNE  901678R Tage Beasaan raee BBGIOOR 
TABFN BBGS24R TABFNE BOKASOR TABLES § @eneee G TABNON BOOSTER 
TABNUL  988426R TBLSEN 5 eneeee G Tks 8 apecee G TMPSTC B83364R 
TPB 3s eeeeee G TPBENL © @82073R TPBFHL BO2G4ER TPBUFS = B02054R 
TRYCOR @02250R TL a aneeon G t2 = eneoee 6 3 & enenen G 
VSR 801678R USRARE DOOHPORG USRCOO BEZ2R4R USRLIN O2074R 
VAL 2 evecoe G VALGE BOL524R VALFN OO14Q0R VALEN 984966R 
VALY 881552R VALR 881460R VALX OO4596R SKBOS# =« peeez0 
SSIKSZ & eeecee G STPBS2 ws 990820 SULNSP = 660328 COMMA 9 aneven G 
1RPAR © saeeee G ' 8 983544R 


ERRORS DETECTED! & 


520 


° 


BASICH MACX11 


RUNTIME 
FORE VSEO) 


ABSFN 
ABSFNE 
ABSINT 
ABSX 
ARGB 
ARRAYS 
ASGFN 
ASCFNE 
ASKOON 
ASKLA 
ASKSER 
ASKVT 
BASICH 
Sl 
CHRENE 
CHRSFN 
COLUMN 
OECCOR 
ERABSA 
ERaGSS 
ERASCA 
ERASCS 
ERCHRS 
ERLENA 
ERLENS 
ERPOSA 
ERPOSS 
ERRARG 
ERRMIX 
ERRNOA 
ERRNDS 
ERRPOL, 
ERRSYN 
ERSEGA 
ERSEGS 
ERSGNA 
ERSGNS 
ERSTRA 
ERSTRS 
ERTABS 
ERVALA 
ERVALS 
EVAL 
Facy 


Face 


FILLco 
FILLOO 
FULLTB 
FNENO 

FNNAML 
FNNAM2 


ves 
16 SECONDS 
3K 
1208 774 
2508 775 
225 1298 
126 128 
44 164 
35 635 
2118 787 
2268 788 
676 682 
6759 684 
6628 672 
6878 696 
768 563 
7308 483 
24ge 79% 
2298 796 
37 473 
5498 556 
223 1394 
223 1376 
212 217 
224 2250 
234 2398 
495 2058 
497 2060 
245 249 
247 253 
38 416 
38 
89 1.68 
82 1158 
38 
38 115 
327 334 
329 336 
143 1568 
445 1598 
445 4630 
447 4040 
166 1898 
399 432 
401 43e0 
39 79 
37 112 
423 
37 113 
268 262 
33 705 
788 709% 
783 7598 
4668 
604 6088 
605 609" 


22eMARC7S 


130 
229 


om 
97 


428 


aug 


293 
256 
436 


337 
338 
gat 


4sve 


128 
124 


429 
347 


15445 


232 


6998 


22a0 


3208 
32a8 
338 


459 
3928 
3930 


342 
127 


131 
334 


PAGE 1703 
1358 

205 224 
169 286 
194 222 
133 147 
134 149 
368 407 


225 


aae 
159 


459 
424 


392 


239 


248 
198 


168 


439 


32a 


252 
228 


199 


493 


393 


326 
258 


203 


438 


338 
348 


224 


464 


337 
333 


222 


398 
355 


232 


444 
4a6 


237 


FNTAB 
FNTABE 
HICORE 
IFPMP 
INCH 
TNTALL 
INJOF 
INIFN 
INTHO 
INTLP 
INIMV 
TNINXT 
INISAV 
INSTI 
INETY 
INT 
KBBENS 
KBBFHS 
KBBUFS 
LENFN 
LENFNE 
QUMIT 
MAKEST 
MOVOON 
MOVLP 
NORM 
NORND 
NOUSR 
NUM8GN 
ONCEON 
OPRATO 
PC 


poy 
POSTER 
POSF 
POSF2 
POSFN 
POSFNE 
POSFST 
POSNO 
POSNXT 
POSREM 
POSTRY 
POSX 
Posy 
PRUP 
PRMSG 
RB 


RL 
R2 


ons 


RS 


RAND 
RDANS 
REXP 
RNOL 
RNOD2 
RNOFN 
RNOFN2 
RNOFNE 
KNOLFN 
RNORKM 
RPLUS 
SAVCHA 
SEGFN 
SEGFNE 
SEGL 
SEGLP 
SEGNUL 
SEGR2 
SEGRNG 
SEGTY 
SEGTY2 
SEGX 
SEGXO 
SGNFLT 
SGNFN 
SGNFNE 
SGNPOS 
SGNX 
SOPRAT 
sp 


7630 
aose 
648 
555 
7528 
589¢ 
o2ue 
5980 
583 
596 
626 
6270 
599 
5820 
6168 


5268 
Secs 
522 
764 
785 
654 
186 
6440 
648 


7298 
7108 
455 
607 
a4 


339 
633 


637 
263 
376 
793 
794 
299 
3338 


3038 
344 

2698 
rit) 


585 

a4 
154 
297 
404 


622 
753 

84 
447 


179 
275 
343 
422 
639 

86 
284 
369 
624 
704 
743 
426 
649 


473 
264 
423 
638 
745 
643 
1040 
658 


727 


765 
727 
193 
96" 
456 
796 
797 
3518 
387 
356 
3668 
3630 


3408 


3498 
1548 
778 
779 
1548 
1578 
188 
167 


323 


235 
943 


435 
129 
332 
668 


737 
636 

85 
155 
309 
442 


623 
122 
433 

89 
382 
277 
347 


785 
742 


654 
668 


659 


764 


364 


238 
466 


339 


524 


375 


397 


337 
688 


276 


663 


181 
347 
433 


669 


144 
446 

98 
183 
288 
349 
443 
702 

94 
286 
374 
635 
706 
734 
434 
652 
115 
196 
298 
449 
653 


688 


367 


394 
469 


5268 


459 


204 
164 


692 


278 


673 
87 


283 
344 
4a4 


671 


165 
563 


186 
289 
366 
448 
783 


295 
384 
636 
707 


549 
633 
124 
199 
396 
433 
655 


692 


3968 


a7t 


439 


223 
388 
375 
754 


367 


687 
184 


334 
426 


473 


say 437 
294 244 
399 429 
Siee 
m4 719 
33 93 
485 236 
353 338 
424 434 
683 693 
243 238 
424 632 
5 97 
rity 283 
294 292 
72 373 
439 449 
707 706 
404 105 
305 306 
386 423 
663 663 
m9 79 
558 568 
655 656 
sey _ 334 
228 323 
337 318 
458 sag 
659 689 
767 
a7y 477 


229 
422 


7330 


337 
363 
436 


695 


246 
936 


198 


293 
377 
457 
724 
406 
310 
454 
673 
725 


398 


784 


a8s 


235 
aaa 


794 
v7 
257 


575 


733 


230 
639 
105 
246 
295 
380 
377 
725 
244 
452 
675 
727 
595 
134 


334 
594 


244 
459 


98 
262 
378 
578 


736 


255 
642 
187 
248 
298 
382 
588 
728 
243 


433 
685 
728 


598 
447 
234 


335 
608 


245 


248 
455 


108 
266 
379 
382 


7368 


328 
642 
406 
222 
303 
383 
602 


2a8 
368 
565 
687 
733 


646 
149 
237 


368 
ona 


233 


252 
459 


208 
275 
384 
614 


748 
335 


409 
234 
388 
385 
634 


281 
363 
585 
699 
738 


623 
135 
256 


373 
085 


236 


254 
535 


146 
277 
385 
628 


749 
349 


148 
269 
318 
440 
635 


282 
365 
592 
704 
739 


628 
156 
260 


486 
625 


264 


5a4 


LS) 


a 


343 

416 
START 33 
steno 4 
S{RIN 4eae 
STRFNE 4650 
Ts 4g 
v2 40 
3 49 
TABB 1698 
TABG 179 
TABFN 1640 
TABFNE. 1908 
TABLES 36 
TABNON 176 
TABNUL, 178 
TBLSEN 36 
TKS 32 
TMPSTC 554 
TP 32 
TPBENS 532 
TPOF HS 507 


vse 4748 
RARE 34 
YSRcoo 4a. 
USRLIN 482 
VAL 42 
VALGE 4260 
VALFN 3968 
VALFNE asge 
VAbd 409 
VAUR 405 
VAUX 427 
153 
1GOMMA 49 
sAPAR 3” 
sKeese 56 
SSYKS2 44 
sTPese 52 
SULNSP 66 


QNKX220 Vaat 





272 283 282 265 268 29 303 yas 
344 352 353 372 374 37? 378 379 
437 aie 434 433 434 435 448 454 
730 

388 463 

602 

603 

298 298 3e8 454 458 

234 3e9 453 


172 
1730 


599 J 922 7a4 


598 928 
746 740 


734 736 
5390 
5340 
534 335 S378 


75a 932 930 
5430837 
5440 


474 397 282 526 5278 528 537 3380 
246 258 326 333 
83 122 a44 163 196 ang 230 255 


22eMARe73 16122 


#BASTGNeNOSMAP, ORK <BASICN, FPMP BASICH/BIO/E 


LOAQ MAP 


TRANSFER ADORESS; 8301450 
LOW LIMIT] Begee 
MIGH LIMIT! 031478 


seposenens 
MOOULE BaSICL 
SECTION ENTRY 
<, ABS,> 
ARGB 
ARRAYS 
COLUMN 
ERRARG 
ERRMIX 
ERRPOL 
ERRSYN 
EVAL, 
FACL 
FAC2 
FILLCO 
GETVAR 
INT 
GIMIT 
MAKEST 
MSG 
NORM 
NUMOUT 
NUMSGN 
OPRATO 
POL 
POSIZE 
RNOL 
RND2 
SAVCHA 
SOPRAT 
START 
STOVAR 
STPRO 
TABLES 
TBLSEN 
TKS 
YP 
ef 


< > 


eeeeceenen 


MODULE FPMP1 


ADDRESS SJzE 
ogeeee aeevee 
0146598 
ooeei8 
890036 
OB7734 
011659 
o1fi20 
812658 
010616 
agegsg 
agge42 
080119 
813604 
o14004 
290802 
914658 
045474 
315554 
815746 
8259768 
844272 
800904 
OB2806 
390064 
a80866 
21165@ 
911659 
204934 
817244 
8116508 
310756 
811902 
177560 
177566 
300056 
980g 
380962 
220702 
aee2ae 
890243 
000283 
806255 
280237 
aBeeeg 824426 


3 
te 
437 


339 
3a 


343 
399 
438 


54e8 
408 


346 
463 
468 


7550 
446 


333 
408 
559 


739 


334 
422 
554 


5S 


526 


SECTION ENTRY 
< > 


AINT 
ALOG 
ATAN 
cos 
ERRFPY 
Exe 
IFPMP 
SIN 
SQRT 
SAOR 
SOVR 
SERR 
SERRA 
SERVEC 
SINTR 
SIR 
SMLR 
SPOLSH 
SPOPRS 
SPOPR4 
SPOPRS 
SRt 
SSBR 
SV2RA 
aegeeeeeas 
MODVLE s8aSICH 
SECTION ENTRY 
< > 
USRARE 


ADDRESS SIZE 
324426 994276 
629844 
822179 
225848 
924464 
324430 
a2zS3i4 
021426 
324526 
823538 
824434 
022662 
825666 
325676 
825746 
022562 
823664 
923758 
025524 
024334 
824322 
824322 
024342 
021439 
825526 


ADORESS SIZE 
825724 993544 
825726 


RUN@YIME} 3 SECONDS 


2K CORE USED 


GNKX22 0 -VO22 


22emMARo7S «= 26124, 


sgaSicSsSTRMAP, ORKegaSICL FPMP 1 BASICH/BIO/E 


LOAD MAP 


TRANSFER ADDRESS; 032786 
LOW LIMIT o88020 
HIGH LIMIT! 034226 


eapecenone 
MODULE BASICL 
SECTION ENTRY 
<, ABS4> 
ARGB 
ARRAYS 
COLUMN 
ERRARG 
ERRMIX 
ERRPOL 
ERRSYN 
EVAL 
FACL 
FAC? 
FILLCO 
GETVAR 
INT 
uiMar 
MAKEST 
MSG 
NORM 
NUMOQUT 
NUMSGN 
OPRATO 
POL 
POSIZE 
RNOL 
RND2 
SAVCHA 
SOPRAT 
START 
STOVAR 
STPRO 
TABLES 
TBL5EN 
TKS 
1P8 
Tt 
12 
3 
VAL 
SSTKSZ 
COMMA 
EOL, 
vRPAR 
+RPAR 
< > 
eOeenenons 
MOOULE FPMP12 


ADDRESS SIZE 
geese cpa0e8 
010276 
200018 
aaag34 
018326 
815926 
911776 
012554 
941402 
289040 
290842 
900104 
815420 
845628 
egaee 
917264 
847530 
247638 
820082 
20044 
042176 
ogee 
280026 
882964 
200966 
820646 
812738 
801102 
821332 
843176 
831562 
819626 
177560 
177566 
888056 
280068 
209262 
823449 
ege2e8 
880243 
980264 
208255 
800237 
e9eeae 824464 


SECTION 
‘ 


ENTRY 
> 
AINT 
ALOG 
ATAN 
cos 
ERAFPY 
exe 
IFPNP 
SIN 
SQRT 
SAOR 
SOVR 
SERR 
SERRA 
SERVES 
SUNTR 
str 
SMLR 
SPOLSH 
SPOPRS 
SPOPR4 
SPOPRS 
SR 
sser 
SvV2gA 


ongenesece 


MOOULE 
SECTION 
< 


BaSiCH 

ENYRY 
> 

UsrARE 


RUNCTIMEL 5 SE 
2K CORE YSED 


—_ 


ADORESS Size 
024364 094276 
929302 

824726 

829576 

029222 

624106 

026852 

024164 

827256 

830266 

824172 

025426 

830424 

338434 

030456 

028328 

926422 

926526 

039262 

027872 

e278e8 
027866 
027106 
924166 
830262 





AOORESS S}2E 
HTP 063544 
63946 


CONDOS 
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Oosnoueune 


980008 


oaeeaa 


822000 
200008 
e0e90e 
200008 


000000 


eTITLE PERPAR © PERIPHERAL SUPPORT PACKAGE PARAMETER MOOULE, 
DEC 11 @LBPAA@ALA BASIC KERNEL VO2~01 
COPYRIGHT (C) 1974 


DIGITAL EQUIPMENT CORPORATION 
MAYNARD, MASSACHUSETTS 01754 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 
CHANGE WITHOUT NOTICE ANO SHOULD NOT BE CONSTRUED 
AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION, 
DEC ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
MAY APPEAR IN THIS DOCUMENT, 


THIS SOFTWARE IS FURNISHED TO PURCHASER UNOER A 
LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND 
CAN BE COPIED (WITH INCLUSION OF DEC’S COPYRIGHT 
NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
OTHERWISE BE PROVIDED IN WRITING BY DEC, 


DEC ASSUMES NO RESPONSIBILITY FOR THE USE 
OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT 
WHICH IS NOT SUPPLIED BY DEC, 


ee 


THE CONDITIONALS CONTAINED IN THIS MOOULE AFFECT THE ASSEMBLY 
OF THE FUNCTION TABLE MODULE "FTBL,MAC", 

70 OBTAIN THE DESIRED CONDITIONAL OEFINITION(S), 

REMOVE (USING AN EDITOR) THE 


eee 


+ SEMI@COLON APPEARING BEFORE THE CONDITIONAL, 
sSOISKs@ pDEFINE FOR RT#11 
sIFNOF SOISK 
SSTRNGSO 100 NOT DEFINE FOR PTS BASIC WITHOUT 
sSTRINGS,© DEFINED FOR PTS V@1 WITH STRINGS 
eENOC r] 
SLPSsa sOEFINE FOR LPS 
aIFDF SLPS 
1$V20 HDEFINE FOR LPS WITH VECTORS STARTING 
’ ' AT 38@, DEFAULT SETTING IS VECTORS AT 
' ’ 340, SET SV = ANY OTHER DISPLACEMENT IF 
; ’ VECTORS START AT DISPLACEMENTS 
' ' OTHER THAN @ OR 4@ FROM 
’ ’ VECTOR 380 
Sancza yINCLUDE A/D ROUTINES, 
SCLKa@ yINCLUOE CLOCK ROUTINES, 
solose pINCLUDE DIGITAL IO ROUTINES 
SOISsO yINCLUDE DISPLAY ROUTINES, 
sENDC = SLPS 
, 
5 
SVTLi90 WFOR GT4@ (GT4G) 


~ oe oe ee 


eo oe nein 


PERPAR e@ PERIPHERAL SUPPORT PA RT#14 MACRO VMO2909 


58 
59 
68 
ot 
62 
64 
65 
66 
67 
68 
69 
78 
71 
72 
73 
74 
75 
76 
7 
78 
79 
68 
61 
82 
83 
84 
8s 
86 
87 


PERVEC VECTOR DEFINITION MOOULE RT#11 MACRO VM@2=09 


Core NEVNN 


od 
cuUne eo 


080800 SCLOCKsO 


1784600 
170402 
1784040 
1704006 
170418 
178618 
170q12 
1764014 
1704016 
170420 
178422 
170036 


Q08344 
200346 


000350 
900352 


200340 
8868342 


172000 
172002 
172904 
172006 
000320 


EoT 
eTITLE PERVEC VECTOR DEFINITION MODULE FOR BASIC SUPPORT PACKAGES, 


eTFOF = SVTS 
sENOC 


DEC #1 LoL BPVASASLA BASIC KERNEL vV@2e01 
COPYRIGHT (C) 1974 


DIGITAL EQUIPMENT CORPORATION 
MAYNARD, MASSACHUSETTS 01754 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT T0 

CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED 
AS & COMMITMENT BY DIGITAL EQUIPMENT CORPORATION, 
DEC ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 


gFOR SYSTEM CLOCK (KWLIL) 


MAY APPEAR IN THIS DOCUMENT, - 


THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A 
LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND 
CAN BE COPIED (WITH INCLUSION OF DEC*S COPYRIGHT 


OTHERWISE BE PROVIDED IN WRITING BY DEC, 
DEC ASSUMES NO RESPONSIBILITY FOR THE USE 


OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT 
WHICH IS NOT SUPPLIED BY DEC, 


eee rr 


ee 


» THIS MODULE DEFINES THE HAROWARE ADRESSES USED BY . 
y SUCH HARDWARE AS THE "LPS", THE "VT1I"(GTGQ) AND THE *LYI1", 


1 IF THE VECTORS FOR THESE DEVICES SHOULD CHANGE 
» THIS MODULE MUST BE EDITED TO REFLECT THE CHANGE, 


sIFOF SLPS 
eIFNOF $V 
$V3840 
eENOC 


eGLOBL LPSAD,LPSADB,LPSOR, LPSOMA 
»GLOBL LPSCKS,LPSP8,LPSORS,LPSOIB 
eGLOBL LPSDOR 

eGLOBL LPOISS,LPOISX,LP0ISY 


eGLOBL CKLIVA,/CKLIP,ORSIVA,ORSIP/LPSIVA,LPSIP 


9 DEVICE EQUATES: 


LPSAD s 170Ga@ yLPS A/O STATUS REG, 

LPSA0B 8s 170402  ;LPS A/O BUFFER LED REG, 
LPSCKS = 1786@4 4 LPS CLOCK STATUS REG, 

LPSsPB os 170406 sLPS CLOCK BUFFER PRESET REG, 
LPSOR s 178412 sLPS OIGITAL 1/0 STATUS REG, 
LPSORS = LPSOR 

LPSOI8 # 178412 LPS OIGITAL INPUT REG, 
LPSDOR # 170414  9LPS DIGITAL OUTPUT REG, 
LPOISS & 170416 9LPS OISPLAY STATUS REG, 
LPOISX 2 170420 LPS DISPLAY REG, X 

LPOISY = 170422 sLPS DISPLAY REG, Y 

LPSDMA 8 170436 LPS OMA REGG, 


y INTERRUPT VECTOR PAIRS 


CKLIVA «= 3OUe$Sy yAOR, OF CLOCK INTERRUPT VECTOR 
CKLIP 3 3@6+S¥ yAOR, OF CLOCK INT, PRIORITY 
ORSIVA 8 31@¢8y ,AOR, OF ORS INT, VECTOR 
ORSIP z 312¢8V¥ ADR, OF ORS INT, PRIORITY, 
LPSIVA # 30G+SV yAOR, OF THE A/D INT, VECTOR, 
LPSIP 2 30248V AOR, OF THE INT,PRIORITY, 

eENOC rSLPS 

elFOF SvTit 1GT4Q 

eGLOBL DPC,0SR,OISX,OISY,GTVECT 
orc s 172@0@ «s¥TIL DISPLAY PC 
OSR z OPCe2 sVTil DISPLAY STATUS REG 
DISXx 2 OSRe2 yVTLL X STATUS REG 
DISY s DISxXe2 j;VTIt Y STATUS REG 
GTVECT = 320 sAOR, OF VT1L (GTUG (GT44)} INTERRUPT 


HVECTOR LIST, REDEFINING GTVECT 


NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 


LorOCTo74 B1851942 PAGE to 


1OsOCT]@74 O1s518G2 PAGE 2 


PERVEC VECTOR DEFINITION MODULE RT#1} MACRO VNG2=09 16e0CTH=7H BisStsa2 PAGE 2e 


58 PREDEPINES THE ENTIRE SET 

59 yOF DISPLAY PROCESSOR INT, VECTORS, 
68 sGTVECTs G sOISPLAY STOP VECTOR 

ot HGTVECT ous LIGHT PEN HIT VECTOR 

2 sGTVECTo108 yOISPLAY TIME OUT VECTOR 

63 eENDC =p SVT AE 

oa 

6s 

66 eeeeal? oEND 





PERVEC VECTOR DEFINITION MODULE RTo1{ MACRO VMg2=69 LoeOCT=74 81851342 PAGE 24 
SYMBOL TABLE 


CKLIP & 800346 G CKLIVAS 000340 G OI8X = 172004 G 
OISY s 172086 G opc ® 17280e 6 ORSIP s 990352 G 
ORSIVAs 900350 G osR 8 172002 G GTVECTs 900329 G 
LPOISSa 170436 G LPOISX® 170628 G LPOISYs 178422 G 
LPSAD = 170400 G LPSADBs 170402 G LPSCKS= 170496 G 
LPSOI8s 1784432 G LPSOMAs 170436 G LPSOORS 1784148 G 
LPSOR = 170418 G LPSORSs 178410 G LPSIP = 900342 G 
LPSIVAs oa03uea G LPSPB s 170496 G $a0C = a80000 
SCLK = 908000 SCLOCKs go0000 $010 = Gegeeo 
SOIS = aee000 SLPS) = a00000 SSTRNGS g0e000 
sv = 000040 SVT11 = g00000 
+ ABS, 290000 CTT) 

0eeeea 001 


ERRORS DETECTED: @ 
FREE CORE: 18189, WORDS 


PERVEC,GTL,LPrePERPAR,GTL,PERVEC 


PERPAR we PERIPHERAL SUPPORT PA RT@i{ MACRO VMG2909 LoeOCT=74 B1852829 PAGE 1 


1 aTITLE PERPAR |= PERIPHERAL SUPPORT PACKAGE PARAMETER MODULE, 

2 ’ 

3 y DEC*{LeLBPAAcheLA BASIC KERNEL Va2eo! 

a ’ 

+) y COPYRIGHT (C) 1974 

6 , 

7 } DIGITAL EQUIPMENT CORPORATION 

8 } MAYNARD, MASSACHUSETTS 01754 

9 ’ 

19 } THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 

it } CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED 

12 } AS & COMMITMENT BY DIGITAL EQUIPMENT CORPORATION, 

43 } DEC ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 

14 7 MAY APPEAR IN THIS DOCUMENT, 

15 ’ 

16 ) THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A 

17 1 LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND 

18 7 CAN BE COPIED (WITH INCLUSION OF DEC*S COPYRIGHT 

19 y NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 

20 y OTHERWISE BE PROVIDED IN WRITING BY DEC, 

2k ’ 

22 y DEC ASSUMES NO RESPONSIBILITY FOR THE USE 

23 y OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT 

24 » WHICH IS NOT SUPPLIED BY DEC, 

es 

26 1 THE CONOITIONALS CONTAINED IN THIS MODULE AFFECT THE ASSEMBLY 

27 ) OF THE FUNCTION TABLE MOOULE "FTBL.MAC", 

28 y TO OBTAIN THE DESIRED CONDITIONAL DEFINITION(S), 

29 y REMOVE (USING AN EDITOR) THE 

30 1 SEMI@COLON APPEARING BEFORE THE CONDITIONAL, 

34 sSOTSKsO DEFINE FOR RT@i1 

32 eIFNOF SDISK 

33 280020 SSTRNGEQ #00 NOT DEFINE FOR PTS BASIC WITHOUT 

3a WSTRINGS,© DEFINED FOR PTS V@i WITH STRINGS 

35 sENOC ’ 

36 

37 900000 SLPSse OEFINE FOR LPS 

38 eIFOF SLPS 

39 sSV8O POEFINE FOR LPS WITH VECTORS STARTING 

ve ’ ’ AT 308, OEFAULT SETTING IS VECTORS AT 

a1 ’ ’ 3a@, SET SV = ANY OTHER DISPLACEMENT IF 

42 ’ ’ VECTORS START AT DISPLACEMENTS 

43 ’ ' OTHER THAN @ OR 49 FROM 

: ’ ’ VECTOR 309 

q' 

ao eeeees SaDCae yINCLUDE A/D ROUTINES, 

a7 880008 SCLKSO pINCLUDE CLOCK ROUTINES, 

48 800000 S$Ol0ea INCLUDE DIGITAL 10 ROUTINES | 

49 080008 SOISaa PINCLUDE DISPLAY ROUTINES, ty f 

se sENDC = SLPS A 

Si ' 

Se ’ 

53 egeaee SVT1i8@ HFOR GT4S (GTua) : y 6 

54 ’ yo? 
J 


$5 ’ ty 
56 
S7 


a 


PERPAR e= PERIPHERAL SUPPORT PA RT=11 MACRO VMG2909 1OeOCTe7G 81152829 PAGE 1+ 


58 eIFOF =6SVTI4 ; 
$9 @evee@ SCLOCKE@ yFOR SYSTEM CLOCK (CKWLIL) 
68 eENOC 
61 
62 eE0T 
ou »TITLE PTSINT © PTS INTERFACE MODULE FOR SUPPORT PACKAGES, 
65 ' 
66 y DEC#119LBPIAwAsLA BASIC KERNEL V@2981 
67 ’ 
68 y COPYRIGHT (C) 1974 
69 
78 ; DIGITAL EQUIPMENT CORPORATION 
bat 1 MAYNARD, MASSACHUSETTS 81754 
7. . 
5 ' THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO cs 
74 } CHANGE WITHOUT NOTICE ANO SHOULD NOT BE CONSTRUED 
75 } AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION, 
76 » DEC ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
17 } MAY APPEAR IN THIS DOCUMENT, 
8 
i ' THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A 
8a } LICENSE FOR USE .ON A SINGLE COMPUTER SYSTEM ANO 
6t } CAN BE COPIED (WITH INCLUSION OF DEC’S COPYRIGHT 
be 4 NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
83 } OTHERWISE BE PROVIDED IN WRITING BY DEC, 
64 , 
aS } DEC ASSUMES NO RESPONSIBILITY FOR THE USE 
86 } OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT 
87 } WHICH IS NOT SUPPLIED BY DEC, 
a6 U 
89 »GLOBL FTBL, BOMB 
98 oeeaae eASECT 
1 9009034 ,=3d 
92 oIFNOF SOISK BOMB VARIES IF ONE INCLUDES 
93 elFOF SSTRNG STRINGS 
94 10320 BOMBsa13320 sENTRY WITH STRINGS 
95 eENDC ySSTRNG IS DEFINED 
96 eIFNOF SSTRNG = yNO STRINGS 
97 BOMBEGO7742 PENTRY WITHOUT STRINGS 
98 eENOC ySSTRNG NOT DEFINED 
99 sENOC sSOISK : 
108 6834 810320 eWORD 60MB,2@ ySET UP THE TRAP ERROR VECTOR, 
3036 8290008 
101 002048 eASECT 
102 BeeG46 , 246 
183 8846 2800006 »wORD  FTBL 1THE FUNCTION TABLE STARTS HERE FOR PTS, 
104 sIFOF SLPS 
18S eIFOF SOIS 
106 +GLOBL DISPLY 
187 9858 200167 JMP DISPLY 
Q800086 
108 eENDC =, SOTS 
109 a ENOC ySLPs 
110 o0eae1* 2 END uy 


PTSINT == PTS INTERFACE MODULE RT@11 MACRO VMG2@09 LoeOCTo74 81552929 PAGE 1+ 
SYMBOL TABLE 


60mM6 « 
saoc ss 
SOIO « 
SSTRNGS 
. ABS, 


010320 G 
eeeoe0 
000000 
geeeee 
800054 
egee0e 





DISPLYS sanane 6 FTBL 8 aneene 6 
SCLK = 880000 SCLOCKs @a0000 
sors SLPS = gaacee 
SVT11 = gee 

008 

eet 


ERRORS DETECTED: @ 
FREE CORE: 18268, WORDS 


PYSINT,GTL,LPs@PERPAR,GTL,PTSINT 


ee te 
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C@OrveuNewune 


aed adhekadi leit 
Sane Neune-@ 


Nw te 
VEWNH @ 


VuUuUuUnnwnn 
We BORNE 


wun 
ous 


Ww 
g0o~ 


£ 
= 


eeeerceere 
DOYeNEWN 


vUNNMMNMMW 
NEUEUNRKS 


eeeone 


000000 
860008 
eoeaae 
eovaee 


b02008 


eTITLE PERPAR o= PERIPHERAL SUPPORT PACKAGE PARAMETER MODULE, 
DEC@1 LoL BPAAsASLA BASIC KERNEL V@2e01 
COPYRIGHT (C) 1974 


OIGITAL EQUIPMENT CORPORATION 
MAYNARO, MASSACHUSETTS 81754 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 
CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED 
AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION, 
DEC ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
MAY APPEAR IN THIS DOCUMENT, 


THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A 
LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND 
CAN BE COPIED (WITH INCLUSION OF DEC*S COPYRIGHT 
NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT 4S May 
OTMERWISE BE PROVIDED IN WRITING BY DEC, 


DEC ASSUMES NO RESPONSIBILITY FOR THE USE 
OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT 
WHICH IS NOT SUPPLIED BY DEC, 


we ee ewww www wn wun wine 


THE CONOITIONALS CONTAINED IN THIS MODULE AFFECT THE ASSEMBLY 
OF THE FUNCTION TABLE MOOULE "FTBL MAC", 

TO OBTAIN THE DESIRED CONDITIONAL OEFINITION(S), 
REMOVE (USING AN EDITOR) THE 

SEMI@COLON APPEARING BEFORE THE CONDITIONAL, 


SOI8SKs@ YOEFINE FOR RT@i4 
eIFNOF S$OISK 
SSTRNGRO 100 NOT DEFINE FOR PTS BASIC WITHOUT 
HSTRINGS,* DEFINED FOR PTS V@1 WITH STRINGS 
eENOC ’ 
SLPSs@ DEFINE FOR LPS 
eITFOF SLPS 
ySVa9 sOEFINE FOR LPS WITH VECTORS STARTING 
’ ’ AT 388, DEFAULT SETTING IS VECTORS AT 
1 ’ 34@, SET $V = ANY OTHER DISPLACEMENT IF 
’ ' VECTORS START AT DISPLACEMENTS 
’ ’ OTHER THAN @ OR 4B FROM 
, ’ VECTOR 3280 
S$A0CaQ INCLUDE A/D ROUTINES, 
SCLKaQ PINCLUDE CLOCK ROUTINES, 
SOTOs@ PINCLUOE DIGITAL IO ROUTINES 
SOISsa INCLUDE OISPLAY ROUTINES, 
a ENOC rSLPS 
VTLise dFOR GTU@ (GT4a) 


~~ wee 


ee 


PERPAR e@ PERIPHERAL SUPPORT PA RT@it MACRO VM@2"09 LoeOCTo7G B19S3sG2 PAGE 1+ 


sa atFOF © SVTL4 
59 080008 SCLOCKse sFOR SYSTEM CLOCK (CKMI1L) 
68 eENOC 
ot 
62 £0T 
te eTITLE FTBLe@BASIC FUNCTION TABLE MOOULE 
6 
ee , DEC@L IL BFTAsAeLA BASIC KERNEL VO2001 
6 ’ 
68 y COPYRIGHT (C) 1973,1974 
69 ’ 
78 y DIGITAL EQUIPMENT CORPORATION 
a 1 MAYNARD, MASSACHUSETTS 81754 
U 
13 1 THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 
14 s CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED 
7S 1 AS & COMMITMENT BY OIGITAL EQUIPMENT CORPORATION, 
76 1 DEC ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
Las » MAY APPEAR IN THIS DOCUMENT, 
8 ’ 
79 9 THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A 
8e ) LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND 
81 9 CAN BE COPIED (WITH INCLUSION OF DEC*’S COPYRIGHT 
82 » NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
83 y OTHERWISE BE PROVIDED IN WRITING BY DEC, 
6a , 
8s 1 DEC ASSUMES NO RESPONSIBILITY POR THE USE 
86 y OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT 
87 7 WHICH IS NOT SUPPLIED BY DEC, 
86 
89 
.T . oGLOBL FTBL 
1 
92 ’ MUST INTERFACE PROPERLY WHEN LPS IS ALSO USED 
93 ’ 
9a 
95 
9 e8eeee" eCSECT 
97 99000 FTBLs 
98 eIFORP SVT11 16T40 
99 eGLOBL AGET,APNT, APUT,CONT, ERAS, ESUB, FPUT 
108 eGLOBL FIGR,FPUT,INIT,LPEN,ROOT 
101 eGLOBL SCAL,STAT,OSTP, SUBP, TEXT, TRAK 
102 eGLOBL VECT,XGRA, YGRA,FIX, FREE 
183 eGLOBL NOSC,ON, OFF, SAVE 
104 eITFOP = S0TSK 
185 eGLOBL RSTR 
186 ENOC sS0ISK 
187 oTFOF SCLOCK 
108 eGLOBL TIME, TIMR 
109 eENOC 1SCLOCK 
110 
111 8000 123 eASCIT /SCAL/ ‘ 
2801 103 : 
2002 184 
2003 114 5 
112 8084 @20008G sWORO SCAL 





FTBLe=BASIC FUNCTION TABLE MODU RT#11 MACRO VMG2909 1o00CT=74 811953102 PAGE t+ 


113 9206 © 126 sASCII /VECT/ 
e007 185 
gaia = 103 
ae11 stad 
114 012 eeogdes .WORO VEC 
115 gata 422 sASCII /ROOT/ 
0015 tad 
eeie = 417 
e017) yaa 
116 9820 eeeeses +WORO —-ROOT 
117 @@22— 4.01 SASCII  /APNT/ 
ea23 128 
go24 116 
gez5 4.24 
118 g@26 aeegaas .WORD = APNT 
119 SIFOF © SCLOCK 
120 g@3@0— 124 CASCIL «/TIME/ 
oes atl 
oe32 115 
2033105 
121 2034 ageeees «WORD TIME 
122 2036 © 12u SASCIZ «/TIMR/ 
ao37, itt 
aeua 115 
eau. tae 
123 a2 eavaces .wORD = TIMR 
124 sENDC —- SCLOCK 
125 994g = 4.23 VASCIE /STAT/ 
@e45 124 
3a4e tat 
aou7 Ss 324 
126 9850 aevavec .WORD STAT 
127 9@52. 124 SASCIL /TEXT/ 
@a53 105 
oosa 130 
goss 124 
126 aa56 eacoeas ewORD TEXT 
129 806a 123 SASCII /SUBP/ 
aeo1 = 125 
aae2 = 12 
aves 120 
138 8064 ae0gaec «NORD —-SUBP 
131 @@66 = 405 VASCIT /ESUB/ 
oae?7 123 
oa70— 425 
ae71 sta 
132 9872 evogedc swoRD = ESUB 
133 0074 114 sASCII /LPENS 
ao7S— 128 
e076 = 105 ae 
0077s 116 ; 
134 @1¢@ eevacas sWORD —LPEN Pe ae 
135 e102 © 116 tASCIZ /NOSC/ 
e1e3) 417 
e1ed = 123 
e105 «303 


136 @186 2000086 WORD Nosc 4 « 


FTBLe@BASIC FUNCTION TABLE MODU 


137 


138 
139 
140 


141 
142 
143 


144 
145 
1460 


147 
148 


149 
15se 


151 
152 


1S3 
154 


155 
156 


157 
1S8 


159 
168 


161 
162 


0118 
eins 
O12 
113 
114 
116 
117 
0120 
e122 
e1e4 
ores 
0126 
8127 
136 
e132 
0133 
134 
0135 
e136 
e146 
O14) 
e142 
8143 
e14aa 
B146 
107 
9150 
O15! 
e152 
0154 
e155 
6156 
e157 
@168 
162 
C163 
8164 
0165 
0166 
170 
e171 
172 
@173 
e174 
@176 
O177 
e200 
201 
e202 
s2a4 
e205 
8206 
0207 
0210 
Be12 
213 
G2i4 


106 
117 
116 
638 
0000006 
117 
116 
eeeece 
2800086 
wi7 
186 
106 
000 
eeceoes 
124 
122 
121 
113 
8088806 
105 
122 
104 
123 
2080806 
iti 
ite 
14t 
124 
C8000RG 
104 
123 
124 
128 
2800006 
123 
126 
W407 
128 
8880086 
104 
183 
116 
126 
8000006 
103 
117 
116 
124 
oeeeees 
138 
107 
122 
101 
26808086 
431 
107 
122 


ASCII 


BYTE 
eNORO 
eASCIY 


WORD 
WORD 
ASCII 


BYTE 
eNORD 
ASCII 


WORD 
eASCIT 


2WORD 
eASCIE 


WORD 
ASCII 


«WORD 
ASCII 


WORD 
ASCII 


2WORO 
eASCII 


«WORD 
oASCII 


eWORD 
eASCIT 


RT=11 MACRO VNG29089 


/O0N/ 


@ 
ON 
/ON/ 


@ 
ON 
OFFS 


@ 
OFF 
STRAK/S 


TRAK 
ZERAS/ 


ERAS 
JINIT/ 


INIT 
/O08TP/ 


OSTP 
/STOP/ 


oste 
/DCNT/ 


CONT 
/CONT/ 


CONT 
/XGRA/ 


XGRA 
JYGRA/ 


9 SECOND NAME 


SECOND NAME 


SECOND NAME 
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163 
164 


165 
166 


167 
166 


169 
178 
71 


172 


174 
175 


176 
177 


16@ 
181 


162 
183 
164 
185 
186 
187 
186 
189 
198 
191 
$92 


0215 
@216 
be20 
@221 
be22 
0223 
e224 
226 
0227 
0238 
e231 
e232 
0234 
0235 
0236 
0237 
@24g 
e242 
6243 
@2ua 
@eus 
B246 
0250 
e251 
e252 
0253 
@254 
0256 
6257 
0268 
@261 
®262 
B200 
0265 
R206 
@267 
8270 
be72 
0273 
e274 
8275 
@276 
0300 
@301 
6302 
8303 
0304 


101 
@avue0G 
101 
107 
105 
124 
2000006 
194 
106 
ait 
138 
0408006 
106 
att 
138 
800 
0000086 
106 
122 
105 
105 
28000086 
181 
120 
125 
124 
0800006 
196 
at 
107 
122 
e@eveeG 
106 
128 
125 
124 
0602006 
104 
123 
101 
126 
2880006 
123 
181 
126 
185 
0820086 


eHORD 
eASCII 


eo WORD 
eASCIT 


+WORD 
ASCII 


BYTE 
«WORD 
ASCII 


WORD 
eASCIT 


«ORO 
ASCII 


eNOROD 
eASCIT 


«WORD 
ASCII 


WORD 
ASCII 


ehORD 
oIFOF 
eASCII 
WORD 
ENOC 
eENOC 


YGRA 
SAGET/ 


AGET 
SOF IX/ 


FIX 
JFIX, 


FIX 
/FREE/ 


FREE 
SAPUT/ 


APUT 
/FIGRS 


FIGR 
/FPUT/ 


FPUT 
708Av/ 


SAVE 
/SAVE/ 


SAVE 
S$O1SK 
/RSTRS 
RSTR 
pSDISK 
sSVTSL 


alFOF SLPS 


SECOND NAME 


HSECOND NAME 


aw 
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b 
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193 

198 eGLOBL USE,ROB, ACC 

195 ’ 

196 eIFOF S$a0C 

197 »GLOBL ADC,RTS,LED 

198 eENDC =p SADE 

199 ! 

200 aTFOF SCLK 

201 eGLOBL SETR,SETC,HIST,WAIT 

282 e ENDS sSCLK 

203 ’ 

204 »IFOF SOI0 

205 sGLOBL DIR,DOR,ORS 

206 eGLOBL REL 

207 sENOC sS$010 

208 ’ 

209 oIFOF S$OIS 

216 eGLOBL CLRO,PUTO,OIS,FSH,OXY,OISPLY 

2u1 eENDC 78038 

212 

213 

214 

215 8306 eS eASCII /USE/ 
8387 123 
0310 105 

216 O31 goe BYTE 8 

a @312 seegoes WORD = USE 

18 ’ 

219 0314 122 eASCII /ROBS 
e315 184 
8316 102 

228 8317 oe0 o BYTE @ 

221 0320 eeeogas WORD ROB - 

222 ! 

223 0322 184 eASCII /ACC/ 
e323 183 
e324 103 

224 8325 200 BYTE @ 

225 0326 0800006 eWORD = ACC 

226 , 

227 , 

228 ' 

229 eIFDF = sac 

238 ' 

231 8330 10% eASCIT = /A0C/ 
O331 184 
0332 103 

232 8333 00 BYTE t] 

233 8334 soeeees eWORD = ADE. 

234 ! 

235 8336 122 eASCII /RTS/ - 
0337 = 424 vf 
e340 123 

236 O341 808 eBYTE @ 

237 0342 oeeeaeG eWORD = =-RTS 

238 ’ 

239 @344 414 eASCIT /LEO/ ah ; , 


rar traverse i in he 
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O345 105 
0346 1040 
248 0347 800 BYTE @ 
241 8358 20000086 2WORD LED 
242 , 
243 eENOC 9$A0C 
244 ! 
245 ’ 
246 , 
24u7 eIFOF S$CLK 
248 ’ 
249 8352 123 ASCII /SETR/ 
@353 125 
@354 124 
@355 122 
2528 3356 2000006 WORD SETR 
251 ’ 
252 0368 123 eASCII /SETCS 
@361 185 
@362 124 
0363 103 
253 8364 2000086 a WORD setc 
25a ’ 
255 0366 118 eASCII /HIST/ 
6367 vit 
8370 123 
e371 124 
256 0372 8020006 WORD HIST 
es7 , 
258 @374 127 eASCII /WAITS 
@375 101 
@376 iit 
O377 124 
259 8408 2000006 WORD WAIT 
268 ’ 
261 eENDC 7 SCLK 
262 ' 
263 
264 ’ 
265 el FOF S010 
266 , 
267 8482 194 eASCIT /OIR/ 
0483 ii 
o4ues 122 
268 B485 one BYTE @ 
269 8486 9800006 40RD OIR 
278 ’ 
271 8418 104 sASCIIT /DOR/ 
Oui4 117 
e412 122 
272 8413 = ga8 .BYTE ee is 
273 e414 oovgaas {WORD DOR A (- 
274 ! 
275 e416 108 eASCIT /ORS/ 4 
Q647 122 
8420 123 


276 8421 eae BYTE t) 
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277 622 6800006 WORD ORS 
278 ’ 
279 g42a 122 ASCII /REL/ 
e425 105 
8426 114 
260 o427 8e8 eBYTE ‘J 
261 0438 9000006 eWORD = =REL 
262 ’ 
283 eENDC 98010 
2646 , 
265 ’ 
286 ' : 
267 eIFOF 8 §=6s038 
288 ’ 
269 9432 103 ASCII = /CLRO/ 
0433 114 
ou34 122 
0435 104 
Hy 0836 0800086 «WORD =CLAD 
91 , 
292 9046 128 ASCII /PUTO/ 
eae, 125 
e442 124 
0443 106 ‘ 
293 3004 8000086 eo WORD PUTO 
294 ’ 
295 9446 104 sASCII = /0T8/ 
eau7 aaa 
2ase 123 
296 O45) 300 sBYTE @ 
ete 8452 8geeaeG eWORO OTS 
98 ’ 
299 9asa 106 sASCII /FSH/ 
uss 123 
@4S6 148 
300 2457 900 BYTE @ 
301 8468 go0ee8G oWORO FSH 
382 ’ 
393 8462 104 eASCII /OXY/ 
0463 138 
8464 138 
304 9465 ee «BYTE @ 
305 @466 gegeceG 2 WORD Oxy 
306 ’ 
307 eENOC 18018 
308 eENDC ySLPS 
309 6479 900008 24ORD = @ yEND OF THE BASIC FUNCTION TABLE, 
318 @00001" ENO 
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SYMBOL TABLE 





acc Bw areaee G aoc @ teeeee G AGET 8 euenen G 
APNT 8 Gaeeee G AaPUT 8 6 CLRO 8 aeanne G 
CONT 2 seaneee G OIR 8 6 ors & aeeeee G 
DISPLYs saneee G oor a 6 ors a aaaner G 
DSTP = xaneee G Oxy B eeneen G ERAS 8 aeenne G 
ESUB 8 anenae G FIGR & #ennen G FIX S aanene G 
FRPUT = seanee G FREE & eeanne G FSH a eeanee G 
FTBL @BeGBeRG HIST 8 sewene G INIT @ saeeee G 
LED B tenene G LPEN 8 sanane G NOSC © aeeeee G 
OFF B teeeen G ON BS eewnen G PUTD @ aenmen G 
ROB SB anneen G ROOT 8 aueene G REL SB eeannn G 
RTS B eerene G SAVE & teaene G SCAL = tuanne G 
SETC = seanan G SETR = sannen G STAT 8 snawen G 
SUBP = rennne G TEXT 8 wanene G TIME © xawene G 
TIMR 2 weenee G TRAK © teawene G USE BS aewnnn G 
VECT «8 saenae G WAIT B watane G XGRA = naeene G 
YGRA 2 sanwae G SA0C # 000000 SCLK = 800000 
SCLOCKs 800000 SOIO = s 900080 SOIS = 000000 
SLPS = 980000 SSTRNGs 000000 SVTi1 = 800000 

» ABS, 9200000 eee 

20a472 oat 


ERRORS OETECTED: @ 
FREE CORES 16061, WORDS 


FYBL.GTL,»LPSePERPAR,GTL,FTBL 


LPse 


COseouUevNne 


LPS8o 


OeneuseuUNeE 


VO199} 


VO1991 
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eTITLE LPS Volees 
yeSBTTL LPS MAIN KERNEL MODULE #@ 


DECHL LoL BEXAeBeLAL BASIC KERNEL VG2=01 
COPYRIGHT (C) 1973,1974 


DIGITAL EQUIPMENT CORPORATION 
MAYNARD, MASSACHUSETTS 91754 


, 

s 

s 

5 

U 

' 

' 

, 

y THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 

3 CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED 
y AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION, 
» DEC ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
9 MAY APPEAR IN THIS DOCUMENT, 

' 

§ THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A 

) LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM ANO 

» CAN BE COPIED (WITH INCLUSION OF DEC’S COPYRIGHT 
s NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
» OTHERWISE BE PROVIDED IN WRITING BY DEC, 

’ 
' 
’ 
’ 
U 
U 
uy 


DEC ASSUMES NO RESPONSIBILITY FOR THE USE 
OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT 
WHICH IS NOT SUPPLIEO BY DEC, 


WRITTEN BYs RICK HULLY PEB., 1973 
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THE FOLLOWING COMMON SUPPORT ROUTINES EXIST IN THIS MODULES 
! 


POLENT © ENTER POISH MODE OPERATION 

CKCMGN = POLISH ROUTINE TO CHECK NEXT TOKEN EQEAL TO 
+COMMA AND THEN FETCH THE NEXT FLOATING 
POINT NUMERIC FROM THE INPUT STRING, 

GETNUM © POLISH ROUTINE TO FETCH A FLOATING POINT 
NUMERIC FROM INPUT STRING, 

SAVREG © POLISH ROUTINE TO SAVE RO, R2 AND R3 
ON THE STACK, 

SAVFAC © POLISH ROUTINE TO SAVE THE FAC ON THE 
STACK, 

SAVINT = POLISH ROUTINE TO SAVE ONLY THE INTEGER 
PORTION OF THE FAC ON THE STACK, 

RESREG = POLISH ROUTINE TO RESTORE R3, R2 AND 
RO FROM THE STACK, 

INTST © POLISH ROUTINE TO INTEGERIZE PAC AND CHECK 
ITS RANGE AGAINST A GIVEN VALUE, 

FLOAT © ROUTINE TO FLOAT A 16 BIT UNSIGNED INTEGER 
ENTERP = ROUTINE TO ENTER POLISH MODE FOR ONE ROUTINE 
ONLY AND THEN EXIT BACK TO CALLER, 

BUFRES = POLISH ROUTINE TO RESET BUFFER POINTERS TO A 
CIRCULAR BUFFER, 

GETV © POLISH ROUTINE TO CALCULATE ADDRESS OF 
VARIABLE SPECIFIED IN THE INPUT LINE, 

GETBUF = POLISH ROUTINE TO FETCH NEXT VARIABLE FROM 
INPUT LINE, TEST FOR AN ARRAY NAME ANO 
CALCULATE THE POSITION IN THE ARRAY FROM 
SUBSCRIPTS WHICH MAY BE GIVEN, 

CKBUF = POLISH ROUTINE TO CHECK IF ARRAY ADDRESS 
SPECIFIED IN VARSAY(RS) HAS BEEN DEFINED BY 
A "USE" COMMAND, 

GETDAT = ROUTINE TO FETCH DATA INTO USER’S BUFFER 
AND TEST FOR NON@EXISTANT DATA, 

STODAT © ROUTINE TO STORE DATA INTO USER*S BUFFER 
ANO TEST FOR DATA OVERRUN, 

GETADD = ROUTINE TO CALCULATE ARRAY ADDRESS FROM 
ARRAY NAME GIVEN BY CALLER, 

CKLPAR = POLISH ROUTINE TO CHECK NEXT TOKEN 
EQUAL TO 4 LEFT PARENS, A TEST 
IS THEN MADE TO INSURE THAT WE STILL HAVE 
ROOM LEFT TO WORK WITH, 

CKCOMA = POLISH ROUTINE TO CHECK NEXT TOKEN 
EQUAL TO A .COMMA, 

STORXT = COMMON EXIT ROUTINE TO STORE FAC IN VARIABLE 
SET UP _IN VARSAV(RS), CHECK LAST TOKEN EQUAL 
TO A RIGHT PARENS (ALTERNATE ENTRY POINT @ 
NAMED CKRPAR), AND RETURN TO THE BASIC 
INTERPRETER, 

CKRPAR © ROUTINE TO CHECK LAST TOKEN EQUAL TO A 
RIGHT PARENS AND RETURN TO THE BASIC 
INTERPRETER, 

CONBCD = ROUTINE TO CONVERT BCD TO BINARY 


ee oe ee ornare nen ene ree er rr rey 


LPSse 


Keer eueune 


et oe 
NOUEUNe @ 


VO198) 
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~~ ewe 


eSBTTL PROGRAM GLOBALS 


GLOBALS REQUIRED FOR COMMUNICATION WITH THE BASIC 
INTREPRETER, 


oGLOBL 
2GLOBL 
2GLOBL 
eGLOBL 


+GLOBL 
2GLOBL 
2GLOBL 
«GLOBL 
oGLOBL 
oGLOBL 
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ERRPOL, ERRSYN, ERRARG 
EVAL, GETVAR, STOVAR 
INT, COMMA, »RPAR 
NUMSGN, gLPAR 


GLOBALS REQUIRED FOR COMMUNICATIONS WITH THE VARIOUS 
LPS HOOULES, 


TABLE, NARRAY, FLOAT 
POLENT, GETADD, GETNUM 
CKCMGN, INTST,GETV 
GETBUF ,REGSAV,ERNOR 
STORXT, CKRPAR, ERBUP 
CKCOMA,ENTERP, STODAT 
GETDAT,RTSON, ORSON 
SAVER2,SAVFAC,RESTR2 
RESTOR, HISTON, BCOON 
CONBCO, BUFRES, DRSNPT 
SAVINT, ORSBUF 


U 
1 GLOBALS REQUIRED FOR COMMAND PROCESSORS 


cn 


LPS@ VOlo@l 


L2enoueuwne 


at 


4e 


88000 
eeaae 
80004 
88086 
92010 
oeate 
aoe14 
90816 
20020 
geeee 
eoe24 
8eo26 
80030 
00032 
oeo34 
98036 
80040 
eeade 


ee00e0 
eeeee1 
ee00de 
000003 
800004 
088005 
080006 
000007 


177776 
200207 
000134 


eeeg22 
eeoees 
200026 
260040 
eeoeue 
000062 


280800 
900002 
280004 
880006 
890018 
eeaeie 


800005 


oeeese 
200008 
eeceee 
000008 
200000 
800000 
200000 
e0e8ag 
208008 
200008 
800088 
e0eg00 
80008 
9o0ge8 
080000 
900000 
200000 
804000 


eGLOBL USE,RDB,ACC 

' 

9 GLOBALS FOR DEVICE ADDRESSES 
eGLOBL LPSAD,LPSOR 
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U 

’ 

RO 
Ri 
Re 
R3 
RG 
RS 
gP 
pc 


U 

5 GENERA 
’ 

Ps 
RETURN 
POLRET 


’ 
$ BASIC 


! 
VARSAV 
S$SiSav 
SS2Sav 
FAC! 
Face 
3 


, 
} BUFFER DESCRIPTOR EQUATES 


’ 

BEG 
END 
Put 
GET 
Bad 
DEL 


, 
y BUFFER DESCRIPTOR TABLE 


U 
NARRAYSS 
TABLE! 
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sSOTTL REGISTER ASSIGNMENTS AND EQUATES 


L 


USER*S EQUATES 


«WORD 


WORD 


WORD 


xe 
Le} 
Ke 
x3 
xu 
xs 
%6 
x7 


EQUATES 


*2 
207 
134 


22 
ea 
26 
40 
42 
62 


8 
2 
a 
6 
18 
12 


878,058,058 


8,8,8,8,8,8 


yPS s PROCESSOR STATUS WORD 
207 = RTS PC 
g134 = SMP e@(RU)+ 


yVAR SAVE FOR ASSIGNMENT 
#$$1 SAVE FOR ASSIGNMENT 
1882 SAVE FOR ASSIGNMENT 
HIGH ORDER FLOATING VALUE 
LOW ORDER FLOATING VALUE 
SHORT TERM TEMPORARY 


yOFFSET TO BEGINNING OF BUFFER OINTER 
yOFFSET TO END OF BUFFER POINTER 
sOFFSET TO PUT DATA POINTER 

1OFFSET TO GET DATA POINTER 

yOFFSET TO BAD DATA FLAG 

yOFFSET TO OISPLAY DELTA X 


yCURRENT NUMBER OF ARRAY ENTRIES 
’ SET aT S, 
76 WORDS PER ENTRY 


LPSo 


a3 


aa 


4s 
46 
a7 
48 
a9 
3e 
$1 
52 
53 
Sa 
35 


eeB4u 
00006 
00050 
e052 
@easa 
88056 
80060 
88062 
80064 
88066 
80a79 
oea7e 


oeo74 
00075 
O8876 
00077 
0e180 


be182 


VOi9@1 


000008 
000008 
eeceae 
eeegee 
TTT 
eeeode 
8ev000 
000000 
800000 
200000 
800000 
CTT TT) 


200 
0008 
e280 
Bae 
982000 


LPS@ V@l=o1 


Pe en ee a 


e104 
8o104 


00110 
a0112 


@B116 
oa12e2 


e8126 
82130 
20134 
80136 
ae1de 
20146 
88150 


20152 
e154 


ao168ea 
B@1o2 


004767 
@81214 


eeor1i12e* 
912746 
000005 
012746 
280000" 
004767 
001878 


@11602 
@1652e 
88022 


wlesee 


@16S2e2 
eee022 
816522 
ogag2e 
aaSe22 
@e5e22 
@1e216 
0O5762 
177766 


001420 
@22702 
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eWORD =, BB, 8, 8,8 


ORD 8, 8,0,0,8,8 


’ 
3 NON@REENTRANT VARIABLES 


U 

RTSONS BYTE 
ORSON? ,BYTE 
MISTONS ,BYTE 
BCDON: ,BYTE 
ORSBUFs ,WORD 


gRTS OPERATION IN PROGRESS 

yORS OPERATION IN PROGRESS 
HHIST OPERATION IN PROGRESS 
sBCO/BINARY SWITCH 

yORS COMMAND (BUFFER DESCRIPTOR 
’ ADDRESS) 

HORS COMMAND (NBR OF POINTS) 


ORSNPT? ,WORD 
' 
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’ eSBTTL "USE" COMMAND PROCESSOR 
jPoooeeeeveeeocsosccocscsconecoosoeocooecooaeosoceecoosesoooes 
; "USE™ COMMAND PROCESSOR 

: BASIC FORMs CALL "USE" (BUF (,BUF2(y5000(+BUFN)))) 


, . 
y PURPOSE: DEFINE BUFFER AREAS FOR USE WITH THE RTS, HIST, 

’ ORS, ROB, CLAD, PUTD, DIS, FSH, AND OXY 

’ COMMANOS, THIS COMMANO DEFINES THE SPECIFIED 

’ ARRAYS, BUF, BUF2, ETCyeos AS CIRCULAR 

’ OATA ARRAYS, ANY NUMBER OF BUFFERS MAY BE 

’ SPECIFIED, BUT ALL MUST BE GIVEN IN A SINGLE 

’ "USE" STATEMENT, CURRENTLY THE SYSTEM WILL 

’ SUPPORT UP TO 5 OF THESE AREAS, HOWEVER, THIS 

’ MAY BE CHANGED AT ANY TIME BY REASSEMBLY, EACH 

’ BUF DEFINED MUST HAVE PREVIOUSLY BEEN DEFINED 

’ IN A _POIM*® STATEMENT, THE FOLLOWING FORM, HOWEVER, 
’ TS LEGALS 

, 10 DIM AC50),80180),C( 200) 

, 20 CALL "USE"(A,A(25),8,C) 

U 

u 


Se: yENTRY POINT TO PROCESSOR 
JSR PC,POLENT _ PENTRY POLISH MODE AND CHECK 
' FOR ENOUGH AREA TO WORK 
’ WITH AND THAT FIRST TOKEN 
’ IS INDEED A LEFT PARENS, 
202 yEXIT POLISH MODE 
MOV WNARRAY, © (SP) sENARRAY?S ALLOWED, 
MOV STABLE, @(SP) yWHERE DEFINITIONS WILL END UP 
USES! JSR PC,GETADO yGET ARRAY FROM INPUT LINE AND 
' CALCULATE ITS ARRAY ADDRESS, 
’ THEN CHECK TO MAKE SURE ITS 
’ WITHIN RANGE, 
USE2: MOV (SP) ,R2 ¥GET TABLE ADDRESS 
MOV VARSAV(R5),(R2)¢ SAVE BEGINNING ADDRESS OF 
’ ARRAY IN TABLE 
Mov R3,(R2)6 sSAVE ENDING ADDRESS OF ARRAY 
’ IN TABLE, 
Mov VARSAV(RS),(R2)¢ yRESET GET AND PUT POINTERS 
MOV VARSAV(RS), (R2)¢ 
CLR (R26 JCLEAR BAD DATA FLAG 
CLR (R2)¢+ JCLEAR DELTA X INCREMENT 
MOV R2, (SP) pSAVE CURRENT TABLE POSITION 
TST 212(R2) JWERE WE ZEROING THE REST OF 
' THE ARRAY? 
BEQ USES " SYESt CONTINUE ZEROING THEN 
CMP ATABLE S14, R2 WCHECK IF PREVIOUSLY DEFINED ARRAY 


me 


LPS@ Vet=e1 


—-— =~ —-. 


LPS® vei! 


Oaneuewne 


00166 


20178 


80176 
20200 


ee206 
80210 


aeei4 
O8216 


ea222 
ee226 


00230 
e232 


08236 


ee2de 
ee244 
@8246 
80258 


00254 


80256 
86256 


88262 


@8264 
A8266 
862708 
e272 
g0274 
@0276 


ee3ee2 
ee3a4 
90318 


000e14° 
01415 


@20262 
177782 
177766 
e01011 
@26262 
177758 
177768 


191005 


@16203 
177764 
005743 
10362 
177752 
085366 USEGs 
eeeede 
ee3e03 


O22626 
000167 
001130 


322127 USELs 
00eea8G 
001727 
005303 
eesea3 
005065 
Beeo22 
200724 


cmp 


BNE 
CMP 


BHI 
MOV 


1st 
MOV 


oEec 
aGT 


cup 
ome 


cMPB 
BEQ 
oEC 
CLR 
CLR 


eSBTTL 
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USES ’ WAS FROM SAME DIMENSIONED 
’ ARRAY, SST ENTRY IS NOT 
’ CHECKED, 

#26(R2),°12(R2) 


USEG PARRAYS NOT SAME, CHECK IF THE 
@38(R2),e14(R2) 3 LARGER ONE IS THE PREVIOUS 


’ ONE 
USEG vYESe FORGET TT THEN, USER MUST 

’ WANT TO OVERAY HIS DATA AREAS, 
@14(0R2),R3 pDEFINE PREVIOUS ARRAY*S END ADORESS 
=(R3) ’ TO BE 2 LESS THAN THE START 
R3,=26(R2) ’ OF THE NEW ARRAY, 
2¢sP) sANY MORE SPACE AVAILABLE? 
USES rYE8s CHECK NEXT TOKEN FOR & 

’ 2COMMA OR RIGHT PARENS, 
CSP), (SP) 4 HCLEAN UP STACK 
CKRPAR PALL DONE, CHECK FOR RIGHT 


’ PARENS ANO RETURN TO 
’ THE BASIC INTREPRETER, 
(RI) o,# COMMA sNEXT TOKEN A ,COMMAT? 


USES sYESt GET NEXT ARRAY NAME 

Rt BACK UP TO UNCLASSIFIED TOKEN 
R3 CLEAR REST OF TABLE 
VARSAV(RS) 

USE2 
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®ROB" COMMAND PROCESSOR 


U 
1PCOOOOP ODODE OOOOOEODOEREOOO OOOO OOO OROO OOOO OOOO ROOD EEOC OO OOO® 


BASIC FORMS 


5 

, 

U 

4 

U 

y PURPOSES 

, 

, 

' 

i 

U 

’ 

’ 

U 

U 

U 

Uy 

U 

, 

’ 

’ 

U 

, 

’ 

, 

’ 

i] 

s 

U 

U 

, 

U 

U 

ROB? 
@04767 JSR 
B@1nde 
0ee702" +GETBUF 
@20366° +SAVER2 
001352° +CKCOMA 
880656" oGETV 
e0a274° #2 
012602 “OV 
004767 JSR 
200454 
1034e2 Bcs 
OG4767 JSR 
e002346 
000167 ROBIs sme 


"RDB" COMMAND PROCESSOR 


CALL *®RDB*" (BUF, VAR) 


RETURN THE NEXT DATA POINT FROM THE SPECIFIED 


BUFFER, RETURNS VALUES OF 65535 >= VAR >s 2 
FOR GOOD DATA, BAD DATA (DEFINED AS OVERRUN) 
TS RETURNED AS OUTSIDE THE SPECIFIED RANGE 
(VIZ, NEG, FLOATING POINT MINUS ONE), IF NO 
DATA EXISTS YET, Ie€e, IT?S WAITING FOR A NEW 
SAMPLE, A FLOATING POINT MINUS TWO WILL BE 
RETURNED, 


WHEN THE REFERENCED BUFFER REFERS TO 
ANALOG SAMPLING (RTS FUNCTION), THE VALUES 
RETURNED ARE IN THE RANGE 4895 >= VAR >= Gy 


WHEN THE REFERENCED BUFFER REFERS TO A CLOCKED 
HISTOGRAM SAMPLING (HIST FUNCTION), THE VALUES 
RETURNED ARE IN THE RANGE 65535 >3 VAR >= 2, 
THESE VALUES ARE EITHER THE NUMBER OF TICKS 
ACCUMULATED OR THE NUMBER REMAINING DEPENDING 
ON THE CURRENT CLOCK MODE, 


WHEN THE REFERENCED BUFFER REFERS TO A DIGITAL 
170 OPERATION (ORS FUNCTION), A VALUE BETWEEN 
65535 >= VAR ># @ JS RETURNED FROM THE NEXT 
POSITION IN THE SPECIFIED BUFFER, 


IN ALL CASES, A FLOATING POINT MINUS ONE 
IS RETURNED WHEN THE BUFFER IS OVERRUN, 


sENTRY POINT TO PROCESSOR 
PC,POLENT pENTER POLISH MODE AND CHECK 


’ FOR ENOUGH AREA TO WORK 

’ WITH AND THAT FIRST TOKEN 

' 18 INDEED A LEFT PARENS, 

#GET BUFFER ADDRESS FROM COMMAND STRING 
, AND CHECK IT AGAINST THE 

’ DEFINITION TABLE, 

SAVE DESCRIPTOR ADDRESS ON STACK 
yCHECK NEXT TOKEN EQUAL TO A COMMA 

1GET VARIABLE ADDRESS, 

yEXIT POLISH MODE 


(SP)+,R2 RESTORE DESCRIPTOR ADORESS 
PC,GETOAT sGET DATA FROM ARRAY SPECIFIED BY Re 
ROBL CS MEANS R3 1S RETURNING AN 

’ ERROR CONDITION, 
PC, FLOAT VFLOAT THE 16 BIT UNSIGNED INTEGER 


STORXT PSAVE FAC IN PREVIOUSLY OPENED 


ae ee 


LPSo 


5s 
So 
$7 


V@19@1 


001040 


LPS@ VvO1901 


COrnoueune 


80314 


oa314 


e320 


e322 
bas24 
@8326 


88334 


004767 
001006 


000702" 


8006040" 
860326" 
@12762 
000400 
200018 


000137 
001366" 
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VARIABLE, CHECK FOR ")", AND 
RETURN TO THE BASIC INTERPRETER, 


a 
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’ eSBTTL "ACC*® COMMANDO PROCESSOR 


, 
SOOPOEOOOOOOOOOOO OOO RS OOOO OOOO OOOH OOEHOOOO OOOO OOOO OEEO SOROS 


"ACC® COMMAND PROCESSOR 


ewe we we we we we we ee 


ccs 
JSR PC,/POLENT 
*GETBUF 
*BUFRES 
o¢2 
MoV #488,BA0(R2) 
SMP @aCKRPAR 


BASIC FORM: CALL "ACC" (BUF) 


PURPOSE: ACCESS ENTIRE BUFFER "BUF", THIS COMMAND RESETS 
ALL BUFFER POINTERS TO ALLOW FULL ACCESS TO 
THE ARRAY VIA THE "ROB" COMMANO, THE "PUTO" 
POINTER IS PLACED AT THE END OF THE ARRAY AND 
THE "ROB" POINTER IS PLACED AT THE BEGINNING, 


SENTRY POINT TO PROCESSOR 
VENTER POLISH MODE ANO CHECK 


, 
’ 
U 


FOR ENOUGH AREA TO WORK 
WITH AND THAT FIRST TOKEN 
IS INDEED A LEFT PARENS, 


9GET BUFFER ADDRESS FROM COMMAND 


AND CHECK IT AGAINST THE 
DEFINITION TABLE, 


PRESET BUFFER POINTERS 
LEAVE POLISH MODE 
SET BAD ID INOICATING NEXT PUT 


BEFORE ANOTHER GET WILL CAUSE 
OVERLAY OF GOOD DATA, 


MAKE SURE LAST TOKEN IS A ")" AND 


’ 


RETURN TO THE BASIC 
INTERPRETER, 


LPS@ Vel9@1 


Oerneusune 


80340 
20340 


easa4 
00346 


e352 
00352 


80356 
e360 


80302 


RTo1t MACRO VMG2089 LoeOCTo7G Bi8S6st2 PAGE 8 


’ sSBTTL CKCMGN AND GETNUM 
’ 
1000O000000000000000000000000000000000 0000000000 00008 000000000 


POLISH ROUTINE TO CHECK NEXT TOKEN EQUAL TO A ,COMMA 
AND THEN FETCH THE NEXT FLOATING POINT NUMERIC FROM INPUT 
STRING, 


ROUTINE IS CALLED IN POLISH MODE 


REGISTERS USED: EVAL USES R@, R2, AND RZ 
Ri IS BUMPED PAST VARIABLE 


U 
’ 
, 
U 
U 
’ 
, 
' 
’ 
’ RESULT IS RETURNED IN PAC 
' 

c 


KCMGNG 
122127 CMPB (R1) 6). COMMA CHECK NEXT TOKEN EQUAL TO 
BeeeeRG 

' A ,COMMA, 

ee14e2 BEO GETNUM YESs GET NUMERIC NOW 
080137 JMP @MERRSYN sSYNTAX ERROR 
88G08G 

’ 

JOOOOOOOOOOOOOHOO OOO OOOO OOO OOOO OOOO SOOEO OOO OOOOEOOOSOR OOOO 

U 

» POLISH ROUTINE TO FETCH A FLOATING POINT NUMERIC FROM 

y INPUT STRING, 

U 

y ROUTINE I8 CALLED IN POLISH MODE 

’ 

y REGISTERS USEDs EVAL USES RQ, R2, AND R3 

’ Ri IS BUMPED PAST VARIABLE 

’ RESULT IS RETURNED IN FAC 

’ 

GETNUM) 
004737 JSR PC, OMEVAL GET NUMERIC 
0880006 
193001 Bcs ERARG PILLEGAL ARG TYPE 
000134 POLRET gRETURN IN POLISH MODE 

U 
980137 ERARG: JMP OMERRARG ILLEGAL ARG TYPE 
2080006 


LPS@ vale 


= OONTUM EWN 


tee 
MONEUN=@ 


— 
2o 


88366 
00366 
00378 


00372 
80372 


00376 
88376 


ea4ee 
oe4eu 


eoued 
20486 


010246 
000134 


016546 
200048 


816546 
oeoede 
800134 


Q12682 
O80134 
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’ sSBTTL SAVE/RESTORE R2 AND FAC (SAVER2,SAVFAC, RESTR2) 
’ 
[OOCPCOORPO LO OOEOOOOOEEEDOREEOEDOO OECD OOD OOOOEEEOROOOOEOODOD 


POLISH ROUTINES TO SAVE/RESTORE REGISTER R2 OR 
THE FAC ON THE STACK, 


’ 
, 
' 
U 
y ALL ROUTINES ARE CALLED IN POLISH MODE 
5 
1 REGISTERS USED: ONLY THE STACK 

’ 

$ 


AVER2! 
MOV R2,0(SP) SAVE R2 ON THE STACK, 
POLRET RETURN IN POLISH MODE 
, 
SAVFACs 
MoV FACI(RS),9(SP) SAVE THE FAC ON THE STACK 
SAVINTS 
MoV FaC2(R5)¢=(SP) 
POLRET pRETURN IN POLISH MODE 
U 
RESTR2: 
MOV (8P)o,R2 RESTORE R2 FROM THE STACK 
POLRET gRETURN IN POLISH MODE 


Ne emamamenl 


LPS@ 


MOUBUNE 


8 g00418 
9 aeedia 


18 
it 


12 
13 
14 
1s 
16 


18 
19 
26 


e412 
Ge416 


0e422 
eo424 


80426 
20426 
00430 
80432 
eou3u 


VOt=0) 


818246 
016682 
edeede 
810066 
eeaode 
818346 
810207 


812603 
12002 
812608 
oeande 


LPS@ vValees 


COBY RUN eUNe 


eked adda’ 
UEWNM=@ 


- 
o 


ee 
2on~ 


20 
cay 
22 
23 


ea 


es 
26 


e7 
28 
29 


38 
3 
32 


33 
35 


36 
37 


38 
39 


20436 
20436 


eague 
O0446 


0845a 
eeus2 


28460 
30462 
@0470 


Oau74 


oese2 
88506 


20514 
@8516 


ees24 
20526 


00534 


80536 
esse 
20540 
eas4t 
@e542 
20543 


004737 
0800006 
005765 
Gova4ue 
100433 
OG1416 
026527 
800048 
644280 


103022 
156565 
000040 
eeoeue 
060365 
ea8o4e 
652765 
188000 
eeaede 
025065 
200048 
@26575 
e2e4e 
@eGa62 


101810 
862765 
@a0a82 
@esgee 


400134 
012765 
177777 
geeoue 
800762 


104400 
116 
117 
122 
eee 
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, eSBTTL INTERRUPT REGISTER SAVE/RESTORE ROUTINES 
, 
SOCOOCOR HOODEO ORE OOL OLED RODEO REED OC RRO RRO REO ORS ORR ORR ER EOOR 


' 
1 ROUTINES TO SAVE/RESTORE R@, R2 AND R3 ON STACK AND 
y RETURN TO INTERRUPTED PROGRAM, 


, 
REGSAVS 
MOV R2,0(SP) PUSH R2 ON STACK 
MOV 2(SP),R2 GET PC FROM CALL 
MOV RO, 2(SP) NOW PUT R@ THERE 
MOV R3,0(SP) SAVE RS 
MOV Ra,Pc RETURN TO CALLER 
’ 
RESTORS 
MOV (SP)4o,R3 RESTORE RI 
MOV (SP) o,R2 PRESTORE R2 
MOV (SP)o,RO RESTORE RO 
RTT PRETURN TO INTERRUPTED PROGRAM 
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’ eSOTTL INST 
’ 
FOOOHOOO OO OOS OOOO OOO OOOO OLOOOOOEHOOHO OOOO POO OOOO OOOO OOOO OOOOOD 


POLISH ROUTINE TO INTEGERIZE FAC AND CHECK ITS 
RANGE AGAINST A GIVEN VALUE, 


ROUTINE IS CALLED IN POLISH MODE 
REGISTERS USED: R@ ONLY 


T3CRS) MUST POINT TO RANGE ELEMENT 
(T3CRS) IS BUMPED BY 2 AFTER CALL] 


Hine ee eee 


NTST¢ : 
JSR PC, @WINT PINTEGERIZE RESULT 
TST FACS(RS) 
amr ERNOR NEGATIVE NUMBER IS ILLEGAL 
BEG ING ALREADY IN AN INTEGER FORM 
CMP FACI(RS),#44208 sTEST NUMBER OUT OF RANGE 
' (1,E, >65535), 
BHIS tN2 sYESt SEY EQUAL TO MAX (65535) 
8188 FACI(R5)/-FAC2(RS)» NUMBER MUST BE A 16 BIT INTEGER 
“swas Facecrs) ’ TO GET THIS FAR, CONVERT IT 
BIS B100008,FAC2C(RS) 3 TO ONE WORD THEN, 
IN3t CLR FACi(RS) 
ING? CMP FAC2(RS),@T3C(R5S) sNUMBER IS IN 16 BIT FORM 
’ NOW, MAKE SURE ITS IN RANGE, 
BHI ERNOR WNUMBER TO LARGE, "ARG ERROR" 
add #2,T3CRS) +BUMP TO NEXT RANGE FOR NEXT 
’ CALL, 
POLRET RETURN IN POLISH MODE 
N23 MOV #o1,FAC2(R5) SET OVERFLOW EQUAL TO MAX (65535), 
8R IN3 
y 
ERNORS 
TRAP a 


sASCII /NOR/ 


»BYTE @ 
' 


LPSO V@le9@i 


Coven sune 


a 
-e@ 


Paenkand 
wewn 


on oe eee 
eane 


NUN 
weuwne 


Ny Nh 
2 axe 


ww 
-@ 


9e54a 
2es4a 
00546 
60550 
eess2 


20556 
88500 


eeSe2 
08566 
ees72 
00574 
80576 
seceea 
eaea4 
@0006 
oee12 


88616 


905703 
180017 
810346 
842716 
190e¢e0 
105016 
000316 


Q62716 
e44g00 
012605 
e8ega0 
810346 
800316 
185e16 


812065 
8000K2 
000207 


eesees 
000048 
010365 
oeeoue 
200207 


LPS@ Ve@t9~o1 


COnoueWUnNe 


eee 
wo f£uneoe 


HB BD BBY WWE NT oe ee 
0 @ NM FNEWUN-COBANTNEWNHK BD 0S 


ee 
-e 


89628 
eeo28 


eo624 
20630 
00638 
00632 


20636 


80648 
00640 


20644 
266050 


206546 


080632° 
Bo2e716 
oeoade 
080207 


e11262 
600804 
811262 
000826 
eeSeee 
eeeate 
080134 
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’ eSOTTL FLOAT “i 


U 
LOCOOOCO OOOO OOOO OOO OOO OOO OE OOOO OOO OOO OOO OOO EEO RE EOE OEHOOROOOD 


’ 
y ROUTINE TO FLOAT A 16 SIT UNSIGNED INTEGER 


' 
y REGISTERS USED! 


R3 ON CALL MUST HAVE 16 BIT NUMBER 


' TO FLOAT, 
’ FAC HAS FLOATED RESULTED 
’ 
FLOATS 
RS 936 BIT NUMBER? 
BPL FLOATL yNOs NUMBER OK AS IS THEN 
MOV R3,0(8P) PUT NUMBER ON STACK 
arc #100000, (SP) VIGNORE MOST SIGNIF, BIT 
CLRBE (SP) CLEAR OUT LEAST SIGNIF, 
SwaB (SP) yNOW MOVE MOST SIGNIF, TO RIGHT 
’ BYTE 
400 #44880, (SP) 9400 IN EXPONENT 
Mov (SP)o,FACI(RS) ypSAVE MOST SIGNIF, AND EXPONENT 
MOV R3,0(8P) NOW WORK ON LEAST SIGNIF, 
Swas (SP) 
CLRB (SP) WCLEAR OUT THE REMAINING LEAST 
’ SIGNIF, 6 BITS, 
MOV (SP)o,FAC2(RS) sSAVE IN FAC NOW 
RETURN RETURN TO CALLER 
i] 
FLOATit CLR FACI(RS) PLEAVE AS INTEGER 
Mov R3,FAC2(RS) 
RETURN sRETURN TO CALLER, 


RTeit MACRO VMO2009 
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' 
1OCOCOOOHOOOOOOOOOO SOOO OO OOOO OO OOOOH OO OOOOOSEOEOOOOOOOOOOOOE 


' 
ys ROUTINE TO ENTER POLISH MODE FOR ONE ROUTINE AND THEN 
y EXIT BACK TO CALLER, 


y» CALLS 
’ JSR PC, ENTERP VENTER POLISH MODE 
’ eNORD ROUTINE sROUTINE TO ENTER 
’ NEXT INSTRUCTION PRETURN MADE HERE 
U 
ENTERPS 
MOV #RETURP,RG HSETUP POLISH RETURN PC 
MOV @(SP),PC sCALL ROUTINE IN POLISH MODE 
' 
RETURPS 
ot2 sEXIT POLISH MODE 
400 #2, CSP) BUMP PAST ARG 
RETURN RETURN TO CALLER 


' 
1OOOOOOOO OO OOOO OOOOH OOO OOOO OO OOOOOSOOOOOO OO OOOO OOOHEOORSOD 


' 
, 
‘ 
U 
5 
' 
U 
’ 
U 
' 
U 
U 
8 


A CIRCULAR BUFFER, 
A SAMPLING OPERATION OCCURS, 


POLISH ROUTINE TO RESET THE POINTERS (BOTH GET ANO PUT) OF 
EFFECTIVELY EMPTIES THE BUFFER BEFORE 


ROUTINE IS CALLED IN POLISH MODE 


R2 ON CALL MUST CONTAIN ADDRESS 
OF BUFFER IN DESCRIPTOR TABLE, 
NO REGISTERS (GENERAL PURPOSE) 
ARE ALTERED BY THE ROUTINE, 


UFRESs 
MOV (R2),PUTCR2) PRESET THE GET AND PUT POINTERS 
MOV (R2),GETCR2) 
CLR BAD(R2) #CLEAR OUT BAD DATA FLAG 
POLRET RETURN IN POLISH MODE 


U 
U 


LPSse 


Sean eM swine 


IAD oo oe oe ot oe mee ee te 
SBS Cer eVewn-@ 


noun 
we 


ANN NN 
ean erues 


vr 
-ea 


ot Utd tt 
COnouewn 


fe ef e685 
ow eu vee 


ee 
o~w 


LPS@ 


Wen ouNeuUne 


ai 
22 
23 
24 


2s 
26 
e7 
26 
29 


38 
31 


88656 
8@656 
08660 
eg662 
88664 
00666 
08678 


80674 
88676 


ee7e2 
ee702 


00706 


ee712 


Be714 
oe714 


20720 
e720 


00732 
OO734 
80736 
@0740 


@a74ua 
80746 
00750 
88750 
80752 
@8753 
@07S54 
00755 


V@t~-81 


s12102 
180406 
eea3e2 
1S21d2 
861502 
004737 
2evee06 
000134 


000137 
8808006 


004767 
800318 


026503 
eeeeee 


103016 


VOLeOs 


012702 
080005 
012746 
80800" 
027665 
020000 
eeeae2 
881002 
812602 
200134 
@62716 
beceis 
005302 
003366 


10440 
102 
125 
106 
080 


ere 
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' eSBTTL GETV AND GETBUF 
J OOo eeoeeovsseccorcoescoesoveccoeeeooecooesonecoceooeeoooees 


POLISH ROUTINE TO CALCULATE ADDRESS OF VARIABLE 
SPECIFIED IN THE INPUT LINE, 


ROUTINE IS CALLED IN POLISH MODE 


U 
’ 
U 
, 
s 
' 
y REGISTERS USEDs EVAL USES R@, R2, AND R3 
' Ri IS BUMPED PAST VARIABLE 
’ RESULT IS STORED IN VARSAV(RS) 
U 
GETV8 

MOVE (R1)o,R2 BUILD WORD OFFSET 

amt SYNER sTOKEN ILLEGAL HERE 

SwaB R2 

BIsB CRA) o RO 

40D (RS) ,R2 yR2 NOW POINTS TO SYMBOL TABLE ENTRY 

JSR PC, @uGETVAR yGET NAME AND SUBSCRIPTS SET UP 


POLRET PRETURN IN POLISH MODE 
5 
SYNERS JMP O#ERRSYN sSYNTAX ERROR 


' 
1OOCOOO OOOO EE OOOOOOOOOOR OO OOOH OOOOH OOOOO OOOO HOO OOOEO OOOO ROOD 


POLISH ROUTINE TO FETCH NEXT VARIABLE FROM INPUT LINE, 
TEST FOR AN ARRAY NAME AND CALCULATE THE POSITION 
IN THE ARRAY FROM SUBSCRIPTS WHICH MAY BE GIVEN, 


! 
’ 
' 
U 
’ r 
s ROUTINE IS CALLED IN POLISH MODE 

' 

y ON EXITs R@ POINTS TO ARRAY BASE ADDRESS 

’ R1 IS BUMPED PAST ARRAY NAME 

’ R2 POINTS TO SYMBOL TABLE ADDRESS 

’ R3 POINTS TO END OF ARRAY 

’ VARSAV(RS) POINTS TO ACTUAL ARRAY ADDRESS 
' 

y ROUTINE FALLS THROUGH TO CKBUF, 

U 
6 


ETBUFS 
JSR PC, GETADO CALCULATE ARRAY ADDRESS FROM 


’ ARRAY NAME POINTED TO BY Ri, 
cmp VARSAV(RS),R3 = sOETERMINE IF GIVEN SUBSCRIPTED 


, ARRAY I8 WITHIN BOUNDS OF 


’ DIMENSIONED ARRAY, 
BHIS ERBUF BUFFER ERROR 


RTwit MACRO VMO2909 1600CT#74 01956212 PAGE 15 


’ eSBTTL CKBUF 

‘ 

JOCOOOO DORE D> ELE O ERO O RESO ERROR SEBEL ODOR ERO ORS ERE H RESO O RROD 
POLISH ROUTINE TO CHECK IF ARRAY ADDRESS SPECIFIED 

IN VARSAV(RS) HAS BEEN DEFINED BY A "USE" COMMAND, IF SO, 
THE ENTRY ADDRESS IN THE TABLE IS RETURNED IN R2 AND THE 
ARRAY POINTERS INITIALIZED, 

ROUTINE IS CALLED IN POLISH MODE 

CALL IS MADE WITH STARTING ADDRESS OF ARRAY IN VARSAV(RS) 


REGISTERS USED: ON EXIT, R2 HAS TABLEZON] WUWHUVUSS 


’ 
’ 
’ 
’ 
’ 
’ 
’ 
' 
, 
U 
U 
, FOR THIS BUFFER, 
’ 

c 


KBUF? : 
MOV WNARRAY,R2 1SET UP TO SEARCH "USE" DEFINITION 
MOV #TABLE, (SP) ’ TABLE. 

ckas cme @(SP),VARSAV(RS) sMATCH? 
BNE cKt NOt LOOK AT NEXT ENTRY 
MOV (SP)6,R2 sRETURN ENTRY ADORESS IN R2 
POLRET yRETURN IN POLISH MODE 

CKis ado W14,(SP) yLOOK AT NEXT ENTRY 
OEC R2 ALL DONE? 
ect Cka NOt CONTINUE 

ERBUFS NOT FOUND! SUFFER ERROR 
TRAP ) 


ASCII /BUF/ 


BYTE J 





LPS@ vVeleo) 
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1 ’ eSBTTL GETOAT 

2 ’ 

3 TIT TD) 

4 ’ 

5 y ROUTINE TO TEST USER*®S BUFFER FOR DATA, ANO IF IT 

6 1 EXISTS, REMOVE IT AND RETURN IN R3, . 

1 ' 

8 + CALLE 

9 ’ Jse PC,GETOAT 

18 ’ 

a y REGISTERS USED: R2 MUST POINT TO SUFFER DESCRIPTOR 

12 ’ BLOCK ADORESS BEFORE CALL, 

43 ’ R3 WILL HAVE DATA ON RETURN, 

14 ' CARRY WILL BE SET IF AN ERROR OCCURED, 

is ’ IN THIS CASE, R3 AND THE FAC 

16 ’ WILL HAVE THE ERROR CODE, 

{7 ’ 

18 00756 GETDATS 

19 @0756 gee24) CLC #CLEAR CARRY BIT IN PS 

20 @0762 Gio7d6 MoV PS,=(9P) SAVE CURRENT PS ON STACK 
177776° 

21 80764 852767 ers #340,PS RAISE TO LEVEL 7 FOR PROTECTION 
200340 
177776° 

22 00772 905065 CLR PACicRrs) PALWAYS AN INTEGER RETURNED 
eeee4e 

23 88776 105762 rsTs BAD(R2) sCHECK TO SEE IF DATA OVERRUN 
200010 

24 ’ OCCURRED, 

25 81002 o01034 BNE GET! #YES¢ RETURN =1 AS VALUE OF DATA 

26 81004 B26262 CMP GET(R2),PUTC(R2) DOES DATA EXIST? 
080006 
ea0004 

27 81812 A81422 BEQ GETe PROBABLY NOT, BUT CHECK FOR FULL 

26 ’ BUFFER ANYWAY, 

29 81014 @e5ee2 GET@: CLR BAO(R2) yCLEAR BAD DATA FLAG IF SET 
200010 

30 @1028 B17203 MOV OGET(R2),R3 1GET DATA 
080006 

31 81024 962762 ado #2,GET(R2) sUPDATE POINTER 
eeeose 
800006 

32 81032 826262 cmp GETCR2),ENO(R2) yOID IT CAUSE A WRAP AROUND? 
888006 
eeeege 

33 81040 1014602 BLOS GETS yNO 

34 @1042 811262 MOV (R2),GET(R2) sWRAP POINTER AROUND 
eases 

35 01046 010365 GET3s MOV R3/FAC2(R5) pSAVE RESULT IN FAC AS AN INTEGER 
eeeade 

36 81852 012667 MoV (SP)o,PS RESTORE PS 
177776° 

37 81056 200207 RETURN RETURN TO CALLER 

36 ’ 

39 01060 105762 GET2: STB BADe1(R2) yI8 THERE REALY DATA HERE? 
eeee1s 

48 81064 001353 BNE GETO yYES: GO GET IT THEN 
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41 @1066 012703 Mov #=2,R3 pINDICATE NO DATA EXISTS YET 
377776 

42 01072 adeucs BR GETS 

43 01074 012703 GET1s MOV #o1,R3 PINOICATE DATA OVERRUN OCCURRED, 
177777 

44 81198 105062 CLRB BAD(R2) HCLEAR OUT BAD DATA FLAG 
eeeale 

4s ' $O NEXT FETCH WILL RESULT 

46 ’ IN GOOD DATA, 

47 81104 @85216 GET: TNC (SP) SET CARRY SHOWING FAILURE 

48 81106 080757 BR GET3 pRETURN 


ag 











LPse 


OOneNneune 


om 
° 


20 


21 
22 


23 
24 
25 
26 
27 
28 
29 
38 
31 
32 
33 
34 
35 
36 
37 


38 
39 


LPse 


won oMeune 


26 
e7 


28 
29 


38 


34 
32 


33 


34 


35 
36 
37 
38 
39 


81118 
G111e 


1114 


o1122 


01126 
81130 


1134 
O11400 
@1144 


B1146 
@1150 


ey1sa 
@1156 
1164 
01178 
O1174 
1200 
b1282 


1219 
Brer4 


81216 
1216 
1220 
1222 
a122e4 
1226 
01230 


o1234 
81236 
@124e 
B1244 
1246 
1254 
@1256 


@1262 
@12ou 


a1278 


@1274 
@1276 


81302 


81318 


1314 
81316 
81320 
01322 


V@toel 


016746 
177770° 
852767 
980340 
177776? 
105762 
008011 
e125 
BLb2d6 
eoeee4 
B62716 
aeeoee 
021662 
e00eae 
101403 
O1tete 
821662 
oeeea6 


ee1003 
152762 
880001 
eeeeit 
10372 
200004 
@12662 
eecees 
012667 
177776° 
000207 


e52762 
eooeet 
080010 
@16246 
eeoee4 
000763 


VO19@L 


112102 
100450 
800302 
152102 
861502 
e2e7le 
177776 
eeiede 
810246 
004737 
2000006 
12602 
@22765 
177777 
806026 
@819032 
916203 
eecene 
@10300 
019065 
eseo22 
085765 
oeages 
192405 
006365 
eeeo2u 
066565 
eooeed 
@e002e 
816246 
eeeoa4 
OBO316 
206316 
262603 
000207 
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’ eSBTTL STOOAT 
U 
IMPOOO COLO D OOOO ODEO ODEO FOROS ROOD ORO OO DORR O ROR OR DOR; OOOOO 
’ 
ROUTINE TO STORE DATA INTO USER’S BUFFER ANO TEST FOR 


, 
} DATA OVERFLOW, 
, 
y CALLE 
: JSR PC, STODAT 
’ 
} REGISTERS USED: R2 MUST HAVE BUFFER DESCRIPTOR BLOCK 
H "ADDRESS BEFORE CALL, 
i R3 MUST HAVE OATA TO INSERT BEFORE 
; ALL 
} R3 18 DESTROYED ON RETURN 
' 
STooaTs 
Mov P8,0($P) }SAVE CURRENT PS ON STACK 
ars #340,PS PRAISE TO LEVEL 7 FOR PROTECTION 
TSTB —- BAD#4.(R2) OVERRUN BIT SET? 
BNE NOROOM 1YES! SET OVERFLOW FLAG 
MoV PUT(R2),=(SP)  jUPOATE PUT POINTER 
400 #2, (SP) 
CMP (SP),ENO(R2) DID IT CAUSE A WRAP AROUNO? 
BLOS NOWRAP 1NO 
Mov (R2), (SP) yWRAP POINTER AROUND 
NOWRAP CHP (SP),GET(R2)  pWILL WE OVERRUN THE GET POINTER 
) NEXT TIME? 
BNE 87001 1NO 
QISB © #4,BAD41(R2)_—s4YESE REMEMBER THIS THEN 
stoi: Mov R3, ePUT(R2) ySAVE DATA 
Mov (9P)¢,PUT(R2) )SAVE NEW PUT POINTER ALSO 
mov (3P)4,/P8 sRESTORE PS 
RETURN RETURN TO CALLER 
: 
NOROOM! BIS #1,BaD¢R2) }REMEMBER THAT BAD DATA EXISTS 
nov PUT(R2),@(SP)  yDON*T UPDATE THE PUT POINTER 19 
ar 87001 RESTORE PS ANO RETURN TO CALLER 
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, eSBTTL GETADD 
U 
a tl te thd adhd dhd beh dd 


ROUTINE TO CALCULATE ARRAY ADORESS FROM ARRAY NAME 
POINTED TO BY Ri, 


’ 

s 

' 

: REGISTERS ON RETURNS RO POINTS TO ARRAY BASE ADORESS 

1 Ri IS UPDATED PAST ARRAY NAME 

’ R2 POINTS TO SYMBOL TABLE ENTRY 

’ R3 HAS ADDRESS OF END OF ARRAY 

’ VARSAV(RS) POINTS TO ENTRY TO ARRAY 
3 
6 


ETADOL 
Move (Ri) o)R2 }BUILD WORD OFFSET 
BMI SYNERR sTOKEN ILLEGAL HERE 
SWAB R2 
8188 (RL) oy R2 : 
ADD (RS) ,R2 yR2 NOW POINTS TO SYMBOL TABLE 
cmp #177776, (R2) WVARIABLE MUST BE AN ARRAY 
BNE SYNERR sSYNTAX ERROR IF NOT 
MOV R2,~(SP) ySAVE R2 TEMP 
JSR PC, ONGETVAR #GET NAME AND SUBSCRIPTS SET UP 
MOV (SP)o,R2 sRESTORE R2 
cup #et,SS2SAV(R5) SINGLY SUBSCRIPTED ARRAYS ONLY, 
BNE SYNERR 
MOV 2(R2),R3 jGET ADORESS OF ARRAY 
MOV R3,RO HCALCULATE EXACT ARRAY ADDRESS 
MOV RO,VARSAV(RS) 15 FROM GIVEN SUBSCRIPTS, 
TST SS1SAV(RS) 
BMI G1 yNO SUBSCRIPTS GIVEN, 
ASL SS1SAV(RS) sCONVERT SUBSCRIPT TO A WORD OFFSET 
400 SSISAV(RS),VARSAV(RS) ySUBSCRIPT PLUS ARRAY ADDRESS 
Git Mov 4(R2),=(8P) 1(+ & # BYTE SUBSCRIPTS) 
ASL (SP) 
ASL (8P) 
400 CSP) o,R3 
RETURN yRETURN TO CALLER 


pares 


“A SS. 
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: ' eSBTTL POLENT, CKLPAR AND CKCOMA 
, 
3 PPCOHOOO EOD OOOO C EO OREO ROR EERO ROLE R DOOR OREO RRC R SER E OCR ORDER OR 
4 ' 
$ » ENTER POLISH MODE OPERATION 
6 , 
7 1 REGISTERS USED: RG BECOMES THE POLISH PC, 
8 1 
9 g61326 POLENTS 
18 01324 012604 MOV (SP)o,Ra 1GET PC FROM CALLER ANO SETUP 
- ’ THE POLISH PC, 
’ 
% JOOOPCEOOOOO OOO OOD OOOOH OOOO SOO OOOOO OOOH OOOOH OOEOHEOEREEOEEOOE 
4 ’ 
1s + POLISH ROUTINE TO CHECK CHARACTER POINTED TO BY Ri EQUAL 
lo 9 TO A LEFT PARENS, & TEST IS THEN MADE TO INSURE 
‘7 » THAT WE STILL HAVE ROOM LEFT TO WORK WITH, 
18 ' 
19 y ROUTINE IS CALLED IN POLISH MODE 
20 ' 
rH § REGISTERS USED: Ri GETS BUMPED BY 1 
i] 
23 61326 CKLPARS 
24 81326 122127 CMPB (Ride, LPAR dPIRST CHAR MUST BE A LEFT 
8900006 
2s ’ PARENS, 
26 81332 001903 BNE SYNERR yNOt SYNTAX ERROR 
27 81334 820004 CMP SP,RG CHECK ROOM NOW 
26 01336 1034003 BLO ERPOL yOUT OF ROOM, TELL USER 
29 01340 880134 POLRET SRETURN IN POLISH MODE 
38 G1342 SYNERRs 
31 01342 000137 Phld OWERRSYN sSYNTAX ERROR 
2000006 
32 01346 ERPOLS 
33 81346 990137 MP @MERRPOL yOUT OF ROOM 
ii 9880886 
' 
He J OCOCOOROOOOOOO OOOO OOOOH OEOO OER OOO RO EERE ERO R ORO OOO RR ROO RSCCR 
U 
37 y POLISH ROUTINE TO CHECK CHARACTER POINTED TO BY Ri 
He 9 EQUAL TO A ,COMMA, 
’ 
4e y ROUTINE IS CALLED IN POLISH MODE 
ay ’ 
42 ) REGISTERS USED! Ri GETS BUMPED BY ONE, 
a3 ’ 
44 01352 CKCOMAS 
4S 01352 122127 cMPB CRid+,#,COMMA FIRST CHAR MUST BE A COMMA 
880008G 
46 01356 081371 BNE SYNERR NOs SYNTAX ERROR 
47 81360 000134 POLRET sRETURN IN POLISH MODE 40 
48 f] 


LPS@ Ve19O3 


a ee COON TUE WR 
Vn =o 


ee 
MOWME 


@1362 
@1362 


01366 
01366 


01372 
@1374 
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, eSBTTL STORXT AND CKRPAR 
, 
TOOCOCEOOOO OOOO OOO OOPSOOOOOOO OO OOOOOOOOOOE OOO OOOO OOOOH OOOOOOD 


5 
1 COMMON EXIT ROUTINE TO STORE FAC IN VARIABLE SET UP 
1 IN VARSAV(RS), CHECK LAST TOKEN EQUAL TO A RIGHT 

y PARENS (ALTERNATE ENTRY POINT TO ROUTINE), AND 

y RETURN TO THE BASIC INTREPRETER, 

5 

s 


TORXTS 
004737 JSR PC, @NSTOVAR sSAVE FAC 
eoegees 

CKRPARY 
122127 cwPB (R1)¢,M.RPAR JMAKE SURE LAST TOKEN IS A 
2000006 

}_RIGHT PARENS, 

001363 BNE SYNERR )SYNTAX ERROR IF NOT 
200207 RETURN JRETURN TO THE BASIC INTREPRETER 


LPSO vVOt=o1 
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f ' eSBTTL CONVERT BCD TO BINARY 

, 
3 OOOO CORR P REECE DOLORES ORO RRR ORES EEOC E ORES OREO e RR neOEROROS 
4 ’ 
5 ) ROUTINE TO CONVERT BCD TO BINARY 
6 ’ 
7 y CALLE 
: ’ JSR PC,CONBCD 

' . 
18 » REGISTERS USED: R3 MUST CONTAIN BCD NUMBER BEFORE CALL 
ie , R3 WILL HAVE BINARY RESULT ON RETURN 
1 ’ 
13. 01376 CONBCDE 
14 81376 B10046 MOV R@,e(SP) SSAVE REGISTERS RB, R2, AND RU 
15 01400 @10246 MOV R2,=(SP) , ON THE STACK 
16 @1402 Q1e@40d6 MOV Ru,e(8P) 
17 01404 @12700 MOV #4,RO 14 BCD DIGITS TO DECODE 
eeeged 
18 01418 BeSe46 CLR @(SP) PACCUMULATE AREA 
19 @14142 812702 CON1s MOV #4,R2 94 SHIFTS / BCD CHAR 
eeege04 

280 81416 ga5004 CLR Ro 9CLEAR OUT WORK AREA 
21 81428 006103 CON2s ROL R3 SHIFT CHAR OUT 
22 81422 a8e106 ROL Ra 
23 81424 B053e2 EC Re 94 SHIFTS YET? 
24 81426 883374 8GT cone yNOg CONTINUE 
25 81438 B1leue MOV (SP),9(SP) PMULTIPLY ACCUMULATED DIGITS BY 18 
26 81432 886316 ast (SP) 
27 81434 806316 ASL (SP) 
26 B1u36 vb2e16 aod (SP) ¢, (SP) 
29 81448 906316 ASL (SP) 
38 01442 B60416 apo R4, (SP) sA00 IN NEW DIGIT 
31 81444 995300 OEC RO 318 THIS THE LAST BCD CHARACTER? 
32 01446 903361 BGT CONS yNOs CONTINUE 
33 ’ 
34 0145@ 212603 MOV (SP) e,R3 RESULT RETURNED IN R3 
35 01452 @12604 MOV ($P)o,Ra sRESTORE ALL REGISTERS 
36 81454 B12602 MOV (SP)4,R2 
37 81456 012600 MOV CSP)%,RO 
38 81468 880207 RETURN RETURN TO CALLER 
39 ' 
4a 808001" s END yEND OF MOOULE #0 


LPS@ Velt9a) 
SYMBOL TABLE 


acc @BO314RG 
BEG = 000000 
CKCMGN @8234uaRG 
CKRPAR 001366RG 
CONBCD 001376RG 
OEL 8 000012 
ORSON 800075RG 
ERARG 000362R 
ERPOL B81346R 
ERRSYN® wxanen G 
Fac2 = 900042 
GET 3B 800006 
GETDAT @80756RG 
GETVARa weeenee G 
GET2 801060R 


Gt 801310R 
INTST @OB436RG 
INS @005eaR 


NARRAY= 280005 G 
NUMSGN® taeneee G 
POLRETs 200134 
RDS COS2S56RG 
RESTOR @@0426RG 
RETURP @8063GR 
Rt 82000001 
R4 22000004 
SAVFAC 880372RG 
SS1{Savs 200824 
STOD! @L,64R 
SYNER @80676R 
13 3 800062 
USE2 088126R 
VARSAVa Q00022 
eRPAR 2 anwene G 
» 485, 00002 
@81462 

ERRORS DETECTED: 
FREE CORE: 18142 


oLPs=LPse 
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BAD & 800010 BCDON 800877RG 
BUFRES @80640RG CKBUF OO8714R 
CKCOMA 881352RG CKLPAR @801326R 
CKi 08074GR Cke 888724R 
CON’ 201412R CcON2 621420R 
ORSBUF 880100RG ORSNPT @88102RG 
ENO = 000002 ENTERP @680620RG 
ERBUF  @88750RG ERNOR @880536RG 
ERRARGS sunene G ERRPOL® tanwen G 
EVAL 3 teanee G Fact 8 200048 
FLOAT GOA544RG FLOATS @88606R 
GETADD B61216RG GETBUF 880702RG 
GETNUM 888352R6 GETV BOBOSORG 
GETO 801014R GETL @G1074R 
GETS O81846R GETa @e1184R 
HISTON @80076RG Int B ehanen G 
INY O88506R IN2 B80S26R 
LPSAD © wannen G LPSOR = seenee G 
NOROOM @81292R NOWRAP @81150R 
PC 3%808007 POLENT @8@81324RG 
PSs 8 177776 PUT = 900008 
RDBL 880310R REGSAV @88410RG 
RESTR2 @804Q94RG RETURN@® 000207 
RTSON BOGO74RG RO 8%200000 
Re #4200002 R3 8X000003 
RS 3%08000S SAVER2 @80366RG 
SAVINT @80376RG sp BX200006 
SS2SAVe 000026 STODAT @@1110RG 
STORXT @01362RG STOVAR® eaenne G 
SYNERR @@134aR TABLE @@eGdGRG 
USE @@G1Q4GRG USES 288236R 
USE3 000122R USE4 eee222R 
sCOMMAS aeawan G eLPAR 3 saewee G 
020 
aet 
a 
» WORDS 


LPSt VG1l~e) 


Cerne NsEune 


LPS1 Vale! 


eavneneune 
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eTITLE LPS! VOtO1 
peSOTTL LPS MOOULE #1 


DEC#Lt@LBEXAeBeLA2 «BASIC KERNEL VO2~as 
COPYRIGHT (C) 1973,1976 , 


DIGITAL EQUIPMENT CORPORATION 
MAYNARD, MASSACHUSETTS 81754 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 
CHANGE WITHOUT NOTICE ANO SHOULD NOT BE CONSTRUED 
AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION, 
DEC ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
MAY APPEAR IN THIS DOCUMENT, 


THIS SOFTWARE IS FURNISHED 10 PURCHASER UNDER A 
LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND 
CAN BE COPIED (WITH INCLUSION OF DEC’S COPYRIGHT 
NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
OTHERWISE BE PROVIDED IN WRITING BY DEC, 


DEC ASSUMES NO RESPONSIBILITY FOR THE USE 
OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT 
WHICH IS NOT SUPPLIED BY DEC, 


WRITTEN BYt RICK HULLY PEBs, 1973 


ene ee ee 
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eSBTTL CONTENTS OF MODULE #1 
THE FOLLOWING COMMAND PROCESSORS EXIST IN THIS MODULE! 
aoc 


ats 
LEO 


ee 


LPSi VOl=eL 

i 

2 

3 

4 

5 

6 

7 

6 

9 

18 

it 

12 

13 

1a 

1s 

16 

47 

16 

19 

20 

at 

22 

23 

e4 

es 

26 

e7 

26 

29 

38 

3 

32 

33 

34 

35 

LPS1 VOleds 

1 

2 

3 200000 
4 eaoeet 
5 eo0eae 
6 200003 
7 egeaas 
6 eeeees 
9 002006 
18 080007 
a 

12 

13 

14 177776 
15 000207 
16 600134 
17 

18 

17 

20 oedeee 
at eavees 
22 208826 
23 200040 
24 eeeaue 
25 880062 
26 

27 

26 

290 020080 
3a eacoa2 
31 eooaes 
32 eerase 
33 000010 
3a aeeaie 
35 

36 

37 

38 Ge008 Baeg2e 
39 eane2 200020 
4@ @aee4 177777 
41 82006 aee017 
42 

43 

4a 

us 

46 

a7 

46 200129 Geoead 
49 

5@ eea12 020000 
51 00014 200008 
52 e@a16 000000 
$3 

54 20020 28000 
$5 e0e22 a00000 
56 

57 90024 998000 
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i 


a 


oSBTTL 


eGLOBL 
2GLOBL 
GLOBL 
eGLOBL 


eGLOBL 
GLOBL 
eGLOBL 
eGLOBL 
eGLOBL 
eGLOBL 
eGLOBL 
eGLOBL 
eGLOBL 
eGLOBL 
oGLOBL 


PROGRAM GLOBALS 


ERRPOL, ERRSYN, ERRARG 
EVAL, GETVAR, STOVAR 
INT, ,COMMA, »RPAR 
NUMSGNy @LPAR 


TABLE, NARRAY, FLOAT 
POLENT, GETADO, GETNUM 
CKCMGN, INTST,GETV 
GETBUF,REGSAV,ERNOR 
STORXT, CKRPAR, ERBUF 
CKCOMA,ENTERP, STODAT 
GETOAT,RTSON, DRSON 
SAVER2, SAVFAC,RESTR2 
RESTOR, HISTON,BCOON 
CONBCD, BUFRES, DRSNPT 
SAVINT 


U 
+ GLOBALS REQUIRED FOR COMMAND PROCESSORS 
‘ 


+GLOBL 


ADC, RTS,LED 


' 
» GLOBALS FOR DEVICE ADDRESSES 
»GLOBL LPSAD,LPSADB,LPSOR+LPSOMA 


~ 
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GLOBALS REQUIRED FOR COMMUNICATION WITH THE BASIC 
INTREPRETER, 


GLOBALS REQUIRED FOR COMMUNICATIONS WITH THE VARIOUS 
LPS MOOULES, 


s 
7 GLOBALS FOR INTERRUPT PRIORITY AND VECTOR DEFINITIONS 


RTeil MACRO VMQ2009 


oGLOBL 


LPSIVA,LPSIP 
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ae 


' eSBTTL REGISTER ASSIGNMENTS AND EQUATES 
' 
RO 3 x8 
Rt a m1 
R2 z x2 
R3 2 “3 
Ru = xa : 
RS z xs 
sp 2 x6 
PC 2 “7 
’ 
y GENERAL EQUATES 
y 
PS s 22 yP$ ms PROCESSOR STATUS WORD 
RETURN 8 207 9207 3 RTS PC 
POLRET # 134 $134 8 JMP @(RU)> 
’ 
1 BASIC USER*S EQUATES 
1 
VARSAV fs 22 yVAR SAVE FOR ASSIGNMENT 
SSiSav s eq #8Si SAVE FOR ASSIGNMENT 
SS2SaAvV # 26 y8S2 SAVE FOR ASSIGNMENT 
FACL 2 4@ HHIGH ORDER FLOATING VALUE 
Face s 4e yLOW ORDER FLOATING VALUE 
v3 s 62 sSHORT TERM TEMPORARY 
’ 
? BUFFER DESCRIPTOR EQUATES 
, 
BEG 3 v) OFFSET TO BEGINNING OF BUFFER POINTER 
END z e OFFSET TO ENO OF BUFFER POINTER 
PUT 2 a OFFSET TO PUT DATA POINTER 
GET z 6 OFFSET TO GET DATA POINTER 
BAD ey 18 sOFFSET TO BAD DATA FLAG 
DEL 2 12 dOFFSET TO DISPLAY DELTA x 
U 
» LIMIT TEST 
’ 
MAXAL WORD 20 y16 
eHORD = 28 16 
«WORD 177777 765535 
WORD 17 w17 
' 
1 INTERRUPT VECTOR SET UP 
’ 
, 
y NON*REENTRANT VARIABLES 
’ 
RTSBUF: ,WORD @ RTS COMMAND (BUFFER DESCRIPTOR 
’ ADDRESS) 
RTSNPT$ ,WORD a yRTS COMMAND (NBR OF POINTS) 
RTSSCa WORD @ PRTS COMMAND (STARTING CHANNEL) 
RTSNSCs ,WORD a WRTS COMMAND (NBR OF SUCCESSIVE 
’ CHANNELS) 
RTSMODs , WORD a RTS COMMAND MOOE 
RTSENDs ,WORD 8 RTS COMMAND END ADORESS FOR 
’ OMA OPERATIONS 
RTSCSR: ,WORD 8 WRTS COMMAND CSR SETTING 


oo CE, 


LPSt 


se 
59 


68 


ot 
62 


UPS) 


OOneNEWNN 


Oe et ee me ee 
SrnteUEWN oo 


uve 
ao 


nn 
wn 


ea 


es 
26 
27 
26 
29 
3a 
34 
32 


33 
34 


35 


36 
37 


“38 
39 
48 


41 


@ee26 eeegoe CNTs eWORD 8 
8@03@ G@egee@ LEDRES: WORD 0,8,8,8 


20032 
00034 
00036 
eeeue 
80041 
eeade 
oeaus 
Gee4ua 
oee4s 
8eede 
00007 


20050 
eeese 


ease 
82056 
80068 
90061 
80062 
00063 
60064 


eea7e 


80876 
00100 
Go102 
eo1ed 
88106 
e112 


OB116 


eB1ed 


8130 
90132 


80136 
oeLaa 


88146 
e0152 


Vaie@s 


eeeeee 
eecees 
008008 
@17 
Q17 
Q17 
@17 
O17 
e17 
e17 
e115 


Ve19@1 


105737 
0800086 
801403 
164408 
101 
104 
1083 
200 
012765 
087000" 
e00a62 
004737 
8009086 


000008G 
206000G 
0Gva0eG 
000106" 
e365 
oeeeade 
005265 
eeeade 
016537 
eo0Q4e 
2800006 
004737 
2000206 
eeeaoeG 
105737 
8e00086 
100375 
813765 
90000086 
beceue 
005065 
08048 
000137 
880d006 
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sCOUNTER USED BY LED COMMAND 


STORAGE AREA FOR LED CHARACTERS 


BLANK: ,BYTE L7eLT/LTALT/A7 L787 97 LED BLANK CHARACTERS FOR PADDING 


MINUSS ,BYTE 15 
' 


LED MINUS CHARACTER 
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' eSBTTL "AOC" COMMAND PROCESSOR 

| Poececcccecoscocceocccecosonscesoscocononccconcoeoocoesooees 
"ADC® COMMAND PROCESSOR 
BASIC FORMS CALL "ADC" (CHAN, VAR) 


’ 
U 
U 
' 
’ 
y PURPOSES INITIATE AN A/D CONVERSION FROM THE SPECIFIED 

’ CHANNEL (@ <# CHAN <w 15), WAIT FOR IT TO 

’ COMPLETE, ANO RETURN A FLOATING POINT RESULT 

’ IN "VAR® (8 <w YAR <m 4095) AS THE VALUE OF THE 
’ FUNCTION, THE A/D CANNOT BE CURRENTLY INeo 

’ VOLVED IN A REAL TIME SAMPLING (RTS) 

' 
’ 
A 


OPERATION, 
oc: yENTRY POINT TO PROCESSOR 
TSTB @aRTSON gRTS OPERATION CURRENTLY UNDERWAY? 
BEQ aoce yNOs CONTINUE 
TRAP C) 
ASCII = /ADC/ ' IN PROGRESS, 
.BYTE @ 
aoc2s ov wMAXA,T3C(RS) #FOR LIMIT TESTING OF "CHAN® 
JSR PC, ONPOLENT VENTER POLISH MODE ANO CHECK 


’ FOR ENOUGH AREA TO WORK 
’ WITH AND THAT FIRST TOKEN 
’ IS INDEED A LEFT PARENS, 


+GETNUM GET CHANNEL FROM COMMAND STRING 
+INTST TEST <s 15, 
+CKCOMA IPCHECK NEXT TOKEN EQUAL TO A COMMA 
ote pEXIT POLISH MODE 
SWAB FaC2¢RS) sSETUP A/O CHANNEL # 
INC Fac2(rs) HINSERT A/D START BIT 
MOV FAC2(RS),@MLPSAD ;START CONVERSION ON SPECIFIED CHANNEL 
JSR PC, @wENTERP VENTER IMMEDIATE POLISH MODE TO GET 
oGETV ’ VARIABLE ADORESS, 

aocis TST8 @MLPSAD yCHECK DONE FLAG ON THIS CHANNEL 
BPL A0C1 NOT READY YET 
MOV @RLPSADB,FAC2CRS) GET RESULT IN FAC 
CLR FaAC}(RS) yMOST SIGNIF, JS ALWAYS ZERO 
IMP @eSTORXT STORE RESULT IN PREVIOUSLY OPENED 


LPSt VO1901 


42 
43 
aa 


LPS V@1901 


Doo ee ee ee OO NEUEN 
QOengtMNEWNSo 


NNYNAN AN 
OOITN EWN 


Wu 
wneo 


w 
e 


EWU wWWE 
Q2o0asow 


£ 


WEEE SCE EEE 
So0or enV eWN 


MUN 
NOMEN 
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’ VARIABLE, CHECK FOR *)* AND 
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, eSBTTL "RTS" COMMAND PROCESSOR 

| OOCeeeaonraneooeeooerononcncosesooesscecnsoonscoeccsooooooece 
*RTS® COMMAND PROCESSOR 
BASIC FORM: CALL *RYS*(BUF,SC,NSC,NPTS, MODE) 


PURPOSE: PERFORM REAL TIME BUFFERED/CLOCKED SAMPLING OF THE 
4/0, THE A/D CAN BE ENABLED WITH A VARIETY 
OF OPERATIONS DEPENDING ON THE "MODE" SPECIFIED, 
THE NORMAL MODE OF OPERATION (MODEs@) CAUSES 
THE A/D TO SAMPLE WHENEVER ST #1 FIRES, 
TO ENABLE OTHER OPTIONS, MERELY ADO THEIR CODE 
NUMBER TO THE MODE, THE FOLLOWING LIST 
DESCRIBES OPTIONS AVAILABLE (ALL OPTIONS ARE 
NORMALLY DISABLED)s . 


CODE OPTION 

+1 ENABLE BURST MODE (USED ONLY WITH DMA) 
#2 ENABLE CLOCK AND OISABLE ST #1 

+4 ENABLE DUAL SAMPLE AND HOLD 

#18 ENABLE OMA (18 OCTAL) 


’ 

’ 

' 

U 

’ 

’ 

' 

’ 

’ 

’ 

U 

U 

’ 

' 

' 

, 

' 

' 

, 

Ul 

’ 

’ THE A/O WILL BE STARTED BY A CLOCK OVERFLOW 

’ OR SCHMITT TRIGGER #1 (ST), POINTERS WILL BE 
’ BE USED TO DETERMINE IF GOOD DATA EXISTS IN THE 
’ BUFFER ARRAYS OR IF DATA WRAP AROUND OCCURS, 
’ SINCE DATA IS STORED IN CIRCULAR BUFFERS (EXe 
U CLUDING DMA OPERATIONS), POINTERS WILL BE USED 
' TO INSURE THAT INCOMING DATA RATE DOES NOT 

’ EXCEED THE REMOVAL RATE, A BAD DATA INOICATOR 
, WILL BE SET WHEN DATA OVER*RUN OCCURS, THE 

, BUFFER POINTERS ARE INITIALLY RESET BEFORE THE 
’ SAMPLING OPERATION BEGINS, 

’ 

, 

’ 

, 

' 

’ 

, 

s 

’ 

, 

, 

' 

s 

U 

’ 

’ 

’ 

' 

’ 

, 

’ 

’ 


4/0 CHANNELS ARE SAMPLED ON EVERY CLOCK OVERFLOW 

OR FIRING OF ST #1 WITH THE RESULT STORED IN 
CONSECUTIVE DATA CELLS, OATA 19 STORED IN 

IDENTICAL FORMAT AS THAT READ FROM THE A/D, WHEN 

A CLOCK OVERFLOW OR ST OCCURS, THE A/D SAMPLES 

THE FIRST CHANNEL SPECIFIED BY "SC" AND THEN 

SAMPLES THE NEXT "NSC" @1 CONSECUTIVE CHANNELS, 
SAMPLING THEN CONTINUES UNTIL "NPTS" CLOCK OVERFLOWS 
OR ST°S HAVE BEEN RECEIVED, 


IN DUAL SAMPLE AND HOLD MODE, THE "NSC" PARAMETER 
TS THE NUMBER OF PAIRS OF CHANNELS TO REAL PER 
EVENT, 


OMA OPERATIONS MAY/MAY NOT USE DUAL SAMPLE AND HOLD, 
OMA ALLOWS DIRECT HAROWARE STORAGE OF A/D 

RESULTS IN A SPECIFIED BUFFER ARRAY, A MAXIMUM 

OF 4996 SAMPLES MAY BE TAKEN AT ANY 

ONE TIME WITH REMOVAL OF DATA ALLOWED ONLY 

WHEN THE BUFFER IS COMPLETELY FILLED, THE 

"NSC" PARAMETER IS IGNORED AND IS CONSIDERED 


’ RETURN TO THE BASIC INTERPRETER, 


LPsi 


56 
so 
00 
o1 
o2 
63 
e4 


6S 


66 


67 


97 


98 
99 


00156 
08156 


80104 


ee172 


ee2e0 
ee204 
e210 


ee2i4 


26216 
ee220 


ee222 
ee224 


ee226 
00236 
ee232 


98234 
ee236 
eg240 
ee2ue 
ee2ua 
ee246 


ee2se 
eees5e2 


80256 
Be262 


@0266 
ee27¢e 


108 e272 
101 8276 


a 


LPSt ve 


102 
1983 


18a 


105 
186 
107 
106 


8302 
0304 


0310 


314 
O316 
8320 
322 


189 a326 


110 
iit 


ie 


113 
114 


e332 
@334 


0340 


e3ud 
0346 


415 


116 
417 
118 
119 


128 
121 


122 


123 
124 


125 
126 


352 
0356 
6368 
8362 


0366 
8370 


@374 


0400 
e4e2 


846 
0418 


127 0414 
128 0416 
129 e420 


130 uaa 
131 0430 
132 0432 
133 

134 Qu34 
135 0436 
136 ouu2 
137 gude 


138 


4200 a4akS 


VO10e8s 


012737 
081040° 
8000006 
e12737 
8803280 
8800086 
e12765 
eeeeae" 
808062 
005037 
2800006 
185¢37 
2800006 
004737 
2800800G 


2800086 
8808006 
8880006 


ee0ee0G 
2800086 
eeeee08G 


2000006 
0090006 
8820006 


eoe252° 
016500 
egeoce 
010067 
177536 
@12667 
177820 
e8142a 
812603 
010367 
177528 
812607 


1-01 


177512 
@12602 
010267 
177500 
032708 
eceeas 
881401 
006393 
005303 
066793 
177466 
020327 
080017 
ee3uas 
000137 
0000006 
062706 
200006 
eeeses 
012703 
000100 


@10746 
177436 
008316 
052603 
832728 
eeven4 
ao1de2 
052793 
eucoae 
032700 
eeogee 
eelaes 
052703 
ee0a2e 
eveuee 
052703 
eeeaue 
eeogee 
1e3ea2 
052703 
2v001e 
032700 
eo0ee4 
eo1gaa 
005203 


011208 
966708 
177352 
260728 
177304 
@32703 
e4geeo 


RT@11 MACRO VMO2=69 


Dwewwwe 


Ss 


MOV 


MOV 


MOV 


CLR 
CLRB 
JSR 


*GETBUF 


*BUFRES 
*SAVER2 


oCKCMGN 
+INTST 


+SAVINT 
+CKCMGN 
oINTST 


*SAVINT 
oCKCMGN 
oINTST 
*SAVINT 
*CKCMGN 
+INTST 


002 
MOV 


“ov 
MOV 
BEQ 
MOV 
MOV 


MoV 


ONE, 
IF NPTS 18 GIVEN 


Lo"OCT=74 B1258s5O PAGE be 


AS ZERO, ANY RATS SAMPLING 


CURRENTLY IN PROGRESS IS DISABLED, 


SAOCINT, OMLPSIVA 


6308, @#LPSIP 


SMAXA,T3CRS) 


OwLPSAd 
@#RTSON 
PC, @sPOLENT 


sENTRY POINT TO PROCESSOR 


sSET INT, SERVICE ROUTINE ENTRY POINT, 


98ET INT, PRIORITY. 
sFOR LIMIT CHECKS ON ALL INTEGERS 
s8TOP ANY PREVIOUS RTS OPERATION 


PENTER POLISH MODE AND CHECK 


’ FOR ENOUGH AREA TO WORK 

’ WITH AND THAT FIRST TOKEN 
s 18 INDEED A LEFT PARENS, 
’ 
’ 


GET BUFFER ADORESS FROM COMMAND STRING 


AND CHECK IT AGAINST THE 
’ DEFINITION TABLE, 
PRESET BUFFER POINTERS 
p8AVE R2 ON THE STACK SINCE IT HAS 
’ THE DESCRIPTOR AOORESS, 
yCHECK NEXT TOKEN EQUAL TO A COMMA 
’ AND GET "SC", INTEGERIZE 


oy RESULT ANO TEST <ai6, 


FAC2(RS) RO 
RO,RTSMOO 
(SP) o,RTSNPT 
RTSO6 
(8P)o,R3 
R3-/RTSNSC 


(SP)4,RTSSC 


RT@11 MACRO VMG2=09 YonOCTo74 


RTS@ir 


RTSoos 


RTSa2t 


RTSO38 


RTSout 
RTSOSt 


RTSO68 


MoV 
MOV 


BIT 
BEG 
ASL 
DEC 
aod 
CMP 


BLE 
JMP 


400 
BR 
MOV 
MOV 
gwaB 
ers 
BIT 


BEQ 
ers 


BIT 


BNE 
BIS 


aR 
B18 


ROR 
acc 
81S 
BIT 


Bea 
INC 


MOV 
ado 


aoo 
BIT 


(SP) 9,R2 
Re, RTSBUF 


#4,RO 
RTS81 

R3 

R3 
RTSSC,R3 
R3,815, 


RTSB2 
OBERNOR 


#6,8P 

RTSia 
#108,R3 
RTSSC,(SP) 
(SP) 

(SP) o,R3 
#4,RO 


RTSO3 
#46800,R3 


#2,R8 


RTSO4 
#20,R3 


RTS@5 
868,R3 


R@ 
RTS@6 
#LO,R3 
4O,RO 


RTSa9 
R3 


(R2),RO 
RTSNPT,RO 


RTSNPY,RO 
#40006,R3 


gafanaqm 


SAVE INTEGER ON STACK 

CHECK NEXT TOKEN EQUAL TO A COMMA 
' ANO GET "NSC", INTEGERIZE 

’ RESULT ANO TEST <a1S, 

SAVE INTEGER ON STACK 

yCHECK NEXT TOKEN EQUAL TO A COMMA 
’ AND GET "NPTS", INTEGERIZE 

’ RESULT ANO TEST <s65535, 
SAVE INTEGER ON STACK 

CHECK NEXT TOKEN EQUAL TO A COMMA 
’ ANO GET "MODE", INTEGERIZE 

’ RESULT ANO TEST <s17, 

LEAVE POLISH MODE 

GET MODE 


ySAVE IT FOR LATER 

GET NPTS FROM STACK 

ZERO POINTS MEANS DISABLE SAMPLING 
sGET NSC FROM STACK 

pSAVE FOR LATER 


yGET SC FROM STACK 
01858358 PAGE 6+ 


GET R2 (BUFFER DESCRIPTOR ADDRESS) 


ICHECK SCo{o(NSCeOUAL BIT) <m 15 
sNOT DUAL 

sOUAL BIT SET, NSC = N8SCe2 

yNSC # NSC = 1 

$C = 1 © CNSC#OUAL BIT) 

mMUST BE <aiS 


70K 
yNUMBER OUT OF RANGE 


CLEAN UP STACK AND EXIT 


yR3 WILL END UP HAVING A/D STATUS 
’ REGISTER SETTING, 
STARTING CHANNEL # 


INSERT SC INTO A/O STATUS 
9DUAL SAMPLE AND HOLD? 

yNO 

sYESt INSERT INTO STATUS REG, 
CLOCK ENABLE OR ST? 

+CLOCK 

st 


sCLOCK 


NOW GET BURST MODE 


SET BURST MODE BIT IN STATUS REG 


yOMA REQUESTED? 


yNOt 


STATUS REGISTER OK AS 18 THEN 


gADD IN START BIT TO GET THINGS GOING 


FOR OMA OPERATIONS, 


MAKE SURE 4/0 WON*T OVERRUN 


’ 


BUFFER SIZE ALLOCATED, 


yTF DUAL SAMPLE AND HOLD, DOUBLE 


NUMBER OF POINTS, 


26 





UPS! 


140 
141 
142 
143 


144 
145 


146 
147 
148 


149 
188 


183 


132 
183 


184 
155 
156 
157 
188 
159 


168 
164 


LPSt 


Cate Ke ke ed 


ee oe te 
SxneoNeEUN-a 


nue 
ao 


@ 
@ 
t) 


nuunn 
eunNe 


Lv 
w 


26 8 


27 8 
28 @ 


29 8 
3a @ 
31 8 
32 8 
348 
36 @ 
37 @ 
38 8 
39 @ 
410 
42 8 


a4 @ 


V@1=81 


Basa 
0468 
a40d 
0470 


ea7a 
8476 


e502 
8506 
512 


e516 
see 


es2a 


9530 
os32 


8536 
osue 
O546 
e552 
9556 


VOl9O1 


8562 
8562 


@566 
es578 
e572 


8576 


8604 


2618 
Go12 


@616 
@622 
2638 
632 
0636 
864g 
Go4ua 
G46 
265e 
652 
8656 


2660 


0667288 

177332 
066720 

177326 
810067 RTSOT? 
177332 

826208 
280082 

@03402 

000137 
@88008G 
012708 RTSoBt 
0800006 
012704 
0080006 
012710 
080006 
Brrar4 
12710 
900004 
B16e714 
177262 
eeSay4 
812718 
eeeeae 
012714 
810008 
110337 RTS@98 
0000006 
10367 

477252 
810337 
2009006 
000137 RTSios 
9000006 


U 
FOOOOOOOOO OOOO OOOO ODER HEHE OOOOH OREO DERE E OREO ROR O OREO OEE 
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A00 
ado 
MoV 
CMP 


BLE 
ume 


MOV 
MOV 
MOV 


MOV 
MOV 


MOV 


NEG 
MoV 


MOV 
MOVB 
MOV 
“OV 
JMP 


RTell MACRO VMG20R9 


eSBTTL 


RTSNPT,/RO 
RTSNPT, RO 
RO,RTSEND 
ENO(R2) ,RO 


RTSO8 
OwERBUF 


#LPSAD,RO 
®LPSOMA,RG 
#6.(~RB) 


CR2), (RO) 
#4, (RO) 


RTSNPT, (RO) 


(Ra) 
#2, (RO) 


#10008, (RG) 
R3,OMRTSON 
R3,RTSCSR 
R3,OeLPSAD 
@aCKRPAR 
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y8AVE ENO ADDRESS 
VEXCEEDED ARRAY SIZE? 


yNOE 


OK THEN 


yOMA EXCEEDS BUFFER SIZE 


SETUP STATUS REGISTER AND DMA 


“REGISTER 


yNOW SET UP THE DMA 
DMA CURRENT ADDRESS 


OMA WORD COUNT 


1TWO°S COMPLEMENT 
9OMA STATUS REGISTER 


yOMA ENABLE BIT 


HVINOICATE AN RTS IS IN PROGRESS 
ySAVE CSR SETTING FOR INTERRUPT HANDLER 


sSTART UP THE A/O OPERATON 


CHECK LAST TOKEN EQUAL TO A RIGHT 
PARENS ANO RETURN TO THE BASIC 


INTERPRETER, 


"LED" COMMAND PROCESSOR 


’ 
s "LED* COMMAND PROCESSOR 


U 
» BASIC FORM: 


U 
’ 
' 
’ 
U 
' 
' 
U 
U 
L 


08a737 
@20000G 


2880006 
@80572° 
005067 
177238 
012765 
080030° 
8@eeee 
004737 
2008006 
e00722° 
816588 
088062 
a1270e 
080036" 
026727 LEDis 
177208 
000006 
203016 
a2ee27 LEDes 
000030" 


OB1413 


e20e027 
200030" 
801405 
t1dea2 
Oe0764 


U 
@12708 LED3s 
2200050° 
@00765 


' 
612708 LEDs 
680047" 


PURPOSE! LED 


JSR 


+GETNUM 
ote 
CLR 


MOV 


JSR 


«WORD 
MoV 


MOV 
cme 
BGT 
Mp 
BEQ 
CMP 
BEO 
MOVB 
BR 
MOV 
BR 
MOV 


CALL "LED" (VAR) 
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WILL DISPLAY THE FLOATING POINT VALUE OF THE 


VARIABLE "VAR®, 


UP TO 6 POSITIVE OR 5 NEGATIVE 
DIGITS CAN BE DISPLAYED IN THE LEDS, 
OECIMAL POINT MAY ALSO BE INCLUDED, 
ARE UNABLE TO BE DISPLAYED (VIZ,, "E" NUMBERS AND 
NEGATIVE 6 DIGITS ONES) ARE SHOWN BY ALL MINUS 


SIGNS IN THE LEDS, 


VENTRY POINT TO PROCESSOR 
yENTER POLISH MODE AND CHECK 


PC, @#POLENT 


Cnt 
#LEDRES,T3(RS) 


PC, O#NUMSGN 


LEDouT 
T3CR5),RO 


HLEDRES+6,R2 
CNT, #6 

LEDS 
R2o#LEORES 
LEDS 

RO, #LEDRES 
LEDS 
=(RO),e(R2) 
LEDS 
HMINUSO1,RO 
LEDe 
@BLANKS7,RO 


U 
’ 
’ 


FOR ENOUGH AREA TO WORK 


WITH AND THAT FIRST TOKEN 
18 INOEED A LEFT PARENS, 
GET NUMERIC FROM COMMAND ("VAR") 


LEAVE POLISH MODE 
CHARACTER COUNTER 


jWHERE RESULTS WILL ENO UP 


GENERATE CHARACTER STRING 


ROUTINE TO PROCESS CHARACTERS 


9GET LAST DIGIT POSITION +1 


WHERE RESULT WILL END UP 41 


9G00D # GENERATED? 


yNOt 


PINSERT NEXT CHARACTER IF SPACE IS 


PALL DONE, NOW PUT THEM UP ON THE 


#GET NEXT CHARACTER IF ONE EXISTS 
NOs 


INSERT 


A Me™ SIGN THEN 


AVAILABLE, 


LED‘S, 


FILL WI 


TH BLANKS THEN 


COPY ONE CHARACTER OVER 
sWORK ON NEXT CHARACTER 


sINSERT "@" SIGN FOR BAD NUMBER 


pINSERT LEADING BLANKS 


AN OPTIONAL 
NUMBERS WHICH 


A/ 





~~ 
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4S @86604 20762 i] LED2 

4e ’ 

87 @8066 012708 LEDS: MOV #LEDRES+O,RO WHERE TO START PULLING 
900030" 

48 80072 B05046 CLR (SP) ICLEAR LEO REGISTER TO START 

G9 896074 1149160 LEDer MOVE (RO), (SP) yGET CHARACTER 

S@ 8676 211637 MOV (SP), e@@LPSA08 sOISPLAY CHAR 
2808006 

Si @0702 262716 aod #480, (SP) sPOINTS TO NEXT DIGIT POSITION 
8eeuge 

52 80706 B22716 CMP #3800, (SP) PALL DONE? (3e@Ge4G0"6) 
003000 

53 00712 B02370 BGE LEDe NOs 00 NEXT CHAR 

54 00714 085726 rst (SP)o yCLEAN UP STACK 

55 00716 000137 JMP OMCKRPAR ICHECK NEXT TOKEN EQUAL TO A RIGHT 
beeeees 

So ’ PARENS AND RETURN TO THE BASIC 

57 ’ INTERPRETER, 

58 ’ 
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i , 
4 3 ROUTINE TO SUPPORT LED COMMAND 
U 
4 ge0722 LEDOUTs 
5S eee722 1227e8 CMPB #°o,RO yo" 2 
600053 
© 800726 601421 BEQ LEOxT sYESs IGNORE 
7 800738 122700 CMPB a? RO VIGNORE BLANKS ALSO 
e00e4e 
8 800734 901416 BEG LEDXT 
9 888736 122700 CMPB #°E,RO LETTER E? 
208105 
18 08742 Ge1432 Bea LEDBAD rYES¢ CAN°T OISPLAY E NUMBERS 
11 08746 122708 CMPB Wo RO sDECIMAL POINT? 
880956 
42 00750 o01411 BEQ LEooT! yYE8s CHECK TO SEE IF ITS THE 
13 ’ FIRST CHARACTER, 
14 00752 642700 are 4177768,RO RID GARBAGE 
177768 
15 08756 110875 LEDSTOs Move RO, eT3(AS) ySAVE CHARACTER 
008062 
16 88762 vena. TNC T3CRS) sBUMP TO NEXT POSITION 
20006 
17 88766 005267 INC Cnt COUNT IT 
177034 
18 08772 680207 LEDXTs RETURN sRETURN TO CALLER 
19 U 
28 06774 112708 LEDOT1: MOVE 420,R8 CHANGE CHAR 10 LED *,* 
888020 
21 91008 822765 CMP MLEORES,T3CRS) sWAS THIS THE FIRST CHARACTER 
800030" 
200e02 . 
22 ’ RECEIVED? 
23 01806 001763 BEQ LEDSTO vYES: STORE AS SINGLE CHAR 
24 B101@ 205365 oEC T3CRS) BACK UP 1 CHAR POSITION IN ORDER 
880062 
25 81014 152775 8186 #28,0T3(RS) ’ TO INSERT THE DECIMAL POINT, 
e08020 
eeeg6ee 
26 81022 05265 INC T3CRS) 
2aee6e 
27 @1826 200207 RETURN sRETURN TO CALLER 
26 ' 
29 01830 12767 LEDBAD: MOV #7,CNT TINDICATE THAT NUMBER IS TOO LARGE 
800007 
176778 
38 81236 200207 RETURN ' TO HANOLE ANO RETURN, 
31 , 
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‘ ’ aSBTTL A/O INTERRUPT PROCESSING ROUTINE 
' 
3 ITI ed Ld Ld ddd 
a ’ 
5 1 A/D INTERRUPT PROCESSING ROUTINE : 
, 
7 oe1040 ADCINTS 
8 eaiaua goa737 usr PC, OWREGSAV )SAVE RQ, RZ AND R3 ON STACK 
eegees 
9 ea1e44 213703 mov OuLPSADB,RS yREAD IN SAMPLE IN CASE WE 
apeeees 
18 yNEED IT LATER, 
11 91050 942737 src #00, 0NLPSAD ;DISABLE "CLOCK OVERFLOW ENABLE" 
eeea 
eeoeees 
12 81056 105737 TSTB = @#RTSON yRTS OPERATION IN PROGRESS? 
9080006 : 
13 @1062 e81ae6 BNE ADcet 1YES 
14 a1e64 205037 apcezt CLR O#LPSAD }OTSABLE A/D AND EXIT 
geoee0G 
15 01970 495037 | CLRE = @#RTSON }CUSED PRIMARILY BY DMA OPERATIONS) 
@ 
16 a1070 200137 40cae MP OeRESTOR RESTORE REGISTERS AND EXIT 
rT) 
17 01100 032767 acai: BIT #18, RTSMOD sOMA REQUEST FINISHED (IF ONE WAS 
ev0e10 
176712 
18 1) PREVIOUSLY STARTED)? 
19 01106 ea141o BEG ances 1NO 
28 01110 aie7e2 MOV RTSBUF,R2 sDMA 18 DONE, ALLOW ARRAY TO BE 
176674 
21 94114 16762 mov RTSEND/PUT(R2) » ACCESSIBLE, 
176702 
aoeood 
22 o1122 eti262 MOV (R2),GET(R2) 
aaeeee : 
23 ati26 000756 BR aocea }OISABLE A/D AND EXIT 
24 1 
25 @113@ 216746 ADCOS: MOV RTSNSC,=(8P) NBR OF POINTS TO PROCESS 
176662 
26 o1134 o1e792 Moy RTSBUF »R2 WHERE TO STORE RESULTS 
176658 
27 a114e @a4737 adCaG: JSR PC, e#8TODAT sSTORE 1ST SAMPLE 
2000006 
28 @1144 932767 BIT #4,RT8MOD yOUAL SAMPLE AND HOLO? 
paceos 
176646 
29 04152 oatait BEQ apcas 1NO 
3e 01154 05237 INC OwLPSAD sYESt READ IN 2ND SAMPLE AND STORE IT 
eveaaes 
34 @116@ 105737 ADCee: TSTB — eMLPSAd sWALT FOR IT 
200000G 
32 O1164 100375 BPL A0Cee 
33 81166 813703 MOV OWLPSADB,R3 GET A/D RESULT 
oeveaes 
34 01172 904737 Js PC, eNSTODAT STORE IT K. 
OC0G02G 3 


Le nara en enna —_———_ anna : 
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35 81176 @85316 ADCAS: OFC (SP) ALL SAMPLES TAKEN? 

Be 01280 ee3u11 BLE AOCa7 1YES: TERMINATE THIS SET 

37 O1202 062737 aoo #6401, @8LPSAD 7GO0 TO NEXT CHANNEL AND START CONVERSION 
200401 
2000006 

38 1210 105737 adCoBs TSTB @#LPSAD pwAIT FOR IT 
2000006 

39 @1214 100375 BPL aoces 

4O @12i6 013703 MOV @#LPSADB,R3 yGET RESULT 
0800006 

41 81222 800746 BR A0CBa pSTORE IT 

ve , 

43 81224 085726 ADCa7s TST (SP)¢ CLEAN UP STACK 

44 1226 085367 DEC RTSNPT pALL POINTS TAKEN? : 
176568 

4S @1232 003714 BLE aocee sYESs STOP EVERYTHING THEN 

We @1234 016737 MOV RISCSR,»@MLPSAD jRESTORE A/D STATUS REGISTER 
176564 
8800006 

47 @1242 800714 BR anced pRESTORE G,P, REGISTERS AND EXIT 

48 ' 

ag ’ . 

5@ o@00e1? END HEND OF MODULE #1 


LPS1 Ve1~0! 
SYMBOL TABLE 


aoc BOAKSARG 
aocee Qb1LOUR 

a0ceas BO1176R 

a0ces Oe12 aR 
aoce BOCCedR 

BEG = enever 

CKCMGNS exeaene G 
CNT BeHE2OR 
DORSNPT2 senene 
ENTERPS wanene 
ERRARGS eutaee 
EVAL & settee 
FLOAT = wennewe 
GETBUFS seenee 
GETV = senene 
INT 3 savene 
LEDoAD wr le guR 
LEORES unvezar 
LED! eevo22k 
LEOu avvooek 
LPSAD = seeene G 
LPSOR 2 senene G 
MAXA veavgar 

NUMSGNS #eteee G 
POLRETS ePul3sa 

REGSAVsS weeeee G 
RETURNS araea7 

RTSCSR vewBrZaER 

RTSNPT g@eertaR 
RTSSC OVVE Lok 

RTS@2 = BLASUOR 
RTSAaS aehutar 
RTS@6 eveseek 





nNannagaAD 


RO sxauure 
R3 severed 
SAVERQ=S seenee G 
SP Stereree 


STOMATS weevene G 
TABLE = tenner G 
COMMAS weeeee G 


« ABS, euAKEY 
valeus 
ERRORS DETECTECS 


FREE COPE: 14459, 


pLPss_PSt 


RTwoi] MACRO VMG2909 


van 
eul 


wORDS 


AOCINT B81¥4aR 
aocas @@1130R 
a0CG6 @81160R 
aocug BeLe7aR 
Bad = aeonie 
BLANK = gRauuaR 
CKCOMAS seater 
CONBCDS exenee 
ORSON & eetner 
ERBUF = seeeen 
ERRPOLS seerer 
FacCi = a@d0ue 
GeT = aevAae 
GETOATS seewee G 
GETVARe «# 2 G 
INTST = eetene G 
LEOOTL aaa774UR 
LEOSTO AvA7TSOR 
LED2 dAdo32R 
LE0S AABEoOR 
LPSADBs seenee G 
LPSIP = seeeee G 
MINUS BOAHUTR 
Pc =X%G00G07 
pS 3 177776 
RESTORS extene G 
RTs AOA1SORG 
RTSEND aaah22e 
RTSNSC VeuH1eH 
RTSHa @euzaerR 
RTSA3 @O0374R 
aTSao @euuauR 
RTSu9 evasuaR 
RY 32020001 
au sZduavaa 
SAVFACS seeeee G 
SSiSavs 9aaBeu 
STORXTs weneee G 
13 = BebH62 
eL PAR = teneetr G 


AQAA 






a0cal 
aocag 
a0co? 
aocy 
BCOON = 
BUFRESs 
CKRPARS 
OEL = 
ENO = 
ERNOR = 
ERPSYNS 
FaCe 2 
GETADDS 
GETNUMS 
HISTON® 
LEO 
LEcourT 
LEOXT 
LEDS 
LEO6 
LPSOMAS 
LPSIvas 
NARWAYS 
POLENTs 
Put = 
RESTR2s 
RTSAUF 
RTSMOO 
RTSON = 
RTSat 
RTSau 
RTSA7 
RTS1@ 
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oariaar 
AariaarR 
@a122uR 
@88132R 
enerae 
erarae 
aerate 
Buaere 
auaaae 
antten 
aevene 
eeoaue 
eeeetae 
kere 
agekae 
ABBS2NG 
oaa722K 
@OA772R 
anaesek 
@vvo7uR 
artnet 
eetene 
atetet 
genes 
agenau 
reeees G 
aazarer 
aeaa2ar 
eeeeee G 
auas2eR 
Begurer 
aavuour 
@AASSoOR 


aoe 


OO OO 


OQOan 


Re =2000002 
R5 zzauaves 


SAVINTS 
SS2Save 
STOVARS 
vVaRSave 
eRPAR & 


teenes G 


BAAR26 
eenees G 


avadcee 
aeeene G 


LPS2 vei-w} 


CBNTVN ENE 


LPS2 veiw 


OOnovenwne 
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eSBTTL CONTENTS OF MODULE #2 
THE FOLLOWING COMMAND PROCESSORS EXIST IN THIS MODULES 


SETH 
SETC 
HIST 
walt 


TONER tO nes ie Se 


LPS2 Veta! 


i 

2 

3 

a 

s 

6 

7 

8 

9 

18 

a 

t2 

13 

14 

15 

16 

17 

18 

19 

ee 

21 

22 

23 

ri 

2s 

26 

e7 

26 

29 

36 

31 

3e 

33 

34 

35 

36 

LPS2 Ve19@1 

1 

2 

3 200000 

4 080001 

5 800002 

6 280003 

7 2eeeo4 

8 eoe0es 

9 880006 

18 900007 

Mu 

12 

13 

4 177776 

15 000207 

16 080134 

17 

18 

19 

20 oeedee 

ai e0eo2u 

22 oeae2e 

23 000846 

eu eeeade 

es @0eaue 

26 eageee 

27 : 

28 

29 

30 802080 

31 oecede 

32 600804 

33 @eveee 

34 200010 

35 eeoot2 

36 

37 

38 

39 g90e0 800007 

4@ a0ae2 200007 

41 @6004 177777 

42 

43 

aa 

a5 

46 20006 20ce28 

47 Q@0018 020000 

48 

49 g@a1e 88a 
20013 aae 

Se 


Ll til ed eit ee eee 
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~~ ewe 


~~ we 


eSBTTL 


«GLOBL 
eGLOBL 
eGL06L 
eGLOBL 
eGLOBL 


2GLOBL 
oGLOBL 
2GLOBL 
2GLOBL 
2GLOBL 
eGLOBL 
eGLOBL 
oGLOBL 
2GLOBL 
»GLOBL 
»GLOBL 


PROGRAM GLOBALS 


GLOBALS REGUIRED FOR COMMUNICATION WITH THE BASIC 
INTREPRETER, 


ERRPDL, ERRSYN, ERRARG 
EVAL, GETVAR, STOVAR 
INT, .COMMA, »RPAR 
NUMSGN, oLPAR, SIR, SMLR 
SPOLSH 


GLOBALS REGUIRED FOR COMMUNICATIONS WITH THE VARIOUS 
LPS MODULES. 


TABLE, NARRAY, FLOAT 
POLENT, GETAOD, GETNUM 
CKCMGN, INTST,GETV 
GETBUF ,REGSAV,ERNOR 
STORXT, CKRPAR, ERBUP 
CKCOMA,ENTERP, STODAT 
GETOAT,RTSON, ORSON 
SAVER2, SAVFAC,RESTR2 
RESTOR, HISTON, BCOON 
CONBCD, BUFRES, ORSNPT 
SAVINT, ORSBUF 


iy 
7 GLOBALS REQUIRED FOR COMMAND PROCESSORS 
, 


eGL08L 


SETR,SETC, HIST, WAIT 


U 
) GLOBALS FOR DEVICE ADDRESSES 
s 


eGLOBL 


LPSCKS,LPSP8,LPSORS,LPSOIB 


U 
y GLOBALS FOR INTERRUPT PRIORITY AND VECTOR DEFINITION, 


eGLOBL CKLIVA,CKLIP 
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, eSBTTL REGISTER ASSIGNMENTS AND EQUATES 
’ 
RO s xe 
Ri a M1 
R2 s x2 
R3 2 x3 
RG s aq 
RS s xs 
SP a xo 
pc 3 x7 
’ 
+ GENERAL EQUATES 
’ 
PSs 3 =2 PS s PROCESSOR STATUS WORD 
RETURN #8 207 9207 = RTS PC 
POLRET 8 134 3134 8 JMP O(RU)e 
’ 
+ BASIC USER*S EQUATES 
’ 
VARSAV 8 22 VAR SAVE FOR ASSIGNMENT 
SSiSav s 24 9881 SAVE FOR ASSIGNMENT 
SS2Sav s 26 9$$2 SAVE FOR ASSIGNMENT 
Fach . ag SHIGH ORDER FLOATING VALUE 
Face s 42 #LOW OROER FLOATING VALUE 
RiSAVE # 46 RY SAVE LOCATION 
3 s 62 ySHORT TERM TEMPORARY 
’ 
} BUFFER DESCRIPTOR EQUATES 
, 
BEG 2 Q VOFFSET TO BEGINNING OF BUFFER POINTER 
END 2 2 sOFFSET TO END OF BUFFER POINTER 
PUT a 4 VOFFSET TO PUT OATA POINTER 
GET s 6 sOFFSET TO GET DATA POINTER 
Bad 2 18 VOFFSET TO BAD DATA FLAG 
DEL s 12 OFFSET TO OISPLAY DELTA X 
, 
ys LIMIT TEST 
’ 
MAXCs WORD 7 7 
eWORD 7 7 
«#ORO 177777 165535 
’ 
, 
+ NON@REENTRANT VARIABLES 
, Hi 
HSTNPT3s WORD @ yHIST COMMAND (NBR OF POINTS) 
MSTBUF: ,WORD a yHIST COMMAND (BUFFER DESCRIPTOR 
' ADDRESS) 
CKSTFG: ,BYTE 8.8 HCLOCK/ST#1 FLAGS FOR WAIT COMMAND 
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1 ’ eSBTTL "SETR® COMMAND PROCESSOR 

2 ’ 

3 PPOPCOOOO CODD D OOOO ROLE ROHR EEE OOOO ORR E EERO RRR R ODOR ECR ORR EOOOR 

4 ’ 

s 1 "SETR® COMMAND PROCESSOR 

6 ’ 

i » BASIC FORM: CALL "SETR* (RATE, MODE, PRESET) 

’ 

9 y PURPOSES SET CLOCK RATE WILL SET THE CLOCK RUNNING AT THE 

18 ’ DESIGNATED "RATE" AND IN THE SPECIFIED 

Mw ' "MODE", THE "PRESET" VALUE IS THE CLOCK COUNTER 

12 ’ VALUE, THE INTERRUPT ENABLE WILL ALWAYS BE 

13 ’ SET TO A ONE, 

14 , 

15 ’ VALUES OF "RATE® 

16 ’ @ NO RATE SELECTED 

‘7 ' 1 1 MHZ 

18 ' 2 188 KHZ 

19 ’ 3 18 KHZ 

20 , 4 4 KHZ 

ray ’ S 180 HZ 

22 ‘ 6 SCHMITT TRIGGER #3 (MEANINGFUL ONLY 

23 ’ FOR HIST OPERATIONS), 

“ ’ 7 LINE FREQUENCY (5@ HZ OR 6@ HZ) 

2 ’ 

26 ’ VALUES OF *MODE" 

27 ’ @ SINGLE INTERVAL MODE, COUNTER COUNTS FROM 

26 ’ PRESET VALUE TO OVERFLOW AND STOPS, 

29 ’ 1 REPEATED INTERVAL MODE, COUNTER COUNTS FROM 

38 ’ PRESET VALUE TO OVERFLOW, TRANSFERS 

34 ' BUFFER/PRESET TO COUNTER, AND BEGINS 

32 ’ AGAIN, 

33 ’ 2 EXTERNAL EVENT TIMING MODE, THE COUNTER IS 

34 ' FREE RUNNING, ANO A PULSE FROM ST #2 WILL 

35 ’ TRANSFER CONTENTS OF COUNTER TO BUFFER/ 

36 ’ PRESET AND THEN CONTINUE COUNTING, 

37 ’ 3. EVENT TIMING FROM ZERO BASE MODE IS THE 

38 ’ SAME EXCEPT THAT WHEN THE TRANSFER OF THE 

39 ’ COUNTER TO THE BUFFER/PRESET IS DONE, 

48 ’ THE COUNTER IS CLEARED AND THE COUNT BEGINS 

a ’ FROM ZERO, 

42 , MODE+4 START CLOCK ONLY WHEN ST#1 FIRES, 

43 ’ 

4H 0014 SETRe sENTRY POINT TO PROCESSOR 

4S 80014 012737 MOV WCKLINT, OMCKLIVA pINTERRUPT ENTRY POINT, 
€e9540° 
02800006 

46 @@@22 012737 MoV #240, @#CKLIP PROCESSOR PRIORITY, 
988240 
0000006 

47 90030 812765 MOV #MAXC,T3CRS) FOR LIMIT TESTS ON RATE, MODE, AND 
200000° 
2eeee2 

a8 ' AND PRESET, 

49 88036 804737 JSR PC, @#POLENT yENTER POLISH MODE AND CHECK 
ee0agec 

td ’ FOR ENOUGH AREA TO WORK 

LPS2 Vell RT@ti MACRO VM@2=09 16e0CT=74 2300838 PAGE Se 

St ' WITH ANO THAT FIRST TOKEN 

Se ’ IS INDEED A LEFT PARENS, 

$3 eae42 ede0eec +GETNUM yGET "RATE® IN COMMAND 

S4 @8e44 9000086 +INTST VINTEGERIZE IT AND TEST <s7 

SS 80046 09000086 oSAVINT SAVE IN ON THE STACK 

S6 #8052 e8e000G *CKCMGN yCHECK NEXT TOKEN EQUAL TO A COMMA 

37 , AND GET NEXT NUMERIC ("MODE") 

58 82052 9909006 #INTST pINTEGERIZE IT AND TEST <a7 

59 98054 2000086 +SAVINT sSAVE RESULT ON THE STACK, 

68 08056 ae000e6 +CKCMGN CHECK NEXT TOKEN EQUAL TO A COMMA 

61 08060 2000006 +INTST ’ GET NEXT NUMERIC, ANDO TEST «865535, 

62 82062 804064" +2 WLEAVE POLISH MODE 

63 @2064 one CLR ORLPSCKS STURN OFF CLOCK MOMENTARILY 
eoeeees : 

64 080078 805465 NEG Fac2crs) TAKE TWO"S COMPLEMENT OF THE PRESET 
2oeaue 

65 Q8A74 016537 MOV FAC2(R5),@#LPSPB 3 VALUE ANO ENTER INTO THE BUFFER 
200242 
80¢ea0G 

66 ’ PRESET REGISTER, 

67 88102 b12600 MOV (SP) o,RO sGET MODE 

68 @6104 vi2ode MOV (SP)4,R2 GET RATE 

69 88186 206302 ASL R2 PNORMALIZE TO BITS O1%03 OF WORD 

7@ @8118 800300 SWAB RO yPUT MODE IN LEFT BYTE 

71 @8112 852798 BIS #181,R8 ASSUME NO ST#1 CLOCK STARTS 
Oea1a1 

72 @@116 8327280 eIT 82000,R@ sST #1 REQUESTED? 
ee200e 

73 20122 @01404 14°) SETRY yNO 

74 88124 B42708 Bic #2081,R0 CLEAR OUT ST BIT ANO START BIT 
002001 

75 00130 eet BIS #20000,R0 yADD IN REAL ST BIT IN STATUS REGISTER 
a20ene 

7o G0134 SETRis 

77 @0134 eee CLRB CKSTFG 9CLEAR CLOCK FLAG BEFORE STARTING 
17765 

78 28148 eaSea¢ee 618 RO,R2 yCOMBINE MODE + RATE @ ST#1 + START 

79 86142 010237 MOV R2,ONLPSCKS yNOW START UP CLOCK 
2200086 : 

88 80146 000137 ome @aCKRPAR CHECK LAST TOKEN EQUAL TO A RIGHT 
eeegeeG 

81 ' PARENS AND RETURN TO THE BASIC 

62 ’ INTERPRETER, 


83 
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1 ’ sS8TTL "SETC® COMMAND PROCESSOR 
2 ’ 
3 FOCOOROO COSC ROSH OOOO HOH SOREOOO RESO HOSE ROEEOREL OOOO DEO EEEOEOOR 
4 ’ 
5 ) "SETC" COMMAND PROCESSOR 
6 y 
7 1 BASIC FORME CALL "SETC"(RATE, TIME) 
8 ’ 
9 } PURPOSES SET CLOCK TO THAT SPECIFIED BY "RATE® AND "TIME", 
18 ’ THE CLOCK STATUS REGISTER I8 SET TO "RATE" AND 
a , WILL RUN FOR "TIME" SECONDS, A CLOCK INTERRUPT 
12 ’ WILL THEN OCCUR WHICH MAY BE USED TO INITIATE 
13 , ANY OF THE CLOCK CONTROLLED FUNCTIONS, THE 
14 ' TIME ARGUMENT I8 EVALUATED AS TICKS m# TIME IN SECS 
15 ’ TIMES CLOCK RATE SPECIFIED IN "RATE", E.G, IF 
16 ’ CLOCK RATE WAS 1QKHZ, THEN TICKS # TIME IN SECONDS 
{7 ’ TIMES 1GKHZ, THE "TICKS" ARE ENTERED INTO 
18 ’ THE CLOCK PRESET/BUFFER REGISTER, THE CLOCK 
49 ’ ALWAYS RUNS IN MODE ZERO, 
20 ’ 
ai ’ LEGAL VALUES OF RATE ARES 4, S, AND 7 (SEE SETR 
22 , FOR EXPLANATION OF MODES), 
23 ’ 
24 00152 SeTce yENTRY POINT TO PROCESSOR 
25 00152 012737 MOV SCKLINT, OMCKLIVA 
e0esue* 
eeeeeeG 
26 90160 012737 MoV #200, e8CKLIP 
avezue 
080000G 
27 20166 012765 MOV SMAXCo2,/T3(RS) FLIMIT TESTING OF "RATE" AND "TIMER 
eeeeee* 
000062 7 
26 00174 eger3? | JSR PC, OMPOLENT VENTER POLISH MODE ANDO CHECK 
88000 
29 ’ FOR ENOUGH AREA TO WORK 
30 ’ WITH AND THAT FIRST TOKEN 
3 ’ 18 INDEED A LEFT PARENS, 
32 e82e0 eocgesG @GETNUM #GET "RATE" FROM COMMAND 
33 ee2e2 aeoaees oINTST pINTEGERIZE ANO TEST <w 7 
34 20204 8200006 +SAVINT sSAVE RATE ON STACK 
35 @0286 ganeeeG #CKCMGN sCHECK NEXT TOKEN EQUAL TO A 
36 ’ COMMA AND GET NEXT NUMERIC 
37 » FROM COMMAND STRING, ("TIME"), 
38 e021e oee2i2° 02 sEX2T POLISH MODE 
39 ge@212 010165 MOV RI,RISAVE(RS)  jPERSERVE Ri 
e20046 
4@ ea216 005037 CLR OLPSCKS yTURN OFF CLOCK MOMENTARILY 
eegeees 
41 e@222 021627 cup (8P),4 JRATE MUST BE MODES 4,5, OR 7 
eoeoeu 
42 0226 0824051 BLT ERARG HILLEGAL RATE SPECIFIED 
43 09230 021627 cmp (SP) ,#6 IRATE OF © IS ALSO ILLEGAL 
egeeae 
44 08234 e81446 BEQ ERARG 
45 20236 286316 ast (SP) yRATE @ RATE * 2 (TO POSITION IN PLACE 
46 ’ FOR THE CLOCK STATUS REGISTER), 
LPS2 val-e) RT@11 MACRO VM@20¢9 1O*0CT<74 G2:00238 PAGE be 
47 28240 Q11602 MOV (SP),R2 sCONVERT CODE TO A FLOATING POINT NUMBER 
48 880242 BBSoue CLR @(SP) y2ND HALF OF FP# IS ALWAYS ZERO 
49 88244 Bio246 MOV FPNBR@1Q9(R2),°(SP) 
800346°% 
S® ae25e aheene MOV FAC2(RS5),e(SP) PUT "TIME" ON STACK 
80804 
Si 00254 o165u6 MOV FACI(RS),=(SP) 
8eeo40 
S2 9026e a61005 BNE SETC! 1TIME IS ALREADY FLOATED 
53 00262 005726 TST (SP)¢ sFLOAT "TIME® 
54 @8264 904437 JSR RU, @NSPOLSH 
88000006 
$5 98270 oeveces oSIR 
56 00272 eao27u’ 2 sEXIT POLISH MODE 
57 @8274 BQ4u37 SETCi# JSR RU, @NSPOLSH 
eeeeeeG 
58 80300 de0000G #SMLR SMULTIPLY "TIME" # FRATE® 
59 68302 B00300° ee2 yEXIT POLISH MODE 
6@ 80324 012665 MOV (SP)+,FACA(RS) yPUT RESULT IN FAC 
@200ue 
61 00318 612665 MOV (SP)o,Fac2crs) 
eeegue 
62 08314 0040737 JSR PC, @NENTERP 
2808006 
63 88320 BeegeesG *INTST SINTERGIZE AND NEGATE NUMBER 
64 A8322 885465 NEG Fac2crs) 
eeegue 
65 e326 eee) mov FAC2(RS),OMLPSPB yPUT INTO BLOCK BUFFER/PRESET 
80094 
800080G 
66 ) REGISTER, 
67 00334 a126e2 MOV (SP)4,R2 1GET "RATE® 
68 00336 aires MOV #101,R8 ICLOCK # INTERRUPT ENABLE 81TS 
1 
69 00342 016501 MOV RISAVE(RS),R1 PRESTORE RY 
O20046 
78 88346 parle) JMP SETRI ySTART UP CLOCK ANO CHECK LAST 
"1 ’ TOKEN EQUAL TO A RIGHT PARENS, 
72 } «THEN RETURN TO THE BASIC 
a3 ’ INTERPRETER, 
, 
7S @@352 000137 ERARG: JMP OwERRARG HILLEGAL ARGUMENT 
000ec8G 
16 ’ 
77 00356 042572 FPNBR? ,WORD 42572 SFLOATING POINT 1900 
78 00362 o41710 «WORD = 41718 SFLOATING POINT 198 
79 00362 avoene eWORD Q HFLOATING POINT @ 
80 eIFNOF cYCS@ 
81 88364 auisia MORO 841510 SFLOATING POINT 60 
Be eENOC 
63 oe TFOF cycse 
64 sWORD 041S¢e8 JFLOATING POINT S@ 
re eENOC 
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1 1 aSBTTL "HIST" COMMAND PROCESSOR 
2 ’ 
3 TIT TI TI TITILy 
4 , 
s 9 "HIST*® COMMAND PROCESSOR® 
6 ’ 
7 1 BASIC FORM: CALL "HIST" (QUF,NPTS) 
8 ’ 
9 y PURPOSE! HISTOGRAM © TIMED SCHMITT TRIGGER, THE HIST FUNCTION 
18 ’ INPUTS "NPTS® VALUES FROM THE CLOCK PRESET/BUFFER 
i ’ INTO THE SPECIFIED BUFFER, BUF, WHEN ST #2 FIRES, 
te ’ THE CLOCK MODE MUST BE PUT IN 2 OR 3 TO BE MEANINGFUL, 
13 ’ THE ROB FUNCTION I8 USED TO RETRIEVE THE DATA, 
4 ’ THE BUFFER IS ALWAYS CIRCULAR AND THE DATA POINTERS 
a ’ INITIALLY RESET BEFORE THE SAMPLING BEGINS, 
6 ’ 
17 08366 WISTS JENTRY POINT TO PROCESSOR 
18 88366 012765 MoV WMAXCOG,T3CRS) yFOR LIMIT CHECKS ON NPTS 
eeegeu" 
800062 
19 80374 105067 CLRB HISTON TURN OFF ANY PREVIOUSLY INITIATED 
ae0ee0G 
20 HISTOGRAM SAMPLING, 
21 80488 004737 JSR PC, @MPOLENT JENTER POLISH MODE AND CHECK 
eeeees 
22 ’ FOR ENOUGH AREA TO WORK 
23 , WITH AND THAT FIRST TOKEN 
24 ’ IS INDEED A LEFT PARENS, 
25 08404 eoe0006 +GETBUF yGET BUFFER ADORESS FROM COMMAND 
26 ’ ANO CHECK IT AGAINST THE 
e7 7 , OEFINITION TABLE, 
28 08406 8000006 *BUFRES PRESET BUFFER POINTERS 
29 89418 a000086 oSAVER2 SAVE BUFFER ADORESS 
38 88412 gee80eG +CKCMGN sCHECK NEXT TOKEN EQUAL TO & COMMA 
34 '’ ANO THE NEXT NUMERIC FROM 
32 ’ FROM THE COMMAND, ("NPTS®) 
33 80414 g000086 oINTST VINTERGIZE RESULT ANO TEST <s65535 
34 e416 Bee4u20" ot2 LEAVE POLISH MODE 
35 80420 016567 Mov FAC2(RS),HSTNPT pSAVE ®NPTS® 
eoveue 
177368 
36 88226 812667 MOV (SP)¢,HSTBUF GET BUFFER DESCRIPTOR ADDRESS 
177356 
37 00432 125267 INCB HISTON ARM TIMED SAMPLING 
8000006 
38 98436 200137 SMP @aCKRPAR CHECK NEXT TOKEN EQUAL TO RIGHT 
8000086 
39 ’ PARENS AND RETURN TO THE 
48 ’ BASIC INTERPRETER, 
a ’ 
LPS2 Ve@l9-@1 RTei1 MACRO VM@2909 1o=OCT=74 G2:00838 PAGE 8 
: ’ eSBTTL "WAIT™ COMMAND PROCESSOR 
’ 
3 ITIIII III I yy) 
4 ’ 
5 y "WAIT" COMMAND PROCESSOR 
6 ’ 
7 » BASIC FORMS CALL PWAIT®(N) 
8 ’ 
9 ) PURPOSE! OISABLE FURTHER PROGRAM EXECUTION AND WAIT UNTIL 
18 ’ THE SPECIFIED EVENT "N® OCCURS, "N® IS DEFINED 
i } AS FOLLOWS: 
12 ’ 
13 ’ Ns@ WAIT FOR CLOCK OVERFLOW 
i4 ’ Nal WALT FOR 8T #1 TO FIRE 
15 ! Ne2 WAIT FOR Nw@ OR Ne} 
16 ' Ne@,1,2 RETURNS IMMEDIATELY 
17 ’ 
18 @04u2 WAITS % ENTRY POINT TO PROCESSOR 
19 @a442 B12765 MOV MMAXCeU,T3CRS) yFOR LIMIT TESTS ON N 
eeegaus 
800062 
28 08458 204737 JSR PC, @#POLENT ENTER POLISH MODE AND CHECK 
0020906 
21 ’ FOR ENOUGH AREA TO WORK 
22 1 WITH ANO THAT FIRST TOKEN 
23 ’ IS INDEED A LEFT PARENS, 
24 98454 goveoeG +GETNUM 1GET "NS 
25 80456 adegeec *INTST PINTEGERIZE IT 
26 28468 B60402° at2 dLEAVE POLISH MODE 
27 80462 826527 cmp Fac2(R5) ,#2 yN>2 ALWAYS RETURNS IMMEDIATELY 
eeeaue 
oeegae 
28 06478 181015 BHI WAITS 
29 g0472 eieiae MOV SCKSTFG,R2 PADDRESS OF CLOCK/ST FLAG 
eaeare? 
3@ 00476 a165ae Mov FAC2(RS),RO yGET #N® 
@88aue 
31 08582 01412 BEQ WAITY yN@i MEANS CLOCK OVERFLOW 
32 00584 aa5202 INC Re dASSUME ST FOR NOW 
33 80596 aeeaee ROR RO yN@1 MEANS ST OVERFLOW 
34 88518 103407 acs WAITS 
35 @@512 085767 WAIT3s: TST CKSTFG mN@2 MEANS ST OR CLOCK OVERFLOW 
177274 
Bo @@516 81775 BEQ WAITS 
37 20520 e05067 CLR CKSTFG CLEAR ALL FLAGS NOW 
177266 
38 80524 000137 WAITGS SMP @aCKRPAR sCHECK NEXT TOKEN EQUAL TO A 
eeooeec 
39 ’ RIGHT PARENS ANO RETURN TO 
40 ’ THE BASIC INTERPRETER, 
41 00530 105712 wAITin STB (Ra) yWAIT POR SPECIFIED FLAG ONLY 
42 80532 001776 BEG WAITS 
43 88534 185012 CLRB (Re) CLEAR FLAG FOR NEXT TIME 
44 80536 800772 BR walta 
45 ’ 
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CY ee oe 


7 000540 
8 ee0s4e 


9 e8esua 
18 20550 
11 0@554 
12 86556 
13 e05ea 
14 00564 
15 ges72 
16 00574 
17 8002 


18 206¢6 
19 060120 


28 a0614 
21 eee2e 
22 eee24 


23 20630 
24 08032 


25 00636 
26 egeu2 
27 e644 
28 e0052 
29 98656 


38 08662 
31 0@604 


32 80670 
33 00674 
34 28700 


LPS2 Vated1 


35 80704 
36 00786 


“37 ge7i2 


38 
39 
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’ eSBTTL LPS CLOCK INTERRUPT ROUTINE 


' 
POOOOOR OOOO RO OOOO OSE ROEDER ORO; R SSO O ROR E RRO EERE R ORR ORR RROOeOLS 


U 
3s LPS CLOCK INTERRUPT ROUTINE 


, 

CKLINTS 
004737 JSR PC, OmREGSAY 
8eeeeec 
012708 Mov #CKSTFG,RO 
eesele* 
105737 TSsTs OsLPSCKS 
0000006 
100001 BMI CLKe 
eeS200 INC RO N 
152718 CLKGs 6188 i, (RO) 
880083 
032737 BIT 91000, OMLPSCKS 
o0i4c0 
00ee08G 
oesee3 BNE CLKa 
842737 are BLTI7, OULPSCKS 
001717 
00000086 


105767 CLKGs TST8 HISTON 
0000086 


eeLaL3 8EQ CLKS 
013783 MOV OSLPSPB,RS 
oeegees 
@16782 MOV HSTBUF,R2 
177378 
004737 JSR °C, onsTODAT 
eeegees 
005367 vec HSTNPT 
177186 
ee1ee2 BNE CLKI 
188067 CLRB HISTON 
oeeeees 
105737 CLKis TsT8 @#ORSON 
8080006 
18¢e23 BPL CuKk2 
@52737 sis #2, ORLPSORS 
008002 
eeceees 
013703 MoV OWLPSDIB,R3 
eeceess 
105737 TsTs8 @#B8COON 
9008006 
e810¢2 BNE CLKS 
004737 JS PC, @#CONBCD 
eeeeeeG 
013702 CLK3: MOV @wORSBUF,R2 
@0e00eG 
004737 JSR PC, enSTOOAT 
0000086 
005337 oEc @MORSNPT 
8000006 

RT@1t MACRO VM@2089 16°0CT#7a 
@01002 BNE CLK2 
105037 CLRB @BORSON 
8000006 
900137 CLk2s JMP @BRESTOR 
0000086 

’ 
eeeeol? eENO 


s8AVE RO, R2, AND R3 ON STACK 
sSET ST/CLOCK FLAG 

WAS THIS A CLOCK OVERFLOW? 
vYESs SET CLOCK FLAG 

gSET 8T FLAG 

9SET APPROPRIATE FLAG 

yMODE ZERO OPERATION? 

yNO 

yYESt OISABLE CLOCK THEN 
PHIST OPERATION IN PROGRESS? 


NOs TEST ORS THEN 
DREAD PRESET/BUFFER REGISTER 


yGET HIST BUFFER ADDRESS 
sSTORE DATA IN USER*S BUFFER 
YALL POINTS TAKEN? 


yNO 
sCLEAR HIST DONE FLAG 


HORS OPERATON IN PROGRESS? 


NOs EXIT 
READ DIGITAL INPUT REGISTER 


sCONVERT TO BCO?P 


gNO¢ TREAT AS A PURE BINARY NUMBER 
CONVERT TO BCD 


9GET ORS BUFFER ADORESS 
WSTORE OATA IN USER*S BUFFER 
gALL POINTS TAKEN 


02100138 PAGE 9 
yNO 
CLEAR DRS DONE FLAG 


pRESTORE REGISTERS ANO EXIT 


ENO OF MODULE #2 


pen 
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SYMBOL TABLE 


BAO =-8 200812 BCOON & wanane G BEG 88 800000 
BUFRESS eannen G CKCMGNS seewee G CKCOMAS enanee G 
CKLINT 988540R CKLIP @ eannew G CKLIVAS eeanee G 
CKRPARS saneen G CKSTFG geee12R CLKO @8a5eeR 
CLKA 820636R CLKa 80e712R CLKS 200670R 
cLKG eagegaR CONBCD® resane G CEL == eeeei2 
ORSBUFR weeenn G ORSNPTs aenene G DRSON = taennn G 
ENO s ee00d2 ENTERPS weenne G ERARG 000352R 
ERBUF © aeeene G ERNOR & nanene G ERRARGS waxnne G 
ERRPOLS sewnen G ERRSYNS wennne G EVAL & eaeeee G 
FaCi # 800040 Fac2 & G88042 FLOAT © sanene G 
FPNBR @OS3SOR GET 8 600806 GETADDS saanne G 
GETBUFS eannne G GETOATS aeanew G GETNUMS senene G 
GETV 8 weenee GC GETVARS wawene G HIST B@G366RG 
HISTONS waenne G HSTBUF 000010R HSTNPT B80006R 
Int B eeenne 6 INTST & annene G LPSCKSs waxnwe G 
LPSOIGm sannae G LPSORSs auanne G LPSPB = waenan G 
MAXC @ageoeR NARRAYS aannan G NUMSGNS weneee G 
PC 8%080007 POLENTS anenee G POLRET= 000134 
PS 8 177776 PUT 8 00004 REGSAVS eaenen G 
RESTORS wanene G RESTR2s sennne G RETURNS 000207 
RTSON & enenee G RO 8% 080080 RY 83000001 
RiISAVER Bege46 R2 8x000002 R3 8%800003 
RQ sxgoeces RS 3xX900005 SAVER2s senane G 
SAVFACe senene G SAVINTS sannan G SETC 8G0152RG 
SETC1 8ee274R SETR @6O01 ORG SETRI 8801354R 
sp 8X000006 SSiSAVs goge24 SS2SAV8 828026 
STODATS eeenee G STORXTs eunene G STOVARS tannee G 
TABLE = wannun G 3 B 200062 VARSAVS 880822 
WALT CeGGu2RG WAITS 888530R WAITS @aosi2R 
WAITa B@eeS24uR SIR B auenen G SMLR 8 wanene G 
SPOLSHs sewane G eCOMMAR aeawan G eLPAR @ eeanee G 
eRPAR w aaeeee G 
+ ABS, Be0000 eee 

200716 081 


ERRORS DETECTED: @ 
FREE CORE: 18167, WORDS 


oLPrsLPse 
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1 eTITLE LPS3 Voto! 
2 seSBTTL LPS MODULE #3 
3 ’ 
: y DEC#11°LBEXAeBoL AG BASIC KERNEL V@29a1 

’ 
. 1 COPYRIGHT (C) 1973,1974 

’ 
8 ) DIGITAL EQUIPMENT CORPORATION 
9 } MAYNARD, MASSACHUSETTS 01754 
1@ ’ 
it y THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 
12 } CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED 
13 y AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION, 
14 1 DEC ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
1s } MAY APPEAR IN THIS DOCUMENT, 
16 ’ 
17 } THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A 
18 } LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND 
19 » CAN BE COPIED (WITH INCLUSION OF DEC°S COPYRIGHT 
20 s NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
a1 } OTHERWISE BE PROVIDED IN WRITING BY DEC, 
22 ' 
23 1 DEC ASSUMES NO RESPONSIBILITY FOR THE USE 
24 y OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT 
25 } WHICH IS NOT SUPPLIED BY DEC, 
26 ’ 
cs y WRITTEN BY$ RICK HULLY FEBey 1973 
2 ’ 


37 
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i ' eSOTTL CONTENTS OF MODULE #3 

2 ' 

3 » THE FOLLOWING COMMAND PROCESSORS EXIST IN THIS MODULES 
4 ' 

s ’ OIR 

6 ’ bor 

7 ’ ORS 

8 ’ REL 

9 U 


LPS3 V@lnes RTeit MACRO VM@2999 1osOCT#74 G2rO2s11 PAGE 3 


1 ’ sS8TTL PROGRAM GLOBALS 

2 ’ 

3 } GLOBALS REGUIRED FOR COMMUNICATION WITH THE BASIC 
4 ) INTREPRETER, 

s ’ 

6 sGLOBL ERRPOL, ERRSYN, ERRARG 

7 eGLOBL EVAL, GETVAR, STOVAR 

8 eGLOBL INT, COMMA, ,RPAR 

9 oGLOBL NUMSGN, ,LPAR 

10 ’ 

ui 1 GLOBALS REQUIRED FOR COMMUNICATIONS WITH THE VARIOUS 
12 1 LPS MOOULES, 

13 ’ 

1a eGLOBL TABLE, NARRAY, FLOAT 

15 eGLOBL POLENT,GETADD, GETNUM 

16 +GLOBL CKCMGN, INTST,GETV 

17 +GLOBL GETBUF, REGSAV, ERNOR 

18 sGLOBL STORXT, CKRPAR, ERBUF 

19 eGLOBL CKCOMA,ENTERP, STODAT 

20 eGLOBL GETDAT,RTSON, DRSON 

a1 eGLOBL SAVER2,SAVFAC,RESTR2 

22 +GLOBL RESTOR, HISTON, BCDON 

23 eGLOBL CONBCD, BUFRES, DRSNPT : 
24 +GLOBL = SAVINT, DRSBUF 

25 ’ 

26 1 GLOBALS REQUIRED FOR COMMAND PROCESSORS 
27 ' 

28 »GLOBL DIR, DOR, ORS, REL 

29 ' 

38 } GLOBALS FOR DEVICE ADORESSES 

31 ’ 

32 +GLOBL LPSDRS,LP80IB,LPSDOR 

33 ’ 

3a 1 GLOBALS FOR INTERRUPT PRIORITY AND VECTOR ADRESS, 
35 »GLOBL ORSIVA, ORSIP 


LPS3) VO1901 RT@14 MACRO VMG2009 LO9OCT=74 B2re2si1 PAGE & 

1 ! aSBTTL REGISTER ASSIGNMENTS AND EQUATES 

2 ’ 

3 200000 RO s bt) 

a eoeeear Ri s xt 

S eeeaae Re s x2 

6 828003 R3 . x3 

7 eeeees RG s x4 

8 880005 R5 s x5 

9 eeeeee SP a x6 

1a @aaae7 PC s “7 | 

a ' 

12 1 GENERAL EQUATES 

43 ’ 

14 177776 PS s =2 yPS @ PROCESSOR STATUS WORD 

15 @0@207 RETURN #@ 207 9207 = RTS PC 

16 080134 POLRET #& 134 7130 @ JMP OCRU)e 

17 ' 

18 1 BASIC USER*’S EQUATES 

19 ’ 

20 @80022 VARSAV 3 22 yVAR SAVE FOR ASSIGNMENT 

at e9ee24 SSiSavV 8 2a 9881 SAVE FOR ASSIGNMENT 

22 @00026 SS2sav 2s 26 #882 SAVE FOR ASSIGNMENT 

23 @800G0 FACi s 4a . PHIGH ORDER FLOATING VALUE 

2a @0eeu2 Fac2 . 42 sLOW ORDER FLOATING VALUE 

25 200056 T1 2 56 sSHORT TERM TEMPORARY 

26 @eeea6ee Te s 60 SHORT TERM TEMPORARY | 

27 eeuge2 T3 2 62 PSHORT TERM TEMPORARY 

28 , 

29 } BUFFER DESCRIPTOR EQUATES 

38 ! 

31 @80008 BEG 8 ) » yOFFSET TO BEGINNING OF BUFFER POINTER 

32 @e0002 END a 2 OFFSET TO END OF BUFFER POINTER 

33 880604 PUT s 4 sOFFSET TO PUT DATA POINTER 

34a 080006 GET 8 6 sOPFSET TO GET DATA POINTER 

35 eeee1e BAD 8 18 yOPFSET TO BAO DATA FLAG 

36 Bee012 DEL 2 le VOFFSET TO DISPLAY DELTA X 

37 , 

38 s LIMIT TEST 

39 , 

4@ 20000 177777 MAXOs WORD 177777 165535 

41 88002 BeOGe2 MAXRs ,WORD 2 v2 

ue ’ 
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4 ’ sSBTTL "DIR" COMMAND PROCESSOR 

2 ’ 

3 1OCOOORO OOOO ROOD ODEO RROD ERROR RRO R OOOO ROO E OO HERO Ree ooRoooOneee 

4 ’ 

+) 1 "DIR" COMMAND PROCESSOR 

6 ’ 

7 1 BASIC FORM; CALL PF OIR*"(N,VAR,NEWCSR) 

8 ’ 

9 sPURPOSE? READ DIGITAL INPUT REGISTER, IF Nw@, INPUT IS 

18 ’ FOUR 8CD DIGITS CONVERTED TO FLOATING POINT, 

Mi , IF N#@, THEN THE BINARY RESULT REAO FROM THE 

12 1 REGISTER IS DIRECTLY CONVERTED TO A FLOATING 

13 ’ POINT NUMBER, THE REGISTER READ IS ACCOMe 

14 ! PLISHED VIA AN "INTERNAL LOAD" REQUEST AND 

is ’ OOES NOT RESPOND TO INTERRUPTS, THE RESULT IS 

16 ’ PLACED IN "VAR", WHERE @ <w VAR <w 65535, 

17 , 

18 ’ THE NEW CSR REGISTER SETTING IS RETURNED IN NEWCSR, 

19 1’ 

28 8804 OIRs sENTRY POINT TO PROCESSOR 

21 88004 684737 JSR PC, @#POLENT VENTER POLISH MODE AND CHECK 
0800086 

22 H FOR ENOUGH AREA TO WORK 

23 , WITH AND THAT FIRST TOKEN 

eu ! 18 INDEED A LEFT PARENS, 

25 e012 2000006 +GETNUM yGET ®N" IN COMMAND 

26 80012 9800006 *SAVFAC ySAVE FAC ON STACK 

27 88e14 eeeneeG oCKCOMA yCHECK NEXT TOKEN EQUAL TO A COMMA 

28 @0016 800086 +GETV CALCULATE ADDRESS OF "VAR" 

29 ee020 eeveaeG +CKCOMA yCHECK NEXT TOKEN EQUAL TO A COMMA 

38 @e822 Bee8e4" 2 sLEAVE POLISH MODE 

31 00024 052737 8Is M2, O#LPSORS ISSUE AN. INPUT LOAD COMMAND 
eevac2 
08080086 : 

32 88032 833703 MOV OMLPSOIB,R3 pREAD DIGITAL INPUT REGISTER 
0800086 

33 88036 852626 BIs CSP) eo, (SP) ¢% yWAS NBO? (I,E. READ BCD?) 

34 800460 B8iaGe BNE OIRL sNOg READ STRAIGHT BINARY 

35 80042 @84767 JSR PC,CONBCO sCONVERT BCD TO BINARY 
eoegaaG 

36 80046 O@4737 DIRI3 JSR PC, OWFLOAT yFLOAT RESULT 
0209026 

37 80052 904737 JSR PC, @nSTOVAR STORE RESULT IN "VAR® 
20ega06 

38 82056 004737 JSR PC, @MENTERP GET ADDRESS WHERE STATUS REGISTER 
oeea0eG 

39 88062 8008006 *GETV ’ WILL END UP, 

48 80064 ORes 

Gt 88064 013793 MOV OMLPSORS,R3 1GET STATUS REGISTER 
800000G 

42 90070 DIR3t 39 

43 88070 804737 JSR PC, @MFLOAT yFLOAT IT 
eeevadG 

44 B6274 800137 JMP @#STORXT STORE RESULT, CHECK LAST TOKEN EQUAL 
8@ueoaG 2 

45 TO A RIGHT PARENS AND RETURN 4 

46 


' 
’ TO THE BASIC INTERPRETER, r 


LPS83 


a7 


VOleo) 
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HK CONN EWN 
-e@ 


ot ee ee 
NOUEUN 


18 


19 
28 
21 
22 
23 
24 
2s 
26 
e7 


29 
38 


34 
33 


34 
35 


36 


37 
38 


39 
ae 


00190 
00100 


20106 


08112 
Oe114 
08116 
oe1ee 


eete2 
eared 
88126 


80132 
00134 
80136 


80142 
Oe144 


00150 


@0154 
08156 


aeiee 


212765 
@00000° 
280062 
004737 
ee0eeeG 


8000006 
eeeeeeG 
0200086 
980006 


800000G 
000126° 
016593 
beeegde 
052626 
801003 
050337 
0080006 
00042 
048337 
2000006 
004737 
800080G 
0800006 
013703 
6200006 
@00167 
177702 
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’ eSBTTL "DOR* COMMAND PROCESSOR 
LL Le LL tL Ld 
"DOR® COMMAND PROCESSOR 
BASIC FORMs CALL "DOR® (M,N, NEWOOR) 


’ 
U 
U 
‘ 
U 
§ PURPOSES WRITE DIGITAL OUTPUT REGISTER, SELECTED BITS IN 

’ THE REGISTER MAY BE SET OR CLEARED, IF Mu@, SET 

’ BITS IN REGISTER, IF M#@, CLEAR BITS IN 

' REGISTER, "N" IS THE BIT PATTERN TO SET OR CLEAR, 
’ THE NEW RESULT IN THE REGISTER 18 RETURNED AS A 

’ FLOATING POINT NUMBER IN NEWOOR, 

, 
0 


ORs JENTRY POINT TO PROCESSOR 
“OV #MAXO, T3(RS) yFOR LIMIT TEST OF PNB 
JSR PC, @#POLENT VENTER POLISH MODE AND CHECK 
' FOR ENOUGH AREA TO WORK 
’ WITH AND THAT FIRST TOKEN 
’ 18 INOEED A LEFT PARENS, 
*GETNUM GET "HM" IN COMMAND 
+SAVFAC SAVE FAC ON STACK 
#CKCMGN CHECK NEXT TOKEN EQUAL TO A 
+INTST , COMMA AND GET "N® IN COMMAND, 
’ INTEGERIZE RESULT AND TEST 
’ <6553S, 
*CKCOMA yCHECK NEXT TOKEN EQUAL TO A COMMA 
et2 WLEAVE IN POLISH MODE 
MOV FAC2(RS)-R3 yGET PN® 
BIS (SP) 0, (SP)+ 1MaQ? (I.E, SET SITS IN REGISTER?) 
BNE DOR: sBNE MEANS CLEAR BITS 
ers R3,ONLPSOOR 78EQ MEANS SET BITS 
BR core 
OORIs BIC R3,e@WLPSOOR CLEAR BITS 
OOR2s Jr PC, OWENTERP sGET ADDRESS OF NEWOOR 
*GETV 
MOV @#LPSDOR,R3 RETURN NEW OUTPUT REGISTER SETTING 
ume DIRS ’ AND CLEANUP, 


7) 
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\ ! sSBTTL "ORS* COMMAND PROCESSOR 
’ 
3 POI ITI IIT) 
a ’ 
5 1 "ORS" COMMAND PROCESSOR 
6 ’ 
7 1 BASIC FORM) CALL "DRS" (BUF, MODE, NPTS,M,NEWCSR) 
8 ’ 
9 } PURPOSES DIGITAL READOUT SAMPLING, SAMPLES THE DIGITAL 
1e ’ INPUT REGISTER IN A SIMILAR FASHION AS THE 
11 ’ RTS FUNCTION, WHEN Mag, EACH TIME THE CLOCK 
12 ’ FIRES (OR ST, WHICH CAN TRIGGER THE CLOCK), 
13 ' THE DIGITAL INPUT REGISTER I$ REAO, POSSIBLY 
14 ’ CONVERTED FROM BCD TO BINARY (DEPENDING ON THE 
15 ' ®MODE*), AND STORED IN THE CIRCULAR BUFFER BUF, 
16 ’ THE CIRCULAR BUFFER POINTERS ARE INITIALLY RESET 
17 ’ BEFORE THE SAMPLING OPERATION BEGINS, 
18 ’ 2 
19 ' IF THE DRS IS NOT CLOCK DRIVEN, Me>@, IT MAY BE 
20 ’ ORIVEN BY DIGITAL INPUTS, I.E, WHENEVER A NEW 
24 , VALUE I8 RECEIVED BY THE INPUT REGISTER, THE VALUE 
2 ' 18 READ AND STORED IN THE BUFFER BUF, 
’ 
24 ’ IF THE "MODE"9@, THEN READ BCO OTHERWISE READ BINARY 
2s , DIRECTLY, IF "NPTS" I8 GIVEN AS ZERO, DISABLE 
26 ' THE SAMPLING, 
ea? ! 
28 ' THE NEW SETTING OF THE DIGITAL CONTROL STATUS 
HH ’ REGISTER I$ RETURNED IN NEWCSR, 
’ 
31 00166 ORSt yENTRY POINT TO PROCESSOR 
32 08166 012737 mov BORSINT, ONDRSIVA HINT, ENTRY POINT, 
220446" 
9000006 
33 80174 912737 MOV #200, @MDRSIP yAND PRIORITY, 
geez200 
2020006 
34 ap202 012765 MOV WMAXD, T3(RS) yFOR LIMIT CHECKS ON "NPTS® 
geegoa? 
aeoge2 
35 80210 105037 CLRB = @#ORSON ySTOP ANY PREVIOUS ORS OPERATION 
9000806 
3e 98214 942737 BIC #180, @#LPSORS 
eeo1ae 
eeogees 
37 @8222 904737 Isr PC, O#POLENT yENTER POLISH MODE AND CHECK 
geeeees 
38 ’ FOR ENOUGH AREA TO WORK 
39 } WITH AND THAT FIRST TOKEN , 
48 ’ 18 INDEED A LEFT PARENS Civ 
4t @@226 aeoooes oGETBUF 1GET BUFFER ADDRESS FROM COMMAND STRING : 
42 ’ AND CHECK IT AGAINST THE Sal 
a3 } DEFINITION TABLE, - 
44 @@23@ eeoe0eG +BUFRES WRESET BUFFER POINTERS . / 
4S 88232 2000006 +SAVER2 ySAVE R2 ON STACK SINCE IT HAS THE 5 4 
46 ’ BUFFER DESCRIPTOR AODRESS, : ad 
47 00234 odegeeG 4CKCMGN }GET "MODE" AND SAVE ON STACK 
LPS3 V@leot RTelt MACRO VM@2~09 16eOCT#74 B2102811 PAGE 7+ 
48 80236 oa0ae0s +SAVFAC 
49 @824e aeooaaG +CKCMGN yCHECK NEXT TOKEN EQUAL TO A COMMA 
50 ’ AND GET NPTS ANDO INTEGERIZE 
Si a0242 oaeeeec +INTST ’ MAX ALLOWABLE NBR POINTS IS 
52 ' 65535, 
53 00244 coeeees +SAVINT }SAVE NPTS AS AN INTEGER ON THE STACK 
54 gd246 goveaes +CKCMGN HCHECK NEXT TOKEN EQUAL TO A COMMA AND 
55 ' GET "MM, 
56 80250 eeeeoes +SAVFAC ySAVE IT ON THE STACK 
57 80252 0008006 +CKCOMA JCHECK NEXT TOKEN EQUAL TO A COMMA 
58 20254 aa00eeG +GETV 1GET VARIABLE ADDRESS OF NEWCSR 
59 @0256 oad260° at2 | JLEAVE POLISH MODE 
68 00260 52626 BIS (8P) 6, (SP) 14007 
ot 86262 aa14ue3 BEQ DORSAL yYESt ORS IS CLOCK ORIVEN 
62 20264 112708 MOVB = #1, RO sSET ORSON ON EXIT EQUAL TO PLUS NONe 
eaeeas 
63 20278 aeouge BR DRSo2 ’ ZERO VALUE, 
64 aa272 eya7ae ORS@it MOV #=4,RO yM#O, SET ORS ON EXIT EQUAL TO NEGATIVE 
17777 
65 ’ NON@ZERO VALUE INDICATING DIGITAL 
66 ’ INPUT LOADING, 
67 88276 012667 ORSB2t NOV (SP)+,ORSNPT $NBR OF POINTS TO TAKE 
2000006 
68 90382 eB14u20 BEG DRSeS yIF ZERO, DISABLE SAMPLING 
69 20304 195037 CLRB = @#BCDON yASSUME BCD MODE 
2veeaeG 
78 08310 a52626 ars (SP) 4, (SP)¢ 1GET MODE (BCD/BINARY) 
71 88312 B@1uo2 BEG ORSOS 18D 
72 00314 105237 INCB —- @#BCDON PREAD BINARY 
eoeeees 
73 @8320 012667 DRS@3: MOV (SP) 6, ORSBUF }SAVE BUFFER DESCRIPTOR ADDRESS 
0908006 
74 @@324 118037 MOVB «RO, PHORSON - #8ET ORS OPERATION GOING 
2009006 
75 90338 100403 BMI DRS@4 }CLOCK ORIVEN? 
76 00332 052737 BIS #188,@MLPSORS jYES: ENABLE INPUT INTERRUPT ENABLE 
000108 
2009206 
77 90348 00167 ORSags = JMP DIRa pRETURN STATUS REGISTER TO CALLER 
177528 
78 0344 62706 DRS@S: ADD #6,8P 1CLEAN UP STACK 
280006 
79 20350 200773 BR oRSe4 WRETURN STATUS REGISTER TO CALLER 
8a ’ 





LPS3 Val~o3 


eee ee ODEON ME Wwe 


fSunea 
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CUNEWNE 


08352 
00352 


20300 


80304 
80366 
90370 
20372 


00374 
Be376 


8eae2 
80004 
00006 
00019 
ee4i2 


8e414 
98622 
eegaa 


20430 
88032 


00636 


7 @80446 
8 B00bu5 


9 80452 


18 


41 
42 


13 
1a 


is 
16 
17 


18 
19 


20 


21 
22 
23 


a4 
2s 


00456 


20462 
Oa4eu 


00470 
eea7e 


80476 
easee 
08Se6 


eesi2 
@@514 


oes20 


ee526 
90532 


0e54g 


oSOTTL 
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"REL" COMMAND PROCESSOR 


’ ° 
PITTI TTT 


' 

i] 

U 

» BASIC FORM, 

, 

1 PURPOSES 

’ 

, 

’ 

RELt 
812765 MOV 
9eeeee? 
eeege2 
004767 JSR 
8000886 
9800006 *GETNUM 
0800006 oINTST 
08000086 oSAVINT 
0000006 oCKCMGN 
800376" 02 
012703 MoV 
0820006 
12002 MoV 
803416 BLE 
eeeeae ROR 
183401 acs 
205203 INC 
856565 RELI8 ars 
eoease 
200048 
e214e3 BEQ 
152713 8188 
020001 
eeeuee BR 
142713 REL3Ss srce 
000001 
090137 REL2s ume 
8808006 
000137 ERARGs JMP 


0000006 
’ 


eSBTTL 


"REL® COMMAND PROCESSOR 


CALL *REL*(8,0IR) 


CLOSE OR OPEN RELAY "S*, THE COMMAND OPENS RELAY 


"S" (8 @ 1 OR 2) IF *"DIR® IS EQUAL TO ZERO, 
OTHERWISE IT CLOSES IT, 


VENTRY POINT TO PROCESSOR 
#MAXR, TSCRS) sFOR LIMET CHECK ON "8" 


PC,POLENT sENTER POLISH MODE AND CHECK 


’ FOR ENOUGH AREA TO WORK 

’ WITH ANO THAT FIRST TOKEN 

’ 1S INDEED A LEFT PARENS, 

sGET NUMERIC FROM COMMAND ("8") 
SINTEGERIZE AND TEST <a2 

sSAVE "8" ON THE STACK 

sCHECK NEXT TOKEN EQUAL TO A COMMA 
U AND GET NEXT NUMERIC FROM 

U COMMAND STRING, 

WLEAVE POLISH MODE 


#LPSORS,R3 PADORESS OF LPS DIGITAL 170 
’ STATUS REGISTER, 
(8P)o,R2 GET RELAY NUMBER ("8") 
eaane PARG ERROR RELAY NUMBER NOT 1 OR 2 
2 
RELS WRELAY #1 SELECTED 
R3 RELAY #23 POINT TO LEFT BYTE IN 


’ STATUS REGISTER 
FAC2(RS),FACI(RS) SET OR CLEAR FLAG? 


REL3 CLEAR 

#150R3) NSET RELAY *3® 

REL2 

#4,0R3) RESET RELAY "3° 

OaCKRPAR JMAKE SURE LAST TOKEN 18 A") 
} AND RETURN TO THE BASIC 
) __ INTERPRETER, 

@WERRARG ARG ERROR 
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ORS INTERRUPT ROUTINE 


‘ 

POCO ORO DODO R OER OS EOL OOD OREO ROO OS ORO R RE ROR ESO RRO O OOO ROORO® 
U 

y ORS INTERRUPT ROUTINE 


U 

ORSINTS 
008737 
0900006 
0137203 
20029006 
105737 
2020006 
083414 
185737 
00000086 
281902 
004767 
0820006 
@167@2 ORSis 
0000006 
004737 
082008G 
085367 
0800086 
081007 
185037 DRS4s 
0800086 
042737 
200100 
2000286 
000137 ORS33 
bev00e8G 
052737 ORS2s 
ovetae 
0000006 
000772 


’ 
600001° 


JSR 
MoV 
TST8 


BLE 
TSTB8 


BNE 
JSR 


“OV 
JSR 


* DEC 


BNE 
CLRB 


Bic 


IMP 
ars 


BR 
ENO 


PC, OWREGSAV ySAVE RO, R2, AND R3 ON STACK 
OBLPSOIB,RS pREAD OIGITAL INPUT REGISTER 
@#ORSON ORS OPERATION IN PROGRESS? 

ORSG 1NOt OISABLE INTERRUPTS ANO EXIT 
@#BCDON CONVERT TO BCD? 

ORS1 yNOt TREAT AS A PURE BINARY NUMBER 
PC, CONBCD CONVERT BCD TO BINARY 

ORSBUF ,R2 ySTORE DATA IN USER*S BUFFER 

PC, eNSTODAT 

ORSNPT PALL POINTS TAKEN? 

oRs2 yNO 

@#ORSON CLEAR ORSON DONE FLAG 


#180, 0MLPSORS DISABLE DIR INTERRUPT ENABLE 


O#RESTOR PRESTORE REGISTERS AND EXIT 
4108, 0#LPSORS PRE@ENABLE INTERRUPT ENABLE BIT 


ORS3 RESTORE REGISTERS ANO EXIT 
sEND OF MODULE #3 
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SYMBOL TABLE 





BAD = 000010 BCOON © sennne G BEG =s 800000 
BUFRESs entane G CKCMGNS seneen G CKCOMAS seenee G 
CKRPARS snenes G CONBCO® euenes G DEL «8 Ba0e12 
DIR CBQCG4RG OIR @BOSGER OIR2 800864R 
OIR3 8@8070R DOR @80100RG OOR1 @0e144R 
ooRe 8@81S50R ORS 088166RG ORSBUFS sxeeee G 
ORSINT @a@4uoR ORSIP = weannn G ORSIVAR aunnee G 
ORSNPTs aeeaee G ORSON & saenwe G ORS@1 ea0272R 
ORSG2 @80276R ORSO3 @00320R ORseG @80340R 
ORSGS 88034UR ORS! 000476R oRs2 800532R 
ORS3 08e526R ORSG 000514R END 8 gocea2 
ENTERPS weeane G ERARG eoaugaR ERBUF = wennee G 
ERNOR & eeenne G ERRARGS neanee G ERRPOLS xeawen G 
ERRSYNw axtane G EVAL & weanen G FAC) = O00040 
FaC2 #8 eogeue FLOAT = annene G GET 8 000006 
GETADDS anenee G GETBUFs sewene G GETDATS aawnen G 
GETNUMS seenee G GETV © aeanee G GETVARS weanee G 
HISTONS enteee G tnt B wearer G INTST ao exanne G 
LPSOIBs eenwew G LPSOORS eennee G LPSDRSe suaene G 
MAXD eeaeoeR MAXR eeoeeer NARRAYS aanene G 
NUMSGNe wennen G ec 8X002007 POLENTS weanne G 
POLRETs 200134 es 8 177776 Pur os 
REGSAVs weneee G REL 88O352RG RELI 
REL2 O8B436R REL3 680432R RESTORS 6 
RESTR2= seenee G RETURNS 000207 RTSON 8 weenee G 
Re 5X000008 RL 8%000003 Ra ax000a02 
RS 8%000003 Ra sxo000o4 RS sxoogdes 
SAVER2a ennenne G SAVFACS ananen G SAVINTS ananeaw G 
sp B%808006 SSiSAVe Be0024 SS2Save 000026 
STODATS wxnane G STORXT#® ananen G STOVARS xnenee G 
TABLE & wanwen G v1 8 800056 Te = 800000 
3 2 ee8ee2 VARSAV® 800022 sCOMMAR tenene G 
eLPAR & eawawe G eRPAR & auanen G 
« ABS, 800200 0008 

oeesue 9e1 


ERRORS DETECTED: @ 
FREE CORE: 37906, WORDS 


LPS3,LPsaLPS3 


———— ee eee = sii 


LPS& VO19a1 RTe11 MACRO VM@2=09 LowOCT©74 G2103031 PAGE 3 


1 eTITLE LPS4 VoteoaL 

2 reSBTTL LPS MODULE #a 

3 ' 

4 1 DEC*11°LBEXA@BeLAS BASIC KERNEL V@2=Q) 

5 ’ 

6 s COPYRIGHT (C) 1973,1974 

bf ’ 

8 1 DIGITAL EQUIPMENT CORPORATION 

q » MAYNARO, MASSACHUSETTS 01754 

18 ’ 

it } THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 

12 } CHANGE WITHOUT NOTICE AND SHOULO NOT BE CONSTRUED 
13 y AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION, 
14 } DEC ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
15 y MAY APPEAR IN THIS DOCUMENT, 

16 ’ 

17 } THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A 
18 ) LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM ANO 
19 y CAN BE COPIED (WITH INCLUSION OF DEC*S COPYRIGHT 
20 y NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
at } OTHERWISE BE PROVIDED IN WRITING BY DEC, 

22 ’ 

23 } DEC ASSUMES NO RESPONSIBILITY FOR THE USE 

24 9 OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT 

25 } WHICH IS NOT SUPPLIED BY DEC, 

26 ’ 

27 s WRITTEN BYS RICK HULLY FEB,, 1973 

28 ’ 
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eSBTTL CONTENTS OF MODULE #4 
THE FOLLOWING COMMAND PROCESSORS EXIST IN THIS MODULE! 


CLRO 
PUTO 
ors 
FSH 
OXY 


Cer eNeune 
ee ey 


LPS VOt~@1 RTe1$ MACRO VM@2~a9 1OsOCT=7G G2sO3031 PAGE § 


4 ' sSBTTL PROGRAM GLOBALS 

Uy 
3 } GLOBALS REQUIRED FOR COMMUNICATION WITH THE BASIC 
4 1 INTREPRETER, 
5 ' 
6 eGLOBL ERRPOL, ERRSYN, ERRARG 
7 eGLOBL EVAL,GETVAR, STOVAR 
8 eGLOBL = INT,,COMMA,,RPAR 
9 : eGLOBL NUMSGN, ,LPAR, SIR 
18 eGLOBL = SMLR,SOVR, SPOLSH 
is eGLOBL OISPLY 

U 

13 1 GLOBALS REQUIRED FOR COMMUNICATIONS WITH THE VARIOUS 
a ) LPS MODULES, 
iy ’ 
16 »GLOBL TABLE, NARRAY, FLOAT 
17 eGLOBL POLENT,GETAOD, GETNUM 
18 sGLOBL CKCMGN, INTST, GETY 
19 sGLOBL GETBUF, REGSAV, ERNOR 
2e eGLOBL STORXT,CKRPAR, ERBUF 
21 sGLOBL CKCOMA,ENTERP,STODAT 
22 sGLOBL GETOAT,RTSON, ORSON 
23 eGLOBL SAVER2,SAVFAC,RESTR2 
24 eGLOBL RESTOR, HISTON, BCDON 
2s eGLOBL CONBCD,BUFRES,ORSNPT 
26 eGLOBL SAVINT 
27 ’ 
28 9 GLOBALS REQUIRED FOR COMMAND PROCESSORS 
29 ’ 
308 +GLOBL CLRO,PUTD,OIS,FSH, OXY 
31 ’ 
32 1 GLOBALS FOR DEVICE ADDRESSES 
3 ’ 
as »GLOBL LPOISS,LPOISX,LPOISY 
3 ’ 
36 HGLOBALS FOR INTERRUPT VECTOR AND PRIORITY, 
37 »GLOBL LPSIVA,LPSIP 


LPSG VOl9o1 

1 

2 

3 800000 

a oeaee1 

5 e0c0ce 

6 980003 

7 beceas 

8 800005 

9 288086 

18 000007 

41 

12 

13 

16 177776 

15 800207 

16 000134 

{7 

18 

19 

20 eeee22 

21 eoaee4 

22 880026 

23 200048 

ea eeeaue 

es beegau 

26 o80e46 

e7 000050 

26 eeeese 

29 200056 

38 200068 

31 o8eee2 

32 

33 

34 

35 200000 

36 eeeeee 

37 @o0004 

36 000006 

39 eeeels 

48 oeeeie 

41 

LPS& VOleo1 

1 

2 

3 

4 200000 

5 oeceae 

6 

7 202004 

8 000006 

9 800010 

18 eoeate 

uu oecets 

12 o0ea15 

13 8e0016 

14 oeo028 

15 200022 

16 eeoees 

17 oeee2e 

18 

19 

20 

21 

22 80000 800800 
2002 e00000 
20804 200000 
98006 200000 
08010 aeve00 
88012 200000 

23 00814 eevead 
08816 980008 
98028 200008 
ea022 Beeeee 
88024 200000 
88e26 Boeeoe 

24 

25 

26 

27 80032 eeeece 
88032 aeeeee 
28034 gee000 
90836 oeee00 
88049 seeoae 
@eeu2 200000 

28 80044 eseaad 
20046 ae0eae 
20050 seegae 
20052 a880eae 
98854 oaoaa0 
98856 Ae00e0 

eg 

30 

31 

32 00068 047777 

33 88062 007777 

34 00064 177777 

35 
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j 

! 

RO 
Ri 
R2 
R3 
RG 
RS 
sp 
PC 


eSBTTL REGISTER ASSIGNMENTS AND EQUATES 


xo 
a1 
x2 
x3 
x4 
x5 
%6 
x7 


’ 
y GENERAL EQUATES 


, 

PS 
RETURN 
POLRET 


’ 
y BASIC 


’ 
VARSAV 
$S1Sav 
SS2Sav 
Fach 
Face 
ROSAVE 
RISAVE 
R2Save 
R3SAVE 
Tl 

T2 

13 


“2 yP8 = PROCESSOR STATUS WORD 
207 9207 & RTS PC 
134 134 Bw SMP O(RU)e 


USER*S EQUATES 


22 VAR SAVE FOR ASSIGNMENT 
24 9881 SAVE FOR ASSIGNMENT 
26 9882 SAVE FOR ASSIGNMENT 
4@ PHIGH ORDER FLOATING VALUE 
42 LOW ORDER FLOATING VALUE 
aa yR@ SAVE LOCATION 

46 oR1 SAVE LOCATION 

38 pR2 SAVE LOCATION 

$2 sR3 SAVE LOCATION 

Se gSHORT TERM TEMPORARY 

68 ySHORT TERM TEMPORARY 

oe SHORT TERM TEMPORARY 


U 
+ BUFFER DESCRIPTOR EQUATES 


' 

BEG 
END 
PUT 
GET 
BAD 
OEL 
' 


8 OFFSET TO BEGINNING OF BUFFER POINTER 
2 yOFFSET TO ENO OF BUFFER POINTER 

a OFFSET TO PUT DATA POINTER 

6 NOFFSET TO GET DATA POINTER 

18 OFFSET TO BAD DATA FLAG 

te dOPFSET TO OLSPLAY DELTA Xx 
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U 
y DISPLAY TABLE EQuaTes 


’ 
OSTyY 
OSTX 


OPTY 
DPTX 
OTNPTS 
DLNPTS 
oS» 
oSx 
ONPTI 
ONPTR 
OISINC 
DENOY 
DENOX 
’ 


' 
1 DISPLAY TABLE 


} 
RESOISs 


U 
y DISPLAY TABLE 


U 
NONRES? 


»WORD 


ORD 


WORD 


WORD 


, 
s LIMIT TESTS 


' 
MAXDE 
MAXCE 
MAXPY 
’ 


WORD 
WORD 
eWORD 


@ BUFFER START ADORESS FOR Y 
2 “ sBUFFER START ADDRESS FOR X OR 
’ X POSITION ON FACE OF CRT, 
4 BUFFER POINTER FOR Y 
6 BUFFER POINTER FOR X OR X INCREMENT 
12 yNBR OF POINTS (TOTAL) 
te yNBR OF POINTS (RUNNING) 
14 sOISPLAY ON/OFF SWITCH 
1s ySWITCH FOR X INCREMENT OR X BUFFER 
16 pINITIAL "N® (NBR OF POINTS PER CALL 
20 yRUNNING VALUE FOR "NO 
22 1Y/(X) BUFFER INCREMENT ON DATA 
24 yEND OF ARRAY Y 


26 yEND OF ARRAY Xx 


FOR "OIS*" AND "OXY" COMMANDS 
858,8,0,0,2 


0680 0,0,0,8 


FOR "FSH® COMMAND 


8,2,8,8,8,0 
878,8,8,8,8 
71777 14095 
7777 14095 
177777 165535 


LPSa Vel~eal RToii MACRO VM@2-89 = Lo@0CT©7G G2803831 PAGE © 
: ’ sSBTTL "CLRO*® COMMAND PROCESSOR 
, 
3 POOCOC RCO R EROS ROSE COREE OREO RECO ROO RESO E ROR ORR ECO OOOO O REO SOS 
a ’ ‘ 
5 y "CLRD® COMMAND PROCESSOR 
6 ’ 
7 1 BASIC FORMs CALL "CLAD" (BUF, SIZE, SCALE) 
8 ’ 
q } PURPOSES DEFINE DISPLAY BUFFER HAVING FIXED DELTA X VALUES, 
1@ ’ "BUFY IS THE NAME OF THE BUFFER TO BE DISPLAYED, 
it ’ AND CONTAINS SINGLE WORD VALUES, VALUES WHICH 
12 ’ FALL IN THE RANGE G@9S >= VALUE >e @ ARE DISe 
43 ’ PLAYED WHILE VALUES OUTSIDE THIS ARE NOT, 
14 ’ THE "SIZE" OF THE BUFFER IS THE NUMBER OF Y 
15 ’ POINTS TO DISPLAY AND MUST BE <# TO THE NUMBER 
16 ’ DEFINED IN THE USE AND DIM COMMANDS, THE DELTA x 
17 ’ TS CALCULATED AS 4896/"SIZE" AND MAY BE FRACTIONAL, 
18 ’ 
19 ’ IF "SCALE® = 8, CLRO WILL SET ALL BUFFER VALUES 
20 ’ TO =1 CNON@ODISPLAYABLE VALUES), IF "SCALE*® DOES NOT 
rs ’ 88, CLRO DOES NOT CLEAR THE ARRAY ANO THE ORIGe 
22 ’ INAL DATA [8 MULTIPLIED BY "SCALE", IN EITHER CASE, THE 
23 ’ PUTD POINTERS ARE RESET TO POINT TO THE . 
2a ’ BEGINNING OF THE ARRAY, OATA I8 ENTERED INTO THE 
2s ’ ARRAY THROUGH THE PUTO FUNCTION, HOWEVER, A 
26 ’ CLRO MUST BE ISSUED BEFORE DATA I8 INITIALLY 
27 ’ TRANSFERRED TO THE ARRAY, 
26 ’ 
29 ’ A CLRO MUST BE ISSUED AT LEAST ONCE BEFORE 
Hy ’ ISSUING THE PUTO, DIS, OR FSH FUNCTIONS, 
’ 
32 20006 CLROe pENTRY POINT TO PROCESSOR 
33 00066 012765 MoV aMAXC,TSCRS) gFOR LIMIT TESTING OF *SIZE*" 
eeea02° 
290062 
34 88074 004737 JSR PC, @MPOLENT yENTER POLISH MODE AND CHECK 
eeoeaes 
35 ’ FOR ENOUGH AREA TO WORK 
3o ’ WITH AND THAT FIRST TOKEN 
37 ’ 18 INDEED A LEFT PARENS, 
38 88100 eececes oGETBUF JGET BUFFER ADDRESS FROM COMMAND STRING 
39 ’ AND CHECK IT AGAINST THE 
4e ’ DEFINITION TABLE, 
41 @0102 seooaes oBUFRES pRESET BUFFER POINTERS 
42 90104 eaeeees oSAVER2 ySAVE R2 ON THE STACK 
43 e910 sevedes *CKCHGN #CHECK NEXT TOKEN EQUAL TO A COMMA 
aa ’ ANO GET NUMERIC FROM COMMAND ("SIZE") 
G5 00110 eeoeees +INTST VINTERGIZE RESULT AND TEST <# 4095, 
Ge 89112 ev0ae8G oSAVINT ySAVE "SIZE* 
47 08114 seeeaac @CKCHGN WCHECK NEXT TOKEN EQUAL TO A COMMA 
a8 ’ ANO GET NUMERIC FROM COMMAND ("MODE") 
49 80116 aoegees SAVFAC ySAVE "SCALE" ON STACK 
5@ 00128 oee122° o¢2 JLEAVE POLISH MODE 
51 e@122 012665 mov (8P)o,T2(R5) HGET "SCALE" AND SAVE IT 
eeeeo 
S2 00126 012665 MoV (SP) 6,71 (RS) 
eeeese 
LPSG Vei9e1 RT@1i MACRO VM@20G9 = 1680CT=74 02103131 PAGE b+ 
53 08132 212600 Moy (8P)6,RO yGET "SIZE" 
54 00134 83420 BLE CLROS gSIZE «ws @ IS ILLEGAL 
55 00136 o12602 MOV (SP)6,R2 sR2 POINTS TO BUFFER DESCRIPTOR ADORESS 
56 08140 011203 MOV CR2),R3 yGET START AODRESS OF BUFFER 
57 @8142 erceee MOV RO,ROSAVE(RS) SAVE RO THRU RZ FOR LATER USE 
eeua 
58 08146 o10165 MoV R1,RISAVECRS) 
esegue 
59 00152 a10265 MoV R2,R2SAVE(RS) 
eeceso 
6@ 00156 010365 MoV R3,R3SAVECRS) 
ee0ese 
61 ae162 ginees Mov ENO(R2),<(SP) ;CALCULATE SIZE OF BUFFER 
62 80166 160316 sus R3- (SP) #(END ADORESS © BEGINNING ADDRESS)/2 
63 08170 age2te « ASR (SP) 
64 88172 B20026 cmp RO, (SP)¢ s"SIZE" <m BUFFER SIZE? 
6S @8174 ee3ue2 BLE CLROL VYESs CONTINUE 
66 08176 880137 CLROB! MP @BERNOR p*SIZE" TOO LARGE 
eeeeoes 
67 @8@202 O20827 CLROY: CMP RQ, 840%, HIS "SIZE" >= 4996? 
@10000 
a" a8206 183028 BHIS CLROS yYESt SET DELTA X #1 ANO FRACTION 
' 26, 
7@ 88219 212746 Mov 40096,,0(SP) 94096 POINTS ON X SCALE OF SCOPE 
810000 
71 00214 0040437 JSR Rd, @NSPOLSH ICALCULATE (4896,/"SIZE*") a8, 
aeceoes 
72 B822e eocgaec oSIR IFLOAT 4896, 
73 @8222 weedee’ +PUSHRE yNOW PUT "SIZE" BACK ON STACK AND 
74 ’ FLOAT IT, 
75 98224 gooaoes oSIR 
76 80226 o8000eG *$OVR s(BUF SIZE/"SIZE") 
77 @8238 @aou74° oPUSHB yPUSH & FLOATING POINT 8, ON STACK 
78 88232 Beeaaes oSMLR 108, 
79 80234 geeusu? +TRAFAC s TRANSFER RESULT TO THE FAC 
88 88236 seeeass +INTST PINTEGERIZE RESULT IN Fac 
81 e249 eee2ue’ 2e2 HLEAVE POLISH MODE 
62 Be242 o16500 Mov FAC2(R5) RO yIF INCREMENT 20, SET a1 
eoegue 
83 20246 Bo1ge2 BNE CLRO2 
84 oe250 auzres CLRO3! MOV #8, )RO ySET INCREMENT sf (186, WITH A FRACTION 
eeee1 
as ’ OF ZERO) 
86 e254 gieete CLRD2! MOV R2SAVE(RS),R2 SAVE DELTA X FOR THIS BUFFER 
2ase 
87 8260 o1aae2 Mov R@,DEL(R2) 
eeee12 
88 ee2e4 otc MOV T2CRS),@(SP) yPUT "SCALE" FACTOR ON STACK 
89 90270 a16S54u6 MoV TICRS) = (SP) 
‘ ss ee8ese 
@ 00274 ge1005 BNE CLROG F AN INTEG 
91 80276 eosves 187 tapes Ps INTEGER, FLOAT RESULT 
92 00380 g04437 JSR RG, ONSPOLBSH sPLOAT "SCALE" FACTOR 
eeeeees 
93 ea3e4 eeegeds EIR 


LPS 


94 
95 


96 


97 
98 
99 


100 
184 
102 


103 
106 
105 


106 
187 
108 


189 


11@ 
it 
M12 
113 
114 


415 


116 
417 


116 
119 
128 


tet 


122 
123 
12a 
125 


126 
127 
126 


LPS 


129 
130 


131 
132 
133 


134 
135 
136 
137 


136 
139 


14¢ 
141 


a Vb169881 


88306 
08312 


ee3i4 
ee320 
eo322 
e326 
0332 
8336 
e342 
0344 
a346 
e352 
8384 
8356 
8308 
0370 
6372 
g374 


8376 
2400 


0406 


e414 
e420 
Q426 
0430 
e432 


e436 


e442 
e444 


8452 
@4s4 


4 VOle01 


2460 
e464 


8466 


e472 
au7a 
esee 
os5e4 


8506 
@S1a 


8e0310° 
816646 CLROG 
eeees2 
@16646 
e00eee 
erase 


817503 
eeees2 
004737 
eeegaes 
a16546 
aoegu2 
B165d6 
geeaue 
001905 
805726 
204437 
2800806 
e0o0eeG 
880356" 
812765 CLROT! 
oe0ged? 
aeoge2 
204437 
2820006 
gaegees 
peousue 
e0gge0G 
eeeuad’ 
816575 CLROGI 
aeeoue2 
agees2 
062765 
eacade 
geaes2 
a16502 
eeease 
820562 
ga0es2 
aveve2 
101738 
022626 
o165a1 
aoegd6e 
000137 
0009006 


U 
B22626 CLROS! 
12765 
177777 
200042 
000752 


, 
012665 TRAFACs 
088048 


012665 
200042 
008134 


’ 
016546 PUSHROSs 
000044 


@80134 


’ 
@16746 PUSHES 
@e0010 
016746 
oeeude 
600130 


! 
041000 FPBs 
080000 


RTeil MACRO VMG2009 


ate 
MOV 


MOV 
BEG 
MOV 
Jsr 
MOV 
MOV 
BNE 
Ts? 
JSR 
SIR 
ot2 
MoV 
JSR 
#SMLR 
+TRAPAC 
#INTST 


22 
MOV 


400 


MOV 
CMP 
BLOS 
CMP 
MoV 


JMP 


cmp 
MOV 


BR 
MOV 


RTe11 MACRO VMG2=09 


MOV 
POLRET 
MOV 


POLRET 
Mov 
MOV 
POLRET 
eWORD 


2(SP), (SP) 
2(8P) 0 (SP) 
CLROS 
ORSSAVECRS) »R3 
PC, OMFLOAT 
FAC2(RS)s0(SP) 
FACICRS) 50 (SP) 
CLROT 


(SP)o 
RG, @HSPOLSH 


sMAXP, T3(RS) 


RG, ONSPOLSH 


16"0CT=78 


@2103531 PAGE be 

JLEAVE POLISH MODE 

pSAVE A 2ND COPY OF "SCALE" ON 

) THE STACK, 

y"SCALE*® FACTOR WAS EQUAL TO ZERO, 
) CLEAR OUT ARRAY, 

WMULTIPLY DATA BY "SCALE" FACTOR 
SFLOAT IF DATA IS 16 BITS, 

JPUT DATA ON STACK IN STANDARD 

) FLOATING POINT FORM, 


sOATA ALREADY FLOATED 
FLOAT NUMBER 


gRESET INTEGER TEST 


sENTER POLISH MODE 


MULTIPLY DATA BY "SCALE" FACTOR 
sTRANSFER RESULT TO THE FAC 
VINTEGERIZE IT 

LEAVE POLISH MODE 


FAC2(RS),OR3SAVE(RS)) SAVE NEW DATA 


#2, R38AVEC(RS) 


R2SAVECRS) »R2 


sPOINTS TO NEXT DATA POINT 


yARRAY DESCRIPTOR ADDRESS 


RSSAVE(R5),ENO(R2) yEND OF ARRAY? 


CLRDG 
(SP), (SP)% 
RISAVECRS) RI 


OMCKRPAR 


(SP) 4, (SP)4 
Bot, Fac2(RS) 


CLRDS 
(SP), FACI(RS) 


(SP), FAC2(RS) 


yNOt CONTINUE 

CLEAN UP STACK 

pRESTORE Ri 

MAKE SURE LAST TOKEN IS A ")* AND 

’ RETURN TO THE BASIC INTREPRETER, 


IGNORE "SCALE" ON STACK 
ySET OATA ELEMENT set (NON OISPLAYABLE) 


POLISH ROUTINE TO TRANSFER STACK 


1oeOCT@74. 2103831 PAGE b+ 


OATA TO FAC, 


pRETURN IN POLISH MODE 


ROSAVE(RS),@(SP) ;POLISH ROUTINE TO PUSH R@SAVE (SIZE) 


FP842,*(SP) 
FP8,0(SP) 


041008,0 


’ ON THE STACK, 
PRETURN IN POLISH MODE 


pPUSH FLOATING POINT 6, ON STACK 


pRETURN IN POLISH MODE 
WFLOATING POINT 8, 


YT 


LPS VOle8! 


Ree OSneMNewWne 


me 
Weuneo 


20512 
ge5i2 


00520 


ees24 
80526 
0eS3a 
20532 
00534 
08536 
90540 
eesaa 


90550 


812765 
0880640" 
eedee2 
004737 
8080006 


280000G 
2000806 


8020086 
eooeaes 
200540" 
016503 
eoegse 
004737 
2000006 
000137 
08000086 


LPSG Vat~e! 


COneUN Sune 


eessa 
eessq 
e0Se2 
20566 
00572 
88576 
ee6¢2 
2060 
80612 
aee12 
20616 
80620 
08629 
aeoe4 
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’ eSOTTL "PUTO" COMMAND PROCESSOR 

| O00eeeeoeeeecererovaceconercoonesoonecooseososccososeoooooeee 
} "PUTD" COMMAND PROCESSOR 

' BASIC FORMS CALL "PUTO" (BUF,Y) 

; PURPOSE! PUT DATA POINT "Y" INTO BUF IN SEQUENTIAL ORDER, 


s 

’ WHERE 65535 >s Y ># @, THIS FUNCTION DOES NOT 
' INITIATE A DISPLAY, BUT RATHER JUST ENTERS & 

’ “ DATA POINT INTO THE SPECIFIED ARRAY, 

I 

PUTDS VENTRY POINT TO PROCESSOR 


MOV @MAXP,T3C(RS) sFOR LIMIT TESTING OF "Y" 


JSR PC, @MPOLENT VENTER POLISH MODE AND CHECK 


’ FOR ENOUGH AREA TO WORK 

' WITH AND THAT FIRST TOKEN 
‘ IS INDEED A LEFT PARENS, 
' 
U 


*GETBUPF GET BUFFER ADDRESS FROM COMMAND STRING 
AND CHECK IT AGAINST THE 
' OEFINITION TABLE, 
*SAVER2 ySAVE R2 ON THE STACK 
#CKCMGN sCHECK NEXT TOKEN EQUAL TO A COMMA 
' AND GET NUMERIC FROM COMMAND (*Y") 
+INTST PINTEGERIZE RESULT AND TEST <s 65535, 
eRESTRE PRESTORE R2 
2t2 yEXIT POLISH MODE 
MoV FAC2(RS) RS STORE RESULT NOW 
JSR PC, @eSTOOAT 
JMP @NCKRPAR MAKE SURE LAST TOKEN 18 A ")* AND 


' RETURN TO THE BASIC INTREPRETER, 


RTell MACRO VM@2=09 = 1690CT#7q 82103131 PAGE 8 


’ : oSBTTL "OFS" COMMAND PROCESSOR 
’ 
seenccee 





POoC CORO ROO ROOD EDO O SOR DOSE RE SODELESOSOROOSOOROOOOOLS 
, 
9 "DIS" COMMAND PROCESSOR 
’ 
BASIC FORM: CALL "OLS" (BUF,N, I) 


4 
$ 
y PURPOSES OISPLAY DATA FROM BUF WHENEVER BASIC IS IDLE, THE 

’ POINTS DISPLAYED START WITH THE NTH POINT IN 

’ THE BUFFER ANO PROCEED IN INCREMENTS OF I, 

' IF Ist, CONSECUTIVE POINTS STARTING WITH THE NTH 
’ ONE IS DISPLAYED, IF Im2, EVERY OTHER POINT 

’ 1S DISPLAYED, ETC., 

u 
0 


18s sENTRY POINT TO PROCESSOR 
812765 MOV #OTS),TICRS) gRETURN PC FOR ARGUMENT PARSER 
o0es72° 
e0eeaSe 
8050605 CLR T2CR5) SINDICATE "DIS" ACTIVE 
ecegee 
800167 JMP OISPaR yNOW PARSE LINE 
0216 
612703 OISis MOV #RESDIS,R3 SETUP OISPLAY TABLE 
aeegae? 
004767 JSR PC, OSETUP 
eeee78 - 
885723 TST (R3)6 PRISR3¢2 
@12713 MOV #4,(R3) VASSUME 4 POINTS PER CALL TO 
eeeeas 
’ DISPLAY ROUTINE 
012323 MOV CR3) 0, (R36 
She MOV FAC2CRS) 5 (R3) yGET Y INCREMENT BETWEEN CHANNELS 
@ 
@66313 biss as €R3) sCONVERT TO A WORD OFFSET 
' 
0627206 A00 a4,SP yCLEAN UP STACK 
wovoey 
000137 ump ORCKRPAR sMAKE SURE LAST TOKEN IS A ")® 
eeveees 


’ AND RETURN TO THE BASIC 
’ INTERPRETER, 





LPSG Va@i~-01 RT@t$ MACRO VMG2089 LOeOCTS7G O2:03031 PAGE 9 


1 , eS8TTL "FSH" COMMAND PROCESSOR 
2 ! 
3 FOPCO COCR ROOD EEO R ORR R ORES OCR OEE OCC R OOS OO ReoRoe ooo oeROROOOOCeS 
a , 
5 } BASIC FORMS CALL "FSH" (BUF, NT) i 
¢ ’ , 
7 } PURPOSE: IDENTICAL TO DIS EXCEPT THE DATA POINTS IN BUF ARE 
a 1 DISPLAYED ONLY ONCE, THE NEXT BASIC STATE® 
9 } MENT IS THEN EXECUTED, 
1a ' 
11 a@63e FSH JENTRY POINT TO PROCESSOR 
12 28630 012765 mov #FSHL,TLCRS) | RETURN PC FOR ARGUMENT PARSER 
202646" 
808056 
13 09636 905065 CLR T2¢Rs) pINDICATE "FSH" ACTIVE 
800860 
14 00642 300167 JMP OISPAR yNOW PARSE LINE 
ebe142e 
15 08646 012703 FSHis MOV WNONRES,RS pSETUP DISPLAY TABLE 
@80030° 
16 08652 204767 JSR PC,OSETUP 
888214 
17 80656 205723 Ts (R376 JR3GR3¢2 
18 28660 216313 Mov =6(R3) 5 (R3) JDISPLAY ENTIRE SWEEP ON EVERY CALL 
177772 
19 ) TO THE DISPLAY ROUTINE, 
28 aaeed a12323 mov (R3) 4, (R3)¢ 
21 ee6e6 016513 Mov FAC2(RS),(R3) GET Y INCREMENT BETWEEN CHANNELS 
CeeeGe 
22 00672 206313 ast (R3) }CONVERT TO A WORD OFFSET 
23 90674 at2702 Mov SNONRES,R2 }NOW FLASH UP A COMPLETE SWEEP 
080630° 
24 80700 204767 JSR PC,OSPLY 
888266 
25 ee7e4 eee74s ar D183 GET Y INCREMENT BETWEEN CHANNELS, 
26 ’ CLEAN UP STACK, DISPLAY DATA, 
27 ' AND RETURN BACK TO THE BASIC 
28 H INTERPRETER, 
29 ’ 
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: , eSBTTL "OXY" COMMAND PROCESSOR 
’ 
3 JOPOOORO DORE O OODLE DERE DOOR O RODEO DEORE SOR L ROB R ROR E OREO NOONE 
4 ’ 
5 + BASIC FORMs "OXY" (BUF1,BUF2,Ny I) 
6 ' 
7 3 PURPOSE: DISPLAY DATA FROM BUF} AND BUF2, S8UF1 AND BUF2 
8 ’ HAVE THE X AND Y VALUES RESPECTIVELY, NO DELTA 
9 ’ X 18 USED FROM THE CLARO, OTHERWISE 
18 ’ OXY IS IDENTICAL TO DIS AND FSH, 
a ’ 5 
12 00706 Oxy! dENTRY POINT TO PROCESSOR 
13 00706 @12765 MOV *#OXY1,TACRS) RETURN PC FOR ARGUMENT PARSER 
200724" 
oeeese 
14 ga714 e1Bse3 MOV RS,T2CRS) VINDICATE "OXY" ACTIVE 
200060 
15 80720 080167 JMP OTSPAR yNOW PARSE LINE 
ea2ee4 
16 02724 812703 OXY1s ©=MOV WRESDIS,R3 sSETUP OISPLAY TABLE 
oeeea0" 
17 88738 024767 JSR PC, DSETUP 
B@0136 
18 08734 052723 A BIs #488, (R3)+ 9SET D8X ACTIVE 
800408 = 
19 @a74@ e12713 MoV #4,(R3) sASSUME 4 POINTS PER CALL TO 
Bevaeu 
28 88744 612323 MOV CR3)o, (R36 ’ OISPLAY ROUTINE 
21 88746 616513 MOV FAC2(R5),(R3) GET Y INCREMENT BETWEEN CHANNELS 
ebeg4ue 
22 08752 006313 ASL (R3) CONVERT TO A WORD OFFSET 
23 08754 816602 MoV 4(SP),R2 GET X BUFFER DESCRIPTOR ADDRESS NOW 
B80084 
24 28760 216263 MOV ENO(R2),4(R3) END ADORESS OF ARRAY X 
e00ee2 
aacoau 
2S 80766 162783 sua #28,R3 RESET TABLE ADORESS 
oeeeeo 
26 88772 e11213 MOV CR2),(R3) FINITIAL START ADDRESS OF X ARRAY 
27 88774 061613 aod (SP), (R3) ADD IN STARTING CHANNEL ©} 
28 88776 005313 DEC (R3) 
29 81000 611363 MoV (R3),4(R3) 
oeeee4 
38 819046 205726 TST CSP)¢ sPOP OFF TOP STACK ELEMENT, 
31 01086 e00704 8R Ors3 ’ REST I8 CLEARED OFF IN DIS 
32 ’ ROUTINE, 
33 ’ 





PARSER FOR O18, FSH, AND OXY 
FOR DIS, FSH AND THE OXY COMMANDOS, 


FOR OLS AND FSH} MOV RS,T2CRS) 


9FOR LIMIT TESTS ON N ANO I 


VENTER POLISH MODE ANO CHECK 

’ FOR ENOUGH AREA TO WORK 

’ WITH AND THAT FIRST TOKEN 

' 18 INDEED A LEFT PARENS, 

GET BUFFER ADORESS FROM COMMAND 

’ ANO CHECK IT AGAINST THE 

' OEPINITION TABLE, 

sTEST FOR OXY COMMAND 

CHECK NEXT TOKEN EQUAL TO A COMMA 
1GET NEXT BUFFER ADDRESS AND CHECK IT 
CHECK NEXT TOKEN EQUAL TO A COMMA 
’ AND GET NUMERIC FROM COMMAND, 
PINTEGERIZE RESULT AND TEST <27777, 
yCHECK NEXT TOKEN EQUAL TO A COMMA 
’ ANO GET NUMERIC FROM COMMAND, 


PINTEGERIZE RESULT AND TEST <87777, 
HLEAVE POLISH MODE 


HYESs RETURN IMMEDIATELY 
BYPASS ANOTHER BUFFER PROCESSING 


PRETURN IN POLISH MODE 


9GET BUFFER DESCRIPTOR ADORESS 
VINITIAL START ADDRESS OF ARRAY 


yA00 IN STARTING CHANNEL @1 


yASSUME DIS OR FSH COMMAND 
PRESET BUFFER PONTERS 


sOELTA X DEFINED IN "CLRO® 


sZERO VALUE IS ILLEGAL HERE 
sCALCULATE NBR OF POINTS TO OISPLAY 


9SET OISPLAY ACTIVE 
IDLE LOOP IN ORDER TO REFRESH 


gSAVE R2 ON THE STACK 
PRESIDENT OISPLAY TABLE 


sOISPLAY SOME POINTS 


RETURN FROM BASIC*’S IDOLE LOOP 
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1 ’ eSBTTL OISPLAY COMMAND 
2 ’ ; 
3 » ROUTINE TO PARSE COMMAND LINE 
4 ' 
5 y CALLS 
6 , MOV @RETURN, TI(RS) 
7 ’ CLR T2crs) e 
8 , ’ POR OXY 
9 , JmMe OISPAR 
18 PRETURNG NEXT INSTRUCTION 
PS! , 
12 91010 OISPARs 
13 01810 012765 MOV #MAXD, T3CRS) 
800060" 
200062 
14 91016 004737 JSR PC, @#POLENT 
8080086 
15 
16 
i7 
18 81822 9200006 +GETBUP 
19 
ee 
21 81024 eeegees oSaVER2 ySAVE R2 ON STACK 
22 81026 001056" #TSTOXY 
23 61038 ea80eeeG *CKCOMA 
24 01032 se0ceRG +GETBUP 
25 01034 8080086 oSAVER2 sSAVE IT ALSO 
26 81936 8000006 #CKCMGN 
7 
28 810469 99080086 *INTST 
29 01092 98090086 oSAVINT s8AVE ONE 
3@ 81004 BeeeeeG oCKCMGN 
34 
32 810466 9900006 wINTST 
33 01050 ee1a5S2" ot2 
34 g19S2 9@0175 JMP @TACRS) RETURN TO CALLER 
886856 
35 ’ 
36 01056 285765 TSTOXYs: TST T2cRS) OXY COMMAND? 
280068 
37 81062 881902 BNE TsTi 
38 01064 @62706 aoo #6,R8 
e0e8e6 
39 81670 800134 TSTts POLRET 
ao ’ 
LPSS Va@ie@) RTeLt MACRO VM@2009 LosOCT@74 82803931 PAGE 12 
: , eSBTTL SETUP DISPLAY TABLE 
, 
‘ ys ROUTINE TO SETUP A DISPLAY TABLE 
‘ 
5 y CALLS 
6 r MOV BADORESS OF TABLE,RS 
7 , JSR PC, OSETUP 
. ' R3 ON RETURN POINTS TO DSW IN TABLE 
, 
18 01072 OSETUPS: 
11 81072 B166e2 “OV 4CSP),R2 
088004 
12 01076 O11213 MOV CR2),(R3) 
13 81100 Q16263 MOV END(R2),DENDY(R3) SEND OF ARRAY 
eeege2 
eoegeu 
14 81186 866613 aod 2CSP),¢(R3) 
eeeee2 
15 @1112 085323 pec (R3)¢ 
16 81114 B85e23 CLR (R3)¢ 
17 @1t%6 816323 MOV oGCR3),/(R3)0 
177774 
16 @14322 016223 MOV DEL(R2),(R3)¢ 
oeeeie 
19 81126 ge1ad2e BNE OSET, 
28 81138 900137 vue OwERRARG 
2000006 
21 81134 G16213 DSET{: MOV END(R2),(R3) 
200002 
22 01140 161213 $uB CR2),(R3) 
23 81142 oe6a13 ase (R3) 
246 84144 812323 MOV (R3)o,(R3)% 
25 01146 o12713 MOV #4, C0R3) 
@00801 
26 81152 800207 RETURN RETURN TO CALLER 
27 ’ 
268 y ENTRY POINT FROM BASIC DURING 
29 1 THE DISPLAY, 
38 ’ 
31 01154 OISPLYs 
32 01154 B10206 MOV R2,0(S8P) 
3301156 o12702 Mov #RESOIS,R2 
oaoea0" 
34 O1162 806767 JSR PC, DSPLY 
280004 
35 @1166 B12602 MOV (SP)9,R2 HRESTORE R2 
36 @1172 880207 RETURN 
37 ’ 
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} ’ eSBTTL ACTUAL DISPLAY ROUTINE 
U 
3 » ROUTINE TO OISPLAY & SERIES OF POINTS ON THE CRT, 
4 ' 
5 9 CALLS 
6 ’ R2 POINTS TO DISPLAY TABLE 
7 ’ JSR PC,OSPLY 
8 ’ 
9 881172 OSPLYS 
1@ @1172 105762 TSTB OSW(R2) DISPLAY ON? 
oe0e14 
11 @1176 201506 BEG o1 gyNOt EXIT IMMEDIATELY 
12 01208 816262 MOV ONPTICR2),ONPTR(R2) pRESET NBR OF POINTS PER CALL 
@08016 
ee0e20 
13 @1206 Pb bate oSt CMP OPTY(R2),DENOY(R2) HAS Y BUFFER BEEN EXHAUSTED? 
00000 
a2ea24 
14 84214 181102 BHI o7 sYESt IGNORE POINT 
15 81216 817246 MOV @OPTY(R2),0(SP) ,GET NEXT Y VALUE 
900804 
to L222 211637 MOV (SP), @#LPOISY 
0800006 
17 @1226 B66262 ADD OISINC(R2),OPTY(R2) pBUMP TO NEXT Y 
eeoee2 
2000048 
18 81234 105762 TSTB8 OSx(R2) yX INCREMENT OR X BUFFER DATA? 
200015 
19 81240 G0;416 BEG be yX INCREMENT 
20 81242 B26262 cmp DPTX(R2),DENDX(R2) HAS X BUFFER BEEN EXHAUSTED? 
200006 
aooa2e 
21 01250 101018 BHI 09 nYE8t IGNORE POINT 
22 81252 817246 MOV @OPTX(R2),e(SP) sGET NEXT POINT 
eegede 
23 81256 011637 MOV (SP), @M#LPOISX 1X BUFFER DATA 
9000606 
24 BL26e Bo6262 400 OISINC(R2),DPTX(R2) sBUMP TO NEXT X 
200022 
080806 
25 01278 080427 BR 03 
26 81272 885726 D9 1st (SP) PVIGNORE POINT AND CLEAN UP STACK 
27 81274 Ba04S2 BR o7 
28 81276 B16246 Des mov DSTX(R2)e"(SP) yGET X INCREM AND OIVIDE BY 6, 
egeeee 
29 81302 16246 Mov OPTX(R2),0(SP) 
982006 
38 81386 d16246 MOV OISINC(R2),°(SP) sGET INCREM FROM Y AND USE TO 
eeeR22 
Bi O4312 162716 Dies sus #2,(S8P) ’ MODIFY X, 
eeeee2 
32 81316 ad34n4 BLE OM 
33 81328 266266 A00 OPTX(R2),2¢SP) 
260086 
oeoeee 
34 81326 280771 BR bie 
35 01330 085726 Dit: TST (SP)¢ 
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36 81332 B62062 400 CSP)o,DSTX(R2) UPDATE X AXIS 
eecoae 
37 G1336 age2te ASR (SP) 
38 81340 BB6216 asR (SP) 
39 81342 age2te asr (SP) 
4@ 81344 811637 Mov (SP),@MLPOISX yNOW TO THE X REGISTER 
2000086 
41 01352 822627 O33 cup (SP)¢,#7777 yX VALUE IN RANGE? 
807777 
42 81354 101020 BHI 012 yNOt IGNORE POINT THEN 
43 01356 22627 CMP (SP) eo, 87777 HOW ABOUT THE Y POINT? 
007777 
44 @1362 1201086 BHI 06 NOt INGORE POINT 
4S 01364 052737 81s #1,@MLPDISS sINTENSIFY DATA POINT 
00001 
eeoones 
46 @1372 105737 Dus TSTB8 O#LPOISS sWAIT FOR POINT TO GET UP THERE 
2000006 
47 91376 100375 BPL oa 
48 01400 aoa? Des oEC OLNPTS(R2) gALL POINTS UP FOR A COMPLETE SWEEP? 
00001 
49 @1484 883406 BLE o7 yYESs RESET COUNT AND RETURN 
5@ 81406 305362 vec ONPTR(R2) W"N® POINTS UP BEFORE RETURNING 
aeeg20 
Si , TO CALLER? 
52 01412 003275 BGT 05 NOt DO ANOTHER 
S53 @1414 e0207 Dis RETURN RETURN TO CALLER 
5&4 01416 805726 Dies TST (SP)¢ SIGNORE POINT ANDO CLEANUP STACK 
55 @1420 000767 8R 06 
S6 @1422 @16262 D7: MOV OSTY(R2),OPTYC(R2) sRESET OISPLAY PARAMETERS AFTER EACH 
eeogee 
eeoge4 
57 , SWEEP, 
58 81438 a16262 MOV OTNPTS(R2) /OLNPTS(R2) 
8200010 
eaeei2 
59 @1436 seeree TSTB OSX(R2) yIF X INCREMENT ACTIVE, SET X AXISeQ, 
88201 
6@ 31442 o01003 BNE 08 yNO 
61 81444 ga5a62 CLR OSTX¢(R2) 
ea00de 
62 21458 980207 RETURN sRETURN TO CALLER NOW 
63 81452 O16262 DS: MOV OSTX(R2),OPTX(R2) sRESET X POSITION 
eaeeoe 
eeeege 
“ @146e0 vacea7 RETURN WRETURN TO CALLER NOW 
6 ’ 
66 eoeeet? END ENO OF MOOULE 4 





LPS& VO19=2) 
SYMBOL TABLE 


ead 3 800018 
BUFRESS seenar 
CKRPARS eusave 
CLROL eea2e2R 
CLROG @0031a8R 
CLRO7? 88G350R 
DENDX.s 880026 
OISINCs 06822 
Orsi 080572R 
ONPTI = 020016 
OPTY ss 200004 
OSETUP @01072R 
OSTX ss 880062 
OSX = 000015 
OXY ee724R 


On 021330R 
os @01350R 
06 GG148ER 
09 oo1e7ar 


ERBUF = sennne 
ERRPOLs senene 
FAC! s 900040 
FPS @805G0R 
GET 8 698006 
GETOATS eaneee 
GETVARS tenane 
INTST 8 venene 
LPOISYs senwen 
MAXC 8880e2R 
NARRAYS weenen 
pc 8%000007 
Ps = 177776 
PUT = gee084 
RESOIS ageaeeR 
RETURN® 900207 
ROSAVES BG0004 
R2 8%0e0002 
R3SAVEs 900052 
SAVER2s senene 
sp 85008086 
STODATS snewne 
TABLE 8 enenen 
TST1 @61070R 
13 8 088062 
SIR B aereen 
eCOMMAS eenene 


» 468, 920080 
881462 
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BCDON 2 saanee G BEG == egeee0 
6 CKCMGNS® eeeanen G CKCOMAS wawenn G 
G CLRO OOBGEORG CLRO® 000176R 
CLRO2 g80254R CLROS) «= BBB2SER 
CLROS  @884G2R CLRDOG §=6gee4eeR 
CONBCOs suneee G DEL «== geee12 
DENOY & goag24u ors BeeSS4RG 
DISPAR @a1910R DISPLY @81150RG 
ors3 @ee620R OLNPTSs g00012 
ONPTR s 280020 OPTX #8 820006 
ORSNPTS anenee G ORSON @ saenee G 
OSET? 803134R OSPLY 901172R 
OSTY s 990000 OSw = 300014 
OTNPTSs 980018 Oxy 880700RG 
O1 @O14G1GR 018 @81416R 
b12 0@1312R o2 @a1276R 
oa 001372kR 0S 001206R 
07 O81422R 08 ea14sar 
END 8 800002 ENTERPS sennee G 
G ERNOR 8 weenne G ERRARGS eanene G 
6 ERRSYNs EVAL & eeneee G 


Fac2 28 
FSH 


FLOAT & aeanne G 
FSH G8G0G0R 
GETADOS GETBUFS sennen G 
GETNUMS GETV & aeeeen G 
MISTONS eaeane G6 INT 8 wennee G 
LPOISSs seavean G LPOISXs weeene G 








aoog 





LPSIP = waenne G LPSIVAS anawane G 
MAXO @e0ceaR MAXP O88G6GR 

G NONRES 900030R NUMSGNS® eaneen G 
POLENTS sennne G POLRETS 080134 
PUSHRE @80G66R PUSHE O8aa7aR 
PUTO 88OS512RG REGSAVS aenene G 
RESTORE anenae G RESTR2e asenen G 
RTSON 8 auneen G RO #x000000 
Ri aX000001 RISAVER Oa004u6 
R2SAVEs 000050 R3 8%800083 
Ro sxeeoega RS 84900865 

6 SAVFACS sannee G SAVINTS annane G 
SSi1SAV= 990024 SS2SaVe 000026 

G STORXTs sannen G STOVARS weenee G 

6 TRAFAC @08454R TSTOXY @01856R 
T1 = 000056 T2 = 080068 
VARSAVS 908022 Sovr wenan G 

G SMLR © ennene G SPOLSHa sennew G 


6 eLPAR © eanene G sRPAR w wannen G 


eee 
eet 


ERRORS DETECTED: @ 
FREE CORES 17734, WORDS 


LPSG,LPsaLPsa 


PERPAR == PERIP 


C@e4n~eTUNEWN 


33 880008 


37 eeegne 


4e 900000 
47 200000 
48 200000 
49 b00008 


53 oeeeae 


HERAL SUPPORT PA RT#11 MACRO VM@2009 LonOCT=74 02106807 PAGE 1 


eTITLE PERPAR == PERIPHERAL SUPPORT PACKAGE PARAMETER MODULE, 


DEC#1 LoL BPAA@AoLA BASIC KERNEL VO2=01 


COPYRIGHT (C) 1974 


DIGITAL EQUIPMENT CORPORATION 
MAYNARD, MASSACHUSETTS 01754 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 
CHANGE WITHOUT NOTICE ANO SHOULD NOT BE CONSTRUED 
AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION, 
DEC ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
MAY APPEAR IN THIS DOCUMENT, 


THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A 
LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND 
CAN BE COPIED (WITH INCLUSION OF DEC*°S COPYRIGHT 
NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS May 
OTHERWISE BE PROVIDED IN WRITING BY DEC, 


DEC ASSUMES NO RESPONSIBILITY FOR THE USE 
OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT 
WHICH IS NOT SUPPLIED BY DEC, 


ee ee ene ee ee ne ee ne ee we we ee we te ee we 


THE CONOITIONALS CONTAINED IN THIS MODULE AFFECT THE ASSEMBLY 
OF THE FUNCTION TABLE MOOULE "FTBL,MAC", 

TO OBTAIN THE DESIRED CONDITIONAL DEFINITION(S), 

REMOVE (USING AN EDITOR) THE 


9 SEMI@COLON APPEARING BEFORE THE CONDITIONAL, 
pSDISKs@ DEFINE FOR RT#=11 
elFNDF SOTSK 
SSTRNGSO #00 NOT DEFINE FOR PTS BASIC WITHOUT 
ISTRINGS,* DEFINED FOR PTS V@i WITH STRINGS 
oENOC 5 
SLPSaQ OEFINE FOR LPS 
oIFOF SLPS 
+SV30 JOEFINE FOR LPS WITH VECTORS STARTING 
’ ’ AT 380, DEFAULT SETTING IS VECTORS AT 
’ ] 340, SET SV = ANY OTHER DISPLACEMENT IF 
’ ' VECTORS START AT DISPLACEMENTS 
, ’ OTHER THAN @ OR 4@ FROM 
’ ’ VECTOR 308 
Sa0cee VINCLUDE A/D ROUTINES, 
SCLKa@ PINCLUDE CLOCK ROUTINES, 
SOrOse VINCLUDE DIGITAL I0 ROUTINES 
SOISa@ VINCLUDE DISPLAY ROUTINES, 
oENDC ySLPs 
U 
s 
SVT118@ 1FOR GT4@ (GT44) 


es 


Q 
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58 
so 
68 
61 
62 
64 
65 
66 
67 
68 
69 
78 
7 
72 
73 
74 
75 
76 
77 
78 
719 
6a 
81 
82 
83 
84 
8s 
86 
87 
68 
89 
98 
91 
92 
93 
98 
95 
% 
97 
98 
99 
180 
101 
102 
103 
104 
185 
106 
107 
108 
109 
110 
ani 
112 
113 
414 
115 


GTB 


116 
117 
118 
119 
120 
121 
{22 
123 
124 
125 
126 
127 
128 
129 
13@ 
a3t 
132 
133 
134 
135 
136 
137 
138 
139 
14a 
141 
142 
143 
{aa 
145 
14e 
147 
148 
149 
158 
151 
152 
153 
156 
155 
156 
187 
156 
199 
160 
161 
162 
163 


eIFOF = SVTI4 


@808e8 SCLOCKaa aFOR SYSTEM CLOCK (KWEIL) 


sENOC 


€or 
e TITLE ST6 V@1~981 BASIC @ GT ROOT MODULE 


OEC = 11 = LePGB © A @ LA BASIC KERNEL VO20Q1 
GTB,MAC TAPE 1 OF 4 


THE INFORMATION IN THIS LISTING IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION, DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS LISTING, 


THIS SOFTWARE IS FURNISHED TO THE PURCHASER UNDER A LICENSE 

FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH 

INCLUSION OF DIGITAL*S COPYRIGHT NOTICE) ONLY FOR USE IN 

etree EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY 
Ale 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE 
USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT I8 NOT 
SUPPLIED BY DIGITAL, 


COPYRIGHT (C) 1973,1974, BY DIGITAL EQUIPMENT CORPORATION, 


ee ee ee ee we 


AUTHORS OR, STEPHEN R, ALPERT AUGUST 1973 
vIFOF © S0ISK 

eSBTTL GLOBALS, EQUATES 

sENOC 


SLPSsO 9 TAKEN CARE OF BY GTNLPS 
eIFOF =6SLPS 

eGLOBL = NARRAY, TABLE, FLOAT 

eENDC 

eIFNOF = =6SOEPTH 

SOEPTHE1Q, 9 184 CALLS DEFAULT 
oe ENOC 


» GLOBAL FROM BASICH OR BASICL FOR INTERRUPT 
2GLO8L USRAREA 


y GLOBALS FROM BASICL 


+GLOBL OSTOP,DISEND, ACTENO, BEG 
sGLOBL DCRASH,WO1,W02,0LDMOD 
eGLOBL ,COMMA,,LPAR, »RPARy EOL 
sGLOBL EVAL, ERRSYN, ERRARG, INT 
sGLOBL GETVAR,STOVAR 

+GLOBL NUMOUT, MSG 

sIFOF © SOISK 

sGLOBL IGNORE 

sENOC 


y GLOBALS FROM FPMP 
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eGLOBL SIR, SMLR, SOVR, SADR, SSBR, SERVEC 


1 GLOBALS FOR INTER*MODULE COMMUNICATION 
»GLOBL NSTSK, INSRTF,TAG1,ACTST,DISEND 

»GLOBL SCAL,VECT, ROOT, APNT, STAT, TEXT 

eGLOBL ON, OFF,NOSC, TAGEND, AOSTK, BUFTST 

+GLOBL SUBP,ESUB, LPEN, TRAK, ERAS, CONTA, CKEOL 
sGLOBL INIT, INITA,DSTP, STOPA,CONT, XGRA, YGRA, AGET, APUT 
sGLOBL FIGR,FPUT,FIX@,FIXSP,FIX 

»GLOBL OPC, 0SR,DISX,DISY,GTVECT 

eIFOF = SCLOCK 

+GLOBL TIME, TIMR 

sENOC 

eIFOF © SDISK 

+GLOBL SAV2U,SAVERT, CLOSALL, FREEG, FREE 

vENOC 

+GLOBL SC,USC, TAGSRH,SCL,X,SCL,Y, ABS, F 


» EQUATES FROM BASIC USER AREA 


aeeeee VARSAVS22 
eeeeed SS1SAVE24 
@ee0e26 SS2SAVz26 
260040 Fact aaa 
geeaue FaCesu2 
o0oe1e ARRAYS810 
oeceie HIFREES12 
oeeat4 LOFREEsta 
O8oe44 ROSAVERBGY ) FOR FRPSAV, FPPRES 
THE FOLLOWING DEFINITION PAIR IS LEGITIMATE (IE, NOT 
YIN THE VECTOR DEFINITION MODULE ["PERVEC")) SINCE THEY 
ARE FIXEO, THEY CANNOT FLOAT, 
oe IFOP SCLOCK 
900108 LKV=100 sCLOCK INTERRUPT AORESS, 
177546 LKSB177546 CLOCK STATUS REGISTER 


eENOC rSCLOCK 


, THE FOLLOWING I$ TO INSURE THAT THE ORIGINAL 

’ STACK POINTER DOESN°T CLOBBER ANYTHING IMPORTANT 
a TFOF SOISK 
eASECT 
de 
«WORD OCRASH+4ea y REPLACE 2400@ IN BASIC 
oCSECT 
sENOC 


aT FOF SOISK 


ao 


GT 


OOneuNeune 


Oe oe oe oe moe ee oe 
Cerne uveun=-o 


GTB 
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o0eee4 


80086 
80006 


eoete 
86016 


00829 
aee22 


20026 
@ad26 


00032 
08036 
26048 
20040 


eeoGa 
28046 


eaese 


eeas4 
20056 


eeceeo 
eoeeet 
eeegne 
e02oe3 
8e2e04 
880005 
080006 
000007 


177776 
280207 
000134 
882200 
080348 


16¢080 
173408 


@16546 
e2eeqae 
000134 


004767 
0880086 
085765 
oeegue 
001001 
000134 
000167 
0000006 


@12467 
eeeg2e 
010467 
80ee20 
200134 


005367 
eoea18 
003402 
@16704 
200004 
000134 


880008 
800008 


SAVINTS 


INTEGRE 


INTEG@s 


’ 
PLOOPs 


ELOOP: 


ELOOP@s 


LOOPCTs 
LPAORS 


eSBTTL ASSIGNMENTS 
eENOC 
AeeneneteaenarenenerennatannenenaennenNe 


9 REGISTER ASSIGNMENTS 


ROSX8 

Riaz 

R2ax2 

R38x3 

Rasxs 

RSsxs 

SPaXo 

PCax7 

9 MISCELLANEOUS ASSIGNMENTS 
PSnne2 y PROCESSOR STATUS WORD 
RETURNS207 y 3 RTS PC 
POLRETS134 ym SMP @O(RG)e 
PR4S200 » PRIORITY & 
PRIB340 y PRIORITY 7 
OJMPs169000 y DISPLAY JMP 


SOINTS1734Q@ ©»: STOP OISPLAY AND INTERRUPT 11 
eIFOF © SOI8K 
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eSBTTL MISCELLANEOUS ROUTINES 

ENOC 
eSorrrTTTTerTTTTTTTTTreri Titi irri y tT 
» MISCELLANEOUS ROUTINES 


MOV FAC2(RS),e(8P) 3 SAVE {eWORD INTEGER 
POLRET 9 8 JUMP @(RO)e 
RAARAAEARARN EERE AR AA ARERR E RARER HEAD 

y ROUTINE TO INTEGERIZE THE FAC TO A SINGLE WORD 


y INTEGER, WILL CRASH IF ARGUMENT TOO LARGE 
y RESULT ALSO IN FAC, DESTROYS RO 


JSR PC,INT 1 GO TO *INT® OF BASICL 

Tst FACI(RS) 9 DID WE SUCCEED? 

BNE INTEGO 1 BR IF > 32767 

POLRET 

JMP ERRARG y ARGUMENT ERROR, TOO LARGE 


RAARAARAAAEAAARRAREAAREAERATRARERNAR REA 


MOV CRG) +, LOOPCT 9 GET COUNT, JNOT REENTRANT] 
MOV Ra, LPAOR y SAVE LOOP ADDRESS 

POLRET 

oec Looper » DECREMENT LOOP COUNT 

BLE €L00Pa » BR IF DONE 

MOV LPAOR,RU 9 GET LOOP ADORESS 

POLRET 

pa ; ehh oh ee thom 


vi) 


A 


GT 


wee Oe NOU FUN 


A ree 
SV0eweovewun~-e 


ww 
a ue 


~ 
e 


nw 
rw 


nun 
on 


wen 
-a oO 


Vee Vow Ww 
Orne Wew w 


ww 
o 


ae 
at 
42 
a3 
4g 
45 
46 


GT 


“7 


48 
ag 


58 
51 
Se 
53 
sa 
$s 


56 
57 
58 
so 
68 
ot 
oe 


63 
64 


65 
66 


67 
68 


69 
78 
71 
72 


73 
74 
7s 
76 
17 
78 
19 
68 
81 


82 
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200860 
980060 


@ee064 
220806 
280066 
00072 


oee74 


88076 
8ea7e 
00100 


06104 
88186 


ee1se 
00134 


00120 
Oe122 
oe124 
88130 
134 
88136 
@8136 
ea142 
eo1404 
O@146 


00152 


20156 
88156 


a0162 


80166 
80178 


@0174 


Q@176 
00176 


ee282 


08204 


08210 
00210 


ee2i4 
88216 
ge224 
86226 
00232 


oe23a 
aee3a 


20240 
oe2ua 
@0246 
Oa24e6 
20250 
ee2su 
80256 
R8256 
20262 


80266 


005067 
o8oe1e 
000134 


010667 
eoeeae 
280136 


000000 


112102 
120227 
8000006 
Oo1d1a 
005767 
177762 
eo1415 
120227 
8000006 
81912 
@e53a1 
905065 
oeea4de 
285965 
eesede 
800134 


004767 
0000006 
103403 
800134 
000167 
800880G 
000167 
8088086 


012704 
000166" 


017687 
280000 
080170" 
ee271o 
e0e0eee 
280207 


@62716 
180008 
000136 


012746 
@00278° 


085767 
810376 
8014040 
@20727 
CGQ414 
177777 
erlaae 
OB4767 
eb2252 
800207 


616546 
eageu2e 
@16546 
000048 
080134 


025046 
@12746 
240208 
080134 


12665 
eeoe4e 
012665 
aeogde 
000134 


! 


SETNECS 


SETOPTs 


OPARGFs 


GETNUMS 


ZERNUMS 


GETONE? 


GETSYNs 


GETARGS 


' 


ENTERPS 


RETURPS 


, 
NEGSTKs 


BUFPOL? 
BUFTST?# 


BUFTOS 


PUSHS 


PUSHIE 


POPE 


RHAAAAARARARERERERARARARERERER ERE R EEE 


CLR OPARGF 9 CLEAR OPTIONAL ARG, FLAG 

POLRET 

MoV SP, OPARGF 1 SET OPTIONAL ARG, FLAG 

POLRET 

oWORD @ 9 OPTIONAL ARGUMENT FLAG (ai IF OPT) 


AARAARERARAERARAERARAERERRAAREERARARHAE 


ROUTINE TO CK "," ANO GET NEXT ARGUMENT INTO THE FAC 
IF OPTIONAL ARGUMENT FLAG I$ SET AND ARGUMENT I$ NOT 
PRESENT, @ WILL BE RETURNED, 
BECAUSE OF "EVAL" FROM BASICL, USES ALL REGISTERS 
ON ENTRY? Ri MUST POINT TO WHERE COMMA SHOULD BE, 
wee NOTE THAT RU HERE IS POLISH PC AND NOT THE 

STACK SIZE THAT EVAL EXPECTS!) 


~~ ew wee 


Move CR1i)o,R2 9 GET NEXT TOKEN? 
cMPB R2,#,COMMA 9 18 IT A COMMA? 

BEQ GETONE 9 YESe GET A NUMBER 
TST OP ARGF » NOw WAS ARG, OPTIONAL? 
BEO GETSYN 9 NO# ERROR 

CMPB R2,#,RPAR yp YESe [3 IT a *)" 2 
BNE GETSYN y NOe ERROR 

DEC Rt 9 YESe POINT AT IT 
CLR FACICRS) 

CLR Faca(rs) 9 PUT @ INTO Fac 
POLRET 

JSR PCr EVAL 9 EVALUATE EXPRESSION 
acs GETARG y ERROR IF STRING 
POLRET 

JMP ERRSYN 9 SYNTAX ERROR 

JMP ERRARG y ARGUMENT ERROR 


REAAAREREARARAAAARARAARARARRAREREHER ERED 


y IMMEDIATE POLISH FOR ONE ROUTINE 


MOV #RETURP,RG 
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MOV @(SP),PC 9 GO TO ROUTINE 

ate 7 RETURN HERE FROM ROUTINE 
aoo #2, (SP) 9 ADJUST FOR POLRET 

RETURN 


RRARREKEARAARAAERAREEAAE TEETER ERAN 


ado #108008, (SP) y NEGATE STACK 
POLRET 
SPHRERERAANARENERR ANNA 


y ROUTINE TO TEST IF BUFFER ALLOCATED 


MOV WPOLENT,*(SP) 5 FAKE JSR PC 

1st OCRASH 1 BUFFER ALLOCATED? 
Bea BUFTO y NO# 00 IT 

cMP DISENO,#=1 y INIT BEEN DONE? 
BNE ote » YESe BRANCH 

JSR PC,INITA ) INIT AND ALLOCATE BUFFER 
RETURN 

Mov FAC2(R5)5@(SP) 

MoV FACICRS)»=(SP) 4 PUSH FAC TO STACK 
POLRET 

CLR °(SP) 

MOV #60200,°(SP) 9 PUT 1,0 ON STACK 
POLRET 

MoV (SP), FACI(RS) 

MOV (SP)o,FAC2CRS) 9 POP STACK TO FAC 
POLRET 


55 


% 


GT 


—- oO oe MOUSE URE 


- GT 


Se 


53 
sa 


$5 
So 
57 


sé 
59 
68 
61 


62 
63 


64a 
6S 
66 
67 
68 
69 
78 
1 
T2 
3 


74 
7s 
To 
17 
78 
79 


60 
6t 
82 
83 


bu 
65 
86 
87 
68 
89 


90 
say 
92 
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000278 

eeve7e a12604 

800272 205907 
177576 

@00276 122127 CKLPAR: 
0800086 

800382 001001 

G83e4 G001346 

8@306 GBG167 CKLSYNe 
geeeees 


00312 
88312 Bi2zeea 
@0314 200134 


POLENTS 


QIKPOLs 


80316 

00316 122127 
0000086 

88322 B81004 

e324 

@o326 121127 
88600006 

@e33@ 981901 

0332 GETOUT: 


CKRPAR 


CKEOLs 


80332 900207 


00334 020167 CKRPAGs 
8888006 


' 


ee34ue 
80340 B10046 
86342 205000 
00344 085700 SKPA3s 
08346 901003 


SKPARG? 
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08358 121127 
2000006 

08354 a1u16 

8@356 121127 SKPAGs 
eeeeeeG 

@0362 e01001 

Ge364 ge5200 

00366 121127 SKPALS 
eoeeoes 

00372 881002 

20374 285300 

88376 100405 

00400 122127 SKPA2s 
0000086 

@8494 201357 

00406 800167 
8000006 

@8412 212608 SKPAG? 

80414 900134 


O0416 
98416 262785 
eoegua 
@e422 a10025 
Bea24 810125 
20426 010225 
@043A 010325 
08432 B12625 
OB434 162705 
200056 
98488 800134 


FPPSAVS 


Ga4a42 
@8442 962705 
eeoeua 
00446 812588 
00450 012581 
0e4S2 a12e502 
88454 12533 
08456 812546 
28468 162705 
080056 
00464 gages 


FPPRES?: 
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PRAREAERAEAAREAEEREREARERAERRAEARERHRERE 


9 ROUTINE TO START POLISH AND CHECK POR LEFT PAREN, 


MOV (SP)o,Ra » SET UP POLISH PC 

CLR OP ARGF 1 SET ARG, NECESSARY FLAG 
cuPB (R1)o,@,LPAR y FIRST TOKEN A "(* 2 

BNE CKLSYN » NOe ERROR 

POLRET 

uMP ERRSYN 9 SYNTAX ERROR 

MOV CSP)6,RQ » SET UP POLISH PC 

POLRET 9 ANO ENTER POLISH MODE 


RRARAAHRARAAERRERARAERARAREHRREKERAREEEN 


9 GENERAL EXIT ROUTINE WHICH CHECKS FOR RIGHT PAREN 


» CALLED BY ¢ JMP CKRPAR 

cuPa CRI) o, A RPAR 9 A RIGHT PAREN? 
BNE CKRPA® 1 BR IF NOT 

cmPB (R1i),#,E0L » AND END@OP LINE? 
BNE CKRPA® 9 NOe ERROR 

eIFOF 8 =©6SDISK 

rst (SP) y CLEAN STACK 

MOV CSP)4o,RS 

MOV CSP)o,Ra 

MOV (8P)o,R1 » RESTORE BASIC REGISTERS 
ump IGNORE » EXIT THRU BASICR 
2 ENOC 

alFNOF §=6SOISK 

RETURN 

eENOC 

Pilg ERRSYN » SYNTAX ERROR 


RERAAARAARARAARRERRARAAERRARARERERERARER 


» ROUTINE TO SKIP AN ARGUMENT IN CALLING SEQUENCE 
9 RY POINTS TO FIRST TOKEN OF ARGUMENT ANO ROUTINE 
) SEARCHES FOR A "COMMA", EXIT POINTING TO *,* 


“MoV RB,=(SP) 4 SAVE R@ ON STK 

CLR RO y ASSUME NO PARENTHESES 
rst RO 9 ANY PARENTHESES YET? 
BNE SKPAg 1 YESe BRANCH 
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CMPB (RI), HeCOMMA =: DID WE FINO A COMMA? 
Bea SKPAg ) YES= EXIT 
CHPB (R1), #4 LPAR ware 

” ane SKPAL ) NOe KEEP LOOKING 
INC RO ) YESe INCREMENT NEST DEPTH 
CPB (R10, #eRPAR pA Ryne 
BNE SPa2 ) NO= BRANCH 
DEC Re ) DECREMENT NEST COUNT 
BMI SKPAQ 1 BRANCH IF EXTRA #9 
CMPB (R16, #, EOL ) END OF LINE ? 
BNE SKPA3 1 NOe LOOK SOME MORE 
MP ERRSYN 1 YESe ERROR 
mov (SP)6,R@ 1 RESTORE RO 
POLRET y RETURN IN POLISH 


POLISH REGISTER SAVE ANO RESTORE 
9 FPPSAV CALLED BY JSR RG 
1 FPPRES CALLED IN POLISH MODE 


400 WROSAVE,RS 9 POINT TO SAVE AREA 
MOV RO, (RS)¢ 

MOV Ris (RS)> 

MOV R2,(RS)e 

MOV R3,(RS)¢ 

MOV CSP) 0, (RS)% 

sua BROSAVES12,R5 

POLRET y ENTER POLISH MODE 
aoo MROSAVE,RS 

MOV (RS) o,RO 

MoV CRS)o,R4 

Mov CRS) o,R2 

MoV (RS) ORS 

MOV (RS) o,0(SP) 

sua #HROSAVESL2,R5 

RTS RG y RETURN IN EXEC MODE 
eIFOF = SOISK 


Ib 
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eSBTTL STOP OSSPLAY INTERRUPT ROUTINE 


RARAAAAAHARAEAAERRERARARARERHERANEH EERE 


1 

2 sENOC 

3 ’ 

4 

5 ’ 

6 ’ 

7 ’ 

8 ’ 

9 » CASE 

10 1 CASE 

a ’ 

12 

13 @@466 DISINTS 

14 80466 022767 CMP 
810610" 
2800006 

15 80474 9a1004 BNE 

16 82476 912767 MOV 
160800 
810102 

17 00504 o@aaae RTI 

18 88506 @10046 D180; MOV 

19 90510 o10246 MoV 

28 08512 216720 MOV 
0800086 

21 80516 012002 Mov 

22 

23 e0S2e aa1ui4 8EQ 

24 40522 B20002 CMP 

25 00524 101022 BHI 

26 80526 862767 VY} ) 
aveoee 
G20626 

27 80534 810077 MoV 
20622 

28 80540 811967 MOV 
8000086 

29 80544 aiz6e2 SUBis MOV 

38 88546 012600 MoV 

31 00550 geease RTI 

32 00552 01770@ SuBe: MOV 
aseeou 

33 80556 162767 sua 
eoogee 
28e@576 

34 90564 G14067 Mov 
ee0gees 

35 00570 000765 BR 

36 08572 016740 SUB2s MOV 
080144 

37 88576 16740 Mov 
080136 

38 80602 016720 mov 
200030 

39 a06e6 205740 TST 

4@ 8618 210067 MOV 
eeoges 
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41 00614 o857428 TST 

42 @8616 810067 MOV 
eaoer4 

43 08622 905067 CLR 
eecoee 

44 00626 024767 JSR 
202036 

4S 00632 e00744 aR 

46 

47 08634 YO2GG INSRTFs ,WORD O 

48 80636 177777 DISENDS ,WORD @1 

49 00648 BBG002 ACTEND? ,WORD @ 

5@ 80642 200000 ACTST: WORD 

51 

52 

53 oIFOF 

54 


ROUTINE TO PROCESS "SDINT*® FROM OPU 
CASE 18 CALL TO SUBPICTURE, THEN CONTENTS OF X 


CIN DPC) ARE GREATER THAN Xe2 
X IS THE ADDRESS OF THE WORD AFTER "SDINT® 
21 EXIT FROM SUBP, THEN CONTENTS OF X 8 @ 
3: ADD ON AT END OF FILE, THEN 
CONTENTS OF X «< 


#OSTOP,OPC 


orsa 


SOIMP,DSTOPo2 


RO, "(SP) 
R2,°(SP) 
OPC,RO 
(RO)o,R2 
$uBe 
RO,R2 
suBbe 

#2, AD8TK 
RO, @ADSTK 
(R®),OPC 


CSP)o,R2 
(SP)o,RO 


@AOSTK,RE 
#2,A0STK 


=(RB),DPC 


$u8i 
WO2,@(RO) 


WOL, 0 (RO) 
OISEND, RO 


#(RO) 
RO, ACTEND 


’ 


Xe2 


OID WE STOP IN TIGHT LOOP? 


y NOe CONTINUE 


~~ 


RESTORE FILE 


YES= DON*°T RESTART IT, EXIT 
SAVE RO 

SAVE R2 

WHERE DID DPU STOP? 


R2 CONTAINS CONTENTS OF X 

R@ CONTAINS Xe2 

BR IF CASE 23 END OF SUBPICTURE 
COMPARE X#2 WITH (X) 

BR IF CASE 34 ADD TO OPY FILE 
INCREMENT DPY ADR STK PTR 
STORE Xe2 IN STACK 

START DPC GOING IN SUBPICTURE 
RESTORE R2 

RESTORE RO 

AND RETURN FROM INTERRUPT 

PuT Xe2 INTO RO 


DECREMENT OPY ADR STK PTR 


PUT (X) INTO OPC 


AND EXIT 
INSERT WORD 2 


INSERT WORD 3 
GET NEW ENO OF DPY FILE +2 


POINT AT ACTUAL END 
STORE IT 
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#(R@) 
RO, DISEND 


INSRTF 
PC, INITS 
Subs 


~~ ee 


POINT TO NEW DISEND 
STORE IT 


CLEAR INSERT PENDING FLAG 
RESUME THE DPU 
AND EXIT 


INSERT PENDING FLAG (WHEN SET) 
POINTER TO NEW SLOT IN DOPY FILE 
POINTS TO END OF RUNNING OPY FILE 
LO#END OF DPY FILE 

PRECEDED BY 1 OR 2 WORDS 

(2 IF $O0I8SK DEFINED) 


5 / 
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4 serTk INSERTION INTO DPY FILE ROUTINES 
N 
3 , deaewcaadedcadesssdaaasensaadadengsesad 
4 
5 ) ROUTINE TO INSERT WORDS INTO OPY FILE, THE FIRST TWO WORDS 
6 } ARE SAVED IN WO%, ANO WO2, TO OVERLAY THE LAST TWO ENTRIES 
7 1 IN THE RUNNING DISPLAY FILE, 
8 } CALLED BYs JSR PC,PUTWO 
9 1 WORD TO BE INSERTED MUST BE IN Re 
18 
11 
42 80644 NEWPUTS 
13 @@644 a95¢67 cLR OLDMOD ) SO NEXT SGM WILL BE INSERTED 
ov1ii4 
14 e0050 PUTWOE 
15 eg65e g1e2d6 MOV R2,0(8P) SAVE R2 ON STK 
16 @@e52 o12782 PUTS! MOV ADISEND, R2 } GET CURRENT ENO OF OPY FILE 
200636" 
17 0656 B26712 cup DCRASH, (R2) ) END OF DPY FILE 
807730 
18 aa6e2 123003 BHIS == PUTT 1) NO@ CONTINUE 
DFOERR: 
1944080 TRAP 
sIFNOF  SLONGER 
104 sASCIT /0FO/ 
106 
117 
eENDC : 
vIFDF — SLONGER 
cASCIE /DISPLAY FILE OVERFLOWS 
eENDC 
27 aa071 «= a8 .BYTE @ 
26 EVEN 
29 aGe72 085767 PUTTS TST INSRTF 1 38 THERE AN INSERT PENOING? 
; 177736 
30 09676 201375 BNE put7 } YESe WAIT UNTIL IT IS FREE 
31 98708 a26712 PUTos CHP ACTEND,y (R2) ) HAVE WE INSERTED ANY WORDS YET? 
177734 
32 00704 101907 BHI Puts 1 NO= STORE IN WO4 
33 ga706 201411 BEG put2 1) YESe ONE® STORE IN WO2 
34 ge710 10072 mov RQ, e¢(R2) } MORE THAN TWO, PUT IT IN LINE, 
ovegee 
35 9e714 ae27i2 PUT3s ADD #2,(R2) 1 INCREMENT DPY END PTR 
eeege 
36 98728 a12002 MOV (SP) o,R2 y RESTORE R2 
37 e722 oee207 RETURN » EXIT 
38 90724 910067 PUTIs MOV RO,nOt y STORE IN WORD 1 
oege1e 
39 08730 000771 BR puT3 AND EXIT 
4@ e732 @10067 PUT2: MOY RO, Woz 4 STORE IN WORD 2 
evoga4 
41 00736 Bee7e6 eR PUTS » AND EXIT 
a2 
43 @@74@ o@eeae WO1s WORD @ 1 FIRST TEMPORARY WORD 
44 ge742 ageeee WO2t =, WORD @ 1 SECOND TEMPORARY WORD FOR DPY FILE 
45 
cy) , RAERAAAAARARRERRAARRARRAAAAAARARRAARE EE 
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47 

ua 9 ROUTINE TO SET UP THE INSERT INTO THE OPY FILE, 

ag 9 THIS ROUTINE WILL BE CALLED BY EACH ROUTINE AFTER IT 

58 9 HAS DONE ALL OF ITS *PUTWOR, IT IS USUALLY FOLLOWED BY 

He y & JUMP TO CKRPAR, CALLED BY: JSR PC, INSERT 

S53 ga744 INSERTS 

$4 88744 895777 TST ONSTSK 9 WOW ARE WE DOING ON SUBP? 
e004u42 

$5 @075@ 8@1015 BNE INSXIT ) NOT @© STILL IN A SUBP 

S6 88752 012708 MOV WOUMP,RO » PUT DJMP INTO RO 
160000 

57 80756 es JSR PC,PUTWD 9 STORE AT END OF DPY FILE : 
177066 

58 ae762 tienes MOV ACTEND,R2 » GET LOOP ADORESS 
1776 

59 80766 011200 MOV (R2),RO » KEEP THE POINTER TOO 

6@ 80770 oenret JSR PC, PUTWO 9 STORE IT AT NEW END OF OPY FILE 
177654 

61 @a774 o1eee! MOV SP, INSRTF 9 SET INSERT PENDING FLAG 
177634 

62 81000 oes “OV #SOINT,@(R2) » PUT SDINT AT OLD END 
173408 

63 @1004 80207 INSXITs RETURN y= RTS PC 

64 eIFOF = =©6S0ISK 


5% 


GTB 


NMOWUEUMe 


8 a 
9@ 


35 


36 
37 


38 


39 
48 


GTB 


$9 
60 


6t 
62 
63 
64 
65 
66 
67 
68 


69 
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@18e6 
81806 


1012 
area 
81016 
81020 
81822 
e1ee4 
81026 
81030 
e1a32 
81034 


1048 


81844 
81046 


1052 
810s4 
81056 
81862 
81066 
e19872 
@1076 
1100 
e1102 
O1106 


B1118 
B11te 


1120 


@1126 
O1130 


1136 


O114a 
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@1146 
G1146 


84158 


O15) 
@1152 


1153 


@1154 
81160 
@tLo6d 
81166 
01170 
@1174 
1200 
01206 
a1218 
a12e14 
@1222 
1220 
1230 
12346 
@1236 
@1240 


@i2aa 


O84767 
177172 
008136° 
@20086" 
beegeo? 
880066" 
080076" 
280006° 
e800e0° 
881032° 
802002 
20167 
20000086 
816602 
e0eea2 
803773 
004767 
280342 
005700 
O01367 
12700 
173008 
@04767 
177562 
016760 
177544 
062708 
220010 
12602 
011646 
818266 
e8e00e 
eo1ee2 
885020 
062767 
oeege2 
e80272 
@22767 
ee1aie? 
880264 
181407 
@160777 
177502 
eee2sa 
062767 
806002 
177072 
eeeus3 


104400 


ee 
Vee 
Uae 


204767 
177078 
Q04767 
000230 
885700 
@81722 
®160008 
177774 
004767 
177458 
Q160777 
177432 
800238 
812600 
004767 
1774034 
016767 
177416 
Geg2i4 
o25000 
004767 
177414 
OO4767 
177510 
61260280 
Beleae 
804767 
177406 
@a0167 
177006 


SUBPy 


SUBP {3 
SUBPO: 


NSTERR¢ 


SUBP2t 


SUBP32 


eSBTTL 
oENOE 


"SUBP" ROUTINE 


RARAEAARAAAAAARERERAREARARRERRAREREREED 


» ROUTINE TO HANOLES 
CALL "SUBP" (T (,71)) 


JSR 


BGE 
JMP 


MOV 


BLE 
JSR 


T8T 
BNE 
MOV 
JSR 
MOV 
400 
MOV 
MOV 
MOV 
BNE 


CLR 
a00 


CMP 


BLOs 
MOV 


400 


TRAP 
e TFNOF 
ASCII 


sENOC 
»IFOF 
ASCII 
eENOC 
BYTE 
EVEN 
JSR 
JSR 
TST 
BEG 
MOV 
gsr 
mov 
MOV 
JSR 
Mov 
CLR 
JSR 
JSR 
Mov 
BNE 
JsR 
gmp 


a lFOF 


PC, BUFPOL 


+GETONE 
+INTEGR 
*#SAVINT 
*SETOPT 
*GETNUM 
+INTEGR 
oSAVINT 
ote 
suePe 
ERRARG 


2(8P),R2 


SUBP) 
PC, TAGSRH 


Re 

SUBP{ 
WSOINT,RO 
PC,PUTWO 
OISEND,RO 
#10,R8 
(SP)o,R2 
(SP) ,0(SP) 
R2,2¢8P) 
SuBP2 


(ROI¢ 
#2,NSTSK 


#NSTSK,NSTSK 


NSTERR 
OISEND, ONSTSK 


#2,01SEND 


SUBP3 


' 
’ 
U 


ENTER POLISH AND CHECK "(* 


GET FIRST PARAMETER 
INTEGERIZE TO 32767 OR LESS 
SAVE INTEGER ON STACK 

Ti 18 OPTIONAL ARGUMENT 

CHK "," AND GET Ti (ELSE 2) 
INTEGERIZE YO 32767 OR LESS 
SAVE Ti ON THE STACK 

ANO EXIT FROM POLISH MODE 
BR IF T1 >a @ 

ARGUMENT ERROR 


MOVE T TO R2 

BR IF T <2 @ 

LOOK FOR T IN FILE, BETTER NOT FIND IT 
ERRORe TAG ALREADY IN USE 


PUT IN SOINT FOR SUBP CALL 


AOR OF THE SUBP 

PUT TL INTO R2 

MOVE 7 DOWN ONE PLACE 
PUT Ti BACK ON STK 

BR IF 2 PARAMETER CASE 


ZERO WORD BEFORE SUBP 
ADD 2 TO CALL SUBP PTR 


ARE WE POINTING TO OURSELVES? 


YESs OVERFLOW STACK DEPTH 
NO= SAVE PTR FOR REST=OF=FILE PTR 


BUMP PTR PAST THAT WORD 


CONTINUE 


RT#14 MACRO VMG2=09 16*OCT]#7U 82206107 PAGE 8+ 


@ 
SLONGER 
7INS/ 


SLONGER 


/IMPROPERLY NESTED SUBPICTURES/ 


PC,PUTWD 

PC, TAGSRH 

Re 

SUBP 
#4(RO)/RO 
PC,PUTWD 
DISEND, @TAGEND 
(SP)%,RO 
PC,PUTWD 
DISEND, TAGEND 
Re 

PC,NEWPUT 

PC, INSERT 
(SP)4,RO 

106 

PC,PUTWD 
CKRPAR 


SOTSK 


U 
U 


PTR TO REST OF FILE 

FIND Ti, HOPEFULLY 

FAILED TO FINO ITe ARG, ERROR 
GET START ADR OF SUBP 

PUT ADR INTO DPY FILE 

UPDATE TAG LIST 

GET TaG T 

INSERT IT INTO OPY FILE 

FIX PTR TO END OF LIST 


NEXT TAG PTReQ/ NEW SGM 
INSERT IF 2@PARAM CALL 
GET Ti AGAIN 

2 PARAM, CASE@ BRANCH 
ELSE INSERT A ZERO 


AND EXIT 


ET 
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1 eSBTTL "ESUB" ROUTINE 
2 eENOC 
3 tl AHAARAAARARAAAARAARARERERAREARERAENARRREE 
a 
5 y ROUTINE TO HANOLES 
‘ ’ CALL "ESUB" 
8 201250 ESuBas 
9 081258 806767 JSR PC, BUFTST y ANY BUFFER YET? 
176734 
1@ 01254 o127¢8 MOV SSDINT,RO y PUT SOINT INTO RO 
173408 
11 81200 004767 JSR PC,PUTHO p INSERT AT ENO OF OPY FILE 
177306 
12 81264 ga5eee CLR RO 
13 81266 804767 JSR PC,PUTWO s FOLLOWED By A @ 
177356 
14 @1272 010700 MOV OISEND,RO » SAVE OISEND ANO USE IT TOO 
177340 
15 01276 817767 MoV ONSTSK,OISEND 9 WHERE TO PUT IT 
eee1te 
177332 
16 81304 001720 BEQ NSTERR 1 TOO MANY E8U88S IF = @ 
17 81306 084767 JSR PC,NEWPUT » INSERT INTO OPY FILE/ NEW 8GM 
177332 
18 @1312 tease Mov RO, OLSENO y STORE OISEND 
177328 
19 @1316 162767 sus #2,NSTSK » OROP CALL PTR BY 2 
ee0ece 
000966 
28 81324 000767 JER PC, INSERT y CAN INSERT NOW 
1774014 
21 91338 O@@167 ESXITs JMP CKeOL 9 EXIT TO USER 
1760778 
22 
23 1 THE STACK DEPTH OF SUBP IS AN ASSEMBLY 
2a 3 PARAMETER INSTEAO OF DEFAULTING TO A VALUE OF 16 
2s y #ee IT [8S THE PARAMETER, SOEPTH 
26 9 SOEPTH INCLUDES CALLS TO 2 PARAMETER SUBP 
e7 
28 , AAAARAERERATHAAARATARAAAAARREAAERHAHERERE 
29 
Hh y STORAGE FOR POINTERS IN SUBP AND ESUB 
1 
32 81334 600000 ADBAS: WORD 0 9 WORD TO DETECT BOTTOM OF DPY STK 
33 081362° 23. SDEPTHOSDEPTH 
34 81362 2800800 ADSTKs ,WORD @ » POINTER TO OPY STACK 
35 @1304 @80000 NSBAS: ,WORD @ » WORD TO DETECT BOTTOM OF NEST 
36 ee1ai2° o8e ¢S0EPTHOSDEPTH 
37 81412 080000 NSTSks ,WORD @ 9 POINTER TO NEST STACK 
38 e ITFOF SOISK 
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1 sSBTTL MISCELLANEOUS ROUTINES 

2 »ENOC 

3 1 ARARAATAAAEAAARAERAARERATRAAAERERHRNERE 

a 

5 y ROUTINE TO FINO A GIVEN TAG (PASSED IN R2) 

6 } ON EXIT R@ = O IF TAG NOT FOUND 

7 1 ELSE 

8 ) R@ POINTS TO THE PTR FOLLOWING THE TAG 

9 y R3 POINT TO THE PTR POINTING TO THE TAG 

18 ) CALLED BY JSR PC,TAGSRH 

et » R@ ANO R3 ARE CHANGED, R2 NOT CHANGED 

12 

13 @1414 TAGSRHE 

14 @1414 16708 MOV TAGHED,RO 1 GET START AOR OF TAG LIST 
eaeets . 

15 01420 B22002 TGLOOPs CMP (RO)o,R2 » 00 TAGS MATCH? 

16 @1422 a01403 BEO TAGXIT » YESe EXIT 

17 1424 a19003 Mov RO,R3 1 Rt POINTS TO PTR POINTING TO TAG 

18 1426 olieeo MOV (RO) ,RO 1 GET AOR OF NEXT PTR 

19 01438 001373 BNE TGLOOP } LOOP IF NOT AT END OF LIST 

28 01432 800207 TAGXIT: RETURN 

rat 

22 01434 O1AS14°TAGHEDS ,WORD TAG ) POINTER TO FIRST TAG 

23 81436 o@@Ge@e TAGEND: ,wORD @ 1 POINTER TO PTR AFTER LAST TAG 

24 

25 I REARERARAAERAAAARAAAAEAAAERERERRER eee 

26 

27 ) POLISH ROUTINE TO TEST IF RO < 64 

28 1 XYBIG IS INCREMENTED IF IT IS >@ 64 

29 1 USED IN ARGGET AND OTHER PLACES 

2 ) SAVE IT ON THE STACK 

32 o14490 TSToas 

33 91440 e20027 CMP Re,#100 1 COMPARE WITH 66 
0ee188 

34 @1444 ge2ua2e SLT SAVERG 1 BR IF < 64 

35 01446 905267 INC XY8IG ) INCREMENT COUNTER OF BIG VALUES 
000356 

3e 01452 SAVERG? 

37 O1452 A100406 MOV R@.=( SP) : 1 SAVE R@ ON THE STACK 

38 81454 900130 POLRET y RETURN IN POLISH 

39 eIFOF © SDISK 

4e eE0T 


GTB vVOle@! BASIC 


eee COON MEW 


Re eee 
saveane 


nnn 
ie 


nw 
wae 


woennnwt 
-a 0ax~e 


we wow 
wo fun 


ww 
“Oo 


36 
39 


4@ 
ay 


43 


4a 
4s 


46 
a7 


46 
49 


GTB 


$e 
51 


Se 
53 
54 
55 
So 
57 
58 
59 


68 
ot 


81456 
@1456 


01462 
B1466 
81470 
B1876 
1502 
@15¢6 
1510 
e1Si2 
1514 


01520 
a1S2e 


81526 
81532 


01534 
@1536 


ee 
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OEC © if = LOPGB © Ae LA BASIC KERNEL V62~=01 
GTB,MAC TAPE 2 OF & 


THE INFORMATION IN THIS LISTING I$ SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION, DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS LISTING, 


THIS SOFTWARE I8 FURNISHED TO THE PURCHASER UNDER A LICENSE 

FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH 

INCLUSION OF DIGITAL®S COPYRIGHT NOTICE) ONLY FOR USE IN 

seu EXCEPT? AS MAY OTHERWISE BE PROVIDED IN WRITING BY 
s 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE 
USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT 
SUPPLIEO BY OIGITAL, 


COPYRIGHT (C) 1973,1974, BY DIGITAL EQUIPMENT CORPORATION, 


AUTHOR? OR, STEPHEN R, ALPERT AUGUST 1973 
eSBTTL "ERAS*® ROUTINE 

eENOC 

SHANAHAN TRARANORAAEEHHRERA RRA N AER 


y ROUTINE TO HANOLE 
’ CALL "ERAS*® (¢ T)) 
+ IF T IS NOT SPECIFIED, THEN ERASE TRAK 


ERAS? 
204767 JSR PC, BUFTST 9 ANY BUPFER YET? 
176526 
123127 cMPB CR1),#,EOL 1 ENO OF THE LINE? 
8800006 
881005 BNE ERASO y NO » GET T 
012767 MOV wDIMP, BEG } DUMP OVER TRAK 
160000 
907018 
000167 JMP CKEOL y EXIT TO USER 
176622 
aot ERAS JSR PC,POLENT y ENTER POLISH MODE AND CHECK "(F 
176S6 
080136" +GETONE 9 GET T 
880006" *INTEGR p INTEGERIZE TO 32767 OR LESS 
@a1514° 2 9 EXIT POLISH 
016502 MOV FAC2CRS),R2 » GET T AS AN INTEGER 
eeeoue 
803002 BGT ERAS2 9 BR IF T LEGAL . 
800167 ERASi: JMP ERRARG y ARGUMENT ERROR IF Te2o 
0000086 
8G0767 ERAS2: JSR PC, TAGSRH » FIND THE TAG IN DPY FILE 
177662 
0057280 TST RO y O10 WE SUCCEED? 
801772 8EO ERASS ) ARG, ERROR IF CAN*T FINO IT 
012760 MOV #OJMP,918(RO) 9 REPLACE SOINT BY DJMP 
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@1544 
01550 


61554 
@1556 
01560 
81562 
815646 
21566 
81572 
1572 


81576 


160000 
177778 
oe5e60 
177776 
@16002 
177772 
aise13 
001405 
21002 
101005 
011008 
805020 
000773 
810367 
177640 
000167 
176514 


CLR *2¢Ra) ) MAKE THE TAG ZERO © FOR "SAVE" 
MOV 6(RQ) /R2 ) GET AOR OF REST OF FILE 

ERASS! MOV (RB), (RS) MOVE LINK 
Bea ERAS3 BRANCH IF ENO 


’ 
U 
CMP (RO) ,R2 » NEXT SUBP IN REST OF FILE? 
BHI ERASY 9 YESe BRANCH 
MOV (RQ),RB » GET NEXT LINK 
CLR (RO) > y ZERO TAG FOR "SAVE" 
BR ERASS y LOOP 
ERAS3: MOV R3,TAGEND y ADJUST ENO OF LINK 
ERASGs = JMP CKRPAR 9 CK ")" AND EXIT 


a TFOF SOISK 


6/ 
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sy ener "LPEN® ROUTINE (NOT INTERRUPT) 

2 NO 

3 ’ Seeesenennnnnannananaenenenanneasenecees 

4 

5 9 ROUTINE TO HANOLE 

6 ' CALL "LPEN® (Hy, TAG [)X, YI) 

7 1 DOESN°T CHECK REST OF ARGS IF Hae 

8 

9 Galege LPENS 

18 01602 204767 JSR PC, BUFPOL y ENTER POLISH MODE AND CK "(* 
176376 

11 01606 201610" at? 9 EXIT POLISH FOR NOW 

12 03610 oe aloe JSR PC, GETAOR 9 GET ADR OF W INTO R2 
eee222 : 

13 81014 geSe22 CLR (R26 » CLEAR HI@ORDER WORD 

14 @1616 a16712 MOV LPEN,P, (Re) 9 STORE HIT VARIABLE 
800056 

15 1622 0047607 LPENG® JSR PC, ENTERP 9 ITMMED, POLISH 
176338 

16 @1626 001702° *CKOPCM 9 JUMP BY THE COMMA 

17 01638 Hae JSR PC.GETADR 9 GET AOR OF TAG INTO R2 
80020 

18 81634 agSe22 CLR (R2)6 y CLEAR HI@ORDER WORD 

19 @1636 16712 MOV LPENT, (R2) 9 STORE THE TAG 
eeee24 

28 81602 012700 MoV SLPENX RO 9 PUT ADORESS OF SOURCE 
0816728° 

21 81646 000767 JSR PC,OPTSTR 9 STORE OPTIONAL ARGUMENT X 
Oaduua 

22 81652 004767 JSR PC,OPTSTR 9 STORE OPTIONAL ARGUMENT Y 
oe4que z 

23 01656 005067 CLR LPEN,F 9 CLEAR LPEN HIT FLAG 
808016 

24 1662 800167 Phd CKRPAR 9 CHECK ")" AND RETURN 
176430 

es 

26 81666 388000 LPENTs ,WOROD @ 9 LPEN TAG STORAGE 

27 81678 B@GeG@ LPENXs ,WORD 8,0 5 X COORD, OF LP HIT 

@16072 a00008 
28 81674 820008 LPENY!: WORD 0,8 1 Y COORD, OF LP HIT 
81676 000000 
29 @1780 BeaeaG LPEN.Fs ,WORD @ p LPEN HIT FLAG ( HIT © 1) 
38 eIFOF = §=6SOISK 
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1 eSBTTL MISCELLANEOUS ROUTINES 

2 eENOC 

3 ’ RERRARAERRAAARAERRERRERREREH EH ERENEREND 

4 

+) » ROUTINE TO CHECK (POSSIBLY) OPTIONAL COMMA 

6 » USES R2 

1 

8 201702 CKOPCMs 

9 OB1702 112146 MOVE CRIido, 9 (SP) » GET THE TOKEN IN QUESTION 

18 01704 aee2dt cue y ASSUME FOUND 

41 01706 121627 CMPB (SP), @,COMMA 9 COMPARE WITH COMMA 
00000086 

42 O1712 o@1418 BEO CKOPCO 9 BR IF A MATCH 

13 81710 eee Ter TST OP ARGF y NOT A MATCH, OPTIONAL? 
176154 

14 81728 @@14007 BEG CKOSYN » NOT OPTIONAL, ERROR 

4S 01722 121627 CMPB (SP),#,RPAR PIS ITA)" 2? 
28089086 

16 @1726 @61a04 BNE CKOSYN » NOe ERROR 

17 0173@ o@5301 DEC RL » POINT AT *)# 

18 81732 a8e2e1 SEC + FLAG COMMA NOT FOUND 

19 81734 085726 CKOPC@s TST CSP)¢ » CLEAN STACK 

20 81736 880134 POLRET 9 AND EXIT 

21 81748 880167 CKOSYN: JMP ERRSYN y SYNTAX ERROR 
0800006 

22 

e3 » ROUTINE TO SET*GRAPHICeMODE FROM RO 

ea 9 CHECKS TO SEE IF SAME AS PREVIOUS MODE 

2s 

26 81744 PUTSGMs 

27 01744 @20067 cmp RO, OLDMOD » DIFFERENT MODE? 
000814 

26 81750 B@1ueu BEQ PuTse ¥ NOe BRANCH 

29 01752 eee rer JSR PC,PUTWO 4 YESe INSERT IT 
176672 

38 81756 810067 MOV R®,O0L0M0D y SET "NEW" OLOMOD 
28ege2 

31 81762 008207 PUTS@: RETURN 9 EXIT 

32 

33 81764 080002 OLOMOD: ,WORD @ 1 VALUE OF PREVIOUS OLD SET=GeM 


34 elFOF §=6SDISK 


Ts 


COneu ewe 


GTB 


OOn~eNEUNne 


I oe oe we we ee we ee ee ee 
8 CONT MNEUN- oO 


une 
rr 


nun 
we 


un 
Oo 


26 
29 
38 


31 
32 


33 
3a 
35 
36 


37 
38 


39 
4@ 


at 
42 
a3 


aa 
45 
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1766 
@1766 B12667 
800034 
@1772 885967 
eae032 
@1776 804767 
176266 
82002 820136" 
02004 004770° 
G2006 aeiaue* 
82018 080076° 
@2e12 oeSede* 
82014 oe1use? 
82016 003050° 
82028 adeo22° 
@2622 000177 
e0see8 


@2926 oeee0e 
82830 820800 
82032 o00008 
82834 200000 


ARGGETS 


GETSAVS 
XYBIGS 
XSIGNS 
YSIGNS 


oSBTTL 
eENOC 


ARGUMENT GET FOR APNT,ROOT ANO VECT 


RRAARARRAAAHERAEANRREREREAERTAERERAR HE 


y ROUTINE TO SUPPLY ALL ARGUMENTS FOR "VECTS, 
s "APNT® AND "ROOT" 
y ON EXIT? 


’ 
, 
’ 
U 
i 
U 
U 


MoV 
CLR 
JSR 


sme 


«WORD @ 
WORD @ 
oHORD OB 
eWORD OB 
a TPOF 
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@2036 
@2036 G18046 
82048 12102 
82042 100535 
G2044 200302 
82046 152102 
82050 61502 
92052 621227 
177776 
82056 083070 
82060 210246 
82062 604767 
6290006 
02066 812602 
82070 @22227 
177775 
@2074 @014057 
@2076 826227 
800004 
177776 
82104 @@3u61 
@2186 Ba5742 
B2118 a16500 
eeee2s 
@2114 a16503 
080026 
@2120 d2ee6e 
200004 
B2124 Be3o40 
@2126 805703 
82130 380427 
G2132 905762 
900806 
B2136 140433 
02148 B2a362 
200006 
@2144 181038 
@2146 o16246 
eegaes 
@2152 205216 
82154 010346 
82156 812746 
e00020 
B2162 006383 
82164 406366 


GETADR: 


LCLOOP: 


eSBTTL 
eENOC 


ROt BITS 10128 OF SET@GRAPHIC=MODE 

(SP)y VALUE OF Y , 
2¢SP)% VALUE OF X 

XYBIG# NO, OF ARGS, (X,Y) EXCEEDING 63 

XSIGNS BIT 13 ON IF X NEGATIVE 

YSIGNS BIT 6 ON IF Y NEGATIVE 


CALLED VIAs JSR PC,GETARG 


($P)o,GETSAV 9 SAVE RETURN AOR OFF STK 
XvOIG y ASSUME X,Y < 64 
PC,POLENT y ENTER POLISH ANO CK *¢* 
*GETONE y GET X OR DX 
*SCALEX 9 SCALE IT 
oTST6a » CHECK IF < 68 AND ONTO STK 
@GETNUM 9 CK "," AND GET Y 
*SCALEY » SCALE IT 
*TST6G 9 TST IF < 64 AND ONTO STK 
LIFT 9 GET Ly Ip Fe T 
ot2 y EXIT FROM POLISH 
OGETSAV 7 RETURN TO CALLER 

9 RETURN ADORESS 

y VALUES > 63 

p BIT 13 ON IF X NEG 

y BIT © ON IF Y NEG 
SOISK 
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ADDRESS CALCULATION ROUTINE 


AREREAAAARARRRAANRAEREHEORERARARERTH ERD 


ROUTINE TO FETCH ADDRESS FOR STORING VARIABLES 
IN ARRAYS, IF SS2em1 (1,E, XGRA,YGRA, OR FIGR ) 


USES 


Ri, R2, R3, SAVES RO 


CRASHES IF CALLED WHEN R1 POINTS TO CONSTANT 
DESTROYS THE FAC IF SUBSCRIPTS INVOLVED 


MOV 
MOVB 
BMI 
SWAB 
BISB 
aod 
CMP 


BGT 
MOV 
JSR 


MoV 
CMP 


BEO 
CMP 


BLE 
TST 
MOV 


MOV 
cme 


BGT 
TST 
BMI 
TST 


BMI 
CMP 


BHI 
MOV 


INC 
MOV 
MOV 


ASL 
ASL 


U 
U 
} THEN ONLY ONE WORD ENTRIES ARE ASSUMED, 
’ 
' 
’ 


RO,=(SP) s SAVE RO 

CRI), R2 1 BUILD WORD OFFSET 

GETADS 1 CK IF OPTIONAL ARGUMENT 

R2 

(R17) o,R2 § GET SECOND HALF 

(RS) ,R2 9 A400 PTR TO USER AREA 

(R2), #02 9 18 IT A SCALAR OR ARRAY? 
ADRARG 9 ARGUMENT ERROR IF STRING 
R2,e(SP) s SAVE R2 

PC, GETVAR 1 GET AOR AND SUBSCRIPTS 

(SP) e,R2 y RESTORE R2 

(R2) 6,403 9 WAS IT A SCALAR? « 
GETAO@ y YES@ BRANCH 

4CR2), #02 9 IS S82 FLAGGED FOR XGRA ETC,? 
GETADS y YESe BRANCH 

@(R2) 9 FIX UP R2 


SSISAVC(RS) RO 1 SET UP S31 
SS2SAV(RS),R3 » SET UP SS2 


R@,4¢R2) ) S81 > SS1MAX? 
ERSS3 ) YESe ERROR 

R3 } 2 DIMENSIONAL? 

LocNnoz ) NO BRANCH 

6(R2) 1 YESe IS IT DIMENSIONED OKAY? 
ERSS3 1 NO= ERROR 

R3,6(R2) ) $82 > SS2Max? 

ERSS3 } YESe ERROR 2 
4(R2),*(SP) + PUT SS2MAX ON STK 

(SP) 

R3,=(S8P) 

#28,0(SP) 

R3 

2(8P) 
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eeeeee 
46 @2178 103002 
G7 @2172 060003 
eegee4 
48 G2176 885316 
49 @220@ 203370 
S@ @2202 262706 
008006 
Si 02206 060320 
S2 o2210 005200 
S3 @2212 806300 
S4 92214 086300 
55 82216 016202 
eeceoe 
S$ @2222 deaace 
57 e2224 egeues 
$8 2226 
59 @2226 
68 
61 82230 
02231 
2232 
62 
63 
, 64 
os 
66 82233 028 
o7 
68 02234 212608 
69 82236 000207 
78 @224@ 000167 
2000006 
71 02248 080167 
0000006 
72 82250 B12203 
73 @2252 B22323 
74 @2254 Be5712 
7S 02256 001014 
76 G2260 010302 
77 @2262 @22227 
~  $680808 
78 @2266 001375 
79 @2278 B112e2 
80 a2272 ee5742 
ai 
82 62274 282005 
83 02276 011267 
204012 
64 g23e2 a12702 
006314" 
65 82306 aeSui2 
86 82310 
87 @23128 820512 
eeoges 
88 @2314 003344 
89 82316 016502 
eede24 


100480 


123 
117 
102 
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9@ 82322 100403 
91 82324 006302 
92 02326 0600302 
93 02330 800741 
94 82332 010302 
95 82334 000737 
96 82336 085767 

175532 
97 82342 881748 
98 02344 120227 

2000006 
99 82358 801335 
10@ 2352 005303 
181 2354 20502 
182 2356 900726 
103 


LOCNO2s 


ERSS33 


GETADG! 
ADRARGS 
AORSYNE 
GETADIS 


GETADTS 
GETADOS 


GETADes 
GETAD3! 


GETADSs 


acc 
a00 


bec 
ect 
400 


400 
TNC 
ast 
ast 
MoV 


abo 
BR 


TRAP 
e TENOF 
eASCIT 


eo ENOC 
oTFOF 
eASCIT 
eENOC 
oBYTE 
EVEN 
Mov 

RETURN 
JMP 


IMP 


“OV 
cme 
TST 
BNE 
MOV 
CMP 


BNE 
MoV 
ts? 
oe TPOF 
8GE 
MOV 


mov 


NEG 
2 ENOC 
CMP 


acT 
MoV 


“Oo 


BMy 
ASL 
A00 
BR 

MOV 
BR 

rst 


SEQ 
CMPB 


BNE 
DEC 
CLR 
BR 
vIFOF 


ooo U 
4(SP),R3 


(SP) ~ OS 
LCLOOP 

#6,SP ’ 
R3,RO 

RO 

RO , 
Re i] 
2¢R2),R2 


RO,R2 
GETAO® ’ 


SLONGER 
7808/ 


SLONGER 
/8UBSCRIPT OUT OF 


8 

(SP) 4,RO 
ERRARG 
ERRSYN ’ 


(R2)o,R3 ’ 
CRE) o,(R3)% ’ 
(R2) ' 
GETAD6 , 
R3,R2 ' 
(R2) 4%, HOTMP ’ 
0d i] 
(R2),R2 ' 
o(R2) ’ 
SLPS 

GETAOT 
(R2),SCLSAV 


aSCLSAV,R2 
(Ra) 
SSISAVC(RS),/CR2) 9 


ERSS3 ’ 
SSISAV(RS),R2 9 
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GETAD2 
R2 
R3,R2 
GETAO® 
R3,R2 
GETADS 
OPARGF 


~~ ewe en 


AORSYN 
R2,#,RPAR 


AORSYN 
Ry 

Re 
GETAD® 
SOISK 


~~ ewe 
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MULTIPLY S82 BY SSiMAX 


ANO ADD S83 
CLEAN STK 


2 BYTES/WORD 
2 WORDS/ENTRY 


AND GO TO EXIT 


BOUNDS/ 
t 


RESTORE RO 
ExT 
ARGUMENT ERROR 


SYNTAX ERROR 


PUT BASE AOR INTO R3 
POINT R3 AT ACO) 
SS1MAXBO? 

NOe BRANCH AND USE IT 
POINT AT ARRAY 

A DJMP AT ENO? 


NOew LOOP “TIL FOUND 
POINT AT AOR IN OPY FILE 
POINT AT S81 IN OPY FILE 


S81 > SSIMAX? 


YESe ERROR 
GET 881 
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BR IF NO SUBSCRIPTS 

ADDOUNT FOR WORDS NOT BYTES 
GET ADORESS 

ExtT 

IF NO SUBSCRIPTS GET JUST A 
EXIT 

SEE IF ARG IS OPTIONAL 


NOe SYNTAX ERROR 
is ira "je ? 


NOe ERROR 

YESe POINT AT IT 
MAKE AOR 8 @ 
EXIT 


G7 


—_—-s 
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THEW 


7 e@236e 
8 082360 212746 
eee3aue 
9 Bd2364 
18 @2364 010667 
20054 
41 @2378 085737 
@000006 
12 02374 oe1420 
13 02376 805767 
eeegaes 
14 @2402 e81415 
15 82404 005767 
880836 
16 82410 B81418 
47 02412 012767 
173488 
886166 
18 02420 005767 
0008086 
19 02424 g02375 
28 82426 022767 
Loeeee 
e86152 
21 02434 201371 
22 82436 925067 
eae0a4 
23 @2442 ou0207 
24 
25 82444 eeogee 
26 82446 geaaee 
27 
28 82450 
29 82450 812746 
000324" 
30 02454 
31 02054 005767 
177764 
32 C2460 001403 
33 82462 805067 
177756 
34 82466 o00500 
35 82470 800207 
36 
37 02472 004767 
Bee172 
38 82476 gevaae 
39 
4@ @2500 
Gt @25ea 812746 
eeo32u" 
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42 82504 
43 82584 004767 
177654 
aa 
4S 82510 212700 
0880006 
Go 82514 8627200 
eoeete 
47 @2528 @12702 
800208 
48 82524 B10210 
49 @2526 212748 
ee2u72° 
5@ 02532 a10240 
Si @2534 a12748 
@03240° 
S52 B254@ e1e240 
$3 @2542 012748 
880466" 
54 a2546 005067 
177212 
55 92552 205067 
176856 
S6 82556 205067 
600130 
57 @2562 085067 
177112 
58 @2566 005067 
177652 
59 


6@ @2572 012767 
16¢000 
025706 

ot 

62 82688 205767 
@06006 

63 a2604 201004 

64 2606 

65 82606 B10446 

66 

07 

68 

69 2610 884767 
0800006 

78 @2614 G12604 

71 G2616 016700 
176020 

72 @2622 010067 
085762 

73 82626 010067 
176096 

74 @2632 012720 
160000 

7S 82636 012718 
10506" 

76 82642 010067 
175772 


eSOTTL 
sENOC 


"OSTP*, "CONT", 


AND "INIT" ROUTINES 


’ PRAREREHARARHAAEAAARAAARARERE RTE EA AAR 


3 ROUTINE TO HANOLE *OSTP", "CONT®, ANO "INIT" 


OSTP: 
MOV 


STOPAS 
MOV 


Tst 


BEQ 
TST 


BEG 
rst 


BEQ 

MOV 
STOPCs TST 

8GE 

CMP 

BNE 
STOPB: CLR 

RETURN 
STOP,Fr WORD O 


RUNGFE WORD 
CONTE 

MOV 
CONTAS 

TST 

BEG 

cur 

BR 
CONT@s RETURN 
RESTRt JSR 

RTI 
INITS 

MOV 


INITAS 
JSR 


BCKEOL, @ (SP) 


SP,STOP,F 
OnGTVECT 


sToPa 
orc 


SToPB 
RUNGF 


STOPBe4d 
#SOINT,OSTOP=2 
OSsR 


aed 
#OJMP, DSTOP=2 


STOPC 
RUN,F 


#CKEOL, © (SP) 
STOP,F 
cCONTe 
STOP ,F 
INITS 


PC, INITS 


aCKEOL,@ (SP) 


PC, STOPA 


» NORMAL PROGRAM EXIT 


9 SET STOP FLAG 
y VECTORS BEEN SET? 


9 NOe EXIT NOW 
9 DPC CLEARED? 


9 YES 

9 CURRENTLY RUNNING? 
NO 

1 LOAD STOP 


y STOPPED YET? 
9 NO» LOOP SOME MORE 
p BACK TO REGULAR? 


y NOe WAIT SOME MORE 
y SIGNAL STOPPED 


y STOP FLAG (#1 FOR STOP) 
§ FLAG TO INDICATE RUNNING 


y EXIT FOR CALLER 

» WERE WE STOPPED? 

» NO@ THEN DON*T START IT 
9 CLEAR STOP FLAG 


» CLEAN SUBP STK AND START UP 


3 FIX STACK ANDO START DPU 


» NORMAL ENTRY 


y ENTRY FROM BUFTST 
y MAKE SURE DISPLAY HAS STOPPED 


y tee SET UP INTERRUPT VECTORS HERE 


MOV 
a00 
MOV 


MOV 
MOV 


MOV 
MOV 


MOV 
MOV 


CLR 
CLR 
CLR 
CLR 
CLR 
y #ee MAKE SURE 
MOV 
} tee MAKE SURE 
TsT 
BNE 
INIT2¢ 
MOV 
oTFOF 
JSR 
eo ENDC 
JSR 


MOV 
INIT{: MOV 


MOV 
MOV 
MOV 
MOV 
MOV 


BGTVECT,RO 
#L2I,RO 
#PRUO,R2 


R2, (RB) 
#RESTR,@(RB) 


R2,"(RB) 
MLPNINT, @(RQ) 


R2,0(RB) 
SOISINT,=(RO) 


OLOMOD 
INSRTF 
SCAL.F 
LPEN,F 
STOP,F 

TRAK 1S OFF 
*OJMP, BEG 
END OF DPY FILE 
DCRASH 
INIT! 
RG,e(SP) 
SOISK 

PC, CLOSALL 
PC, FIX@ 


(SP) o,RG 
ACTST,RO 


RB,DSTOP 
RO, DISEND 
HOIMP, (ROD¢ 
wBEG, (RO) 
R@, ACTEND 


) SET UP DESTINATION 
1) OFFSET TO TOP 
) AND PRIORITY 


) PRG FOR RESTR 
y RESTART 


) PRG FOR LP INTERRUPT 
1 &P INTERRUPT 


7 PRG FOR STOP DISPLAY 
y STOP DISPLAY INTERRUPT 


y MAKE SURE MODE CHANGES 

y CLEAR INSERT PENDING FLAG 
9 CLEAR SCALE FLAG 

y CLEAR LP HIT FLAG 

1 CLEAR THE STOP FLAG 


+ MAKE SURE TRAK IS OFF 
TS AFTER PERMANENT STUFF 


» "FIX" BEEN CALLED? 
1 BR IF PRIX" ALREADY CALLED 


p CLOSE ALL FILE 170 
1 GET SPACE 


» SET LOwEND FOR OJMP 
y IT 18 A NEW OISENO 

1 PUT A DJMP THERE 

» FOLLOWED BY LOOP AOR 


» ACTENO POINTS TO WORD AFTER DISEND 


1680CTH@78 02306107 PAGE 16 
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17 y tee FIX UP TAG POINTER 
78 @26046 016708 MOV TAGHED/RO 9 GET FIRST TAG ADDRESS 
176562 
79 826052 005728 Ts? (RO)> » BUMP IT BY 2 
68 82654 210007 MOV RO, TAGENO ) MAKE THAT TAGEND 
176550 
81 B2668 B25e10 CLR (RQ) 9 AND CLEAR LAST POINTER 
62 y em PATCH UP AOSTK AND NSTSK HERE 
63 B2662 312767 MOV #NSBAS,NSTSK 9 ADJUST BUILDING STACK 
@e1304° 
170522 
84 826070 12767 INIT35 MOV #0BaS,a08TK » ADJUST RUNNING STACK 
001334" 
176464 
85 62676 Giv0e7 mov SP,RUNSF p SIGNAL RUNNING 
177540 
86 82702 012767 mov #BEG,OPC y START UP DPU 
010506" 
eeoaees 
87 @2718 eee2e7 RETURN y RETURN TO USER 
68 
89 82712 800808 SCAL.F! ,WORD @ 9 SCALE HAS BEEN DONE FLAG 
9 
1 ! ROUTINE TO HANDLE LINKING FOR SAVE AND RESTORE 
92 eo TFOF SOrSsK 
93 SAVERTS 
9a gsr PC, EVAL + GET STRING (BASICX) 
9s acs o+6 y FOUNO A STRING? 
% MP ERRSYN 1 NOe ERROR 
97 CMP (SP), #04 y A NULL STRING? 
98 Beg 2218 1 YESe ERROR 
99 cups CR1) 6, # RPAR ) FOLLOWED BY *)* ? 
180 BNE sete } NO» ERROR 
101 MP saveg y RETURN TO OVERLAY 
182 
183 2 ENOC 
106 aIFOF ©6S018K 
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1 eSBTTL *NOSC*,"ON", "OFF® ROUTINES 

2 eENOC 

3 1 ARAERARARRRAHAAEAERURERENAREREAERERR NEE 

4 s TURN OFF SCALE 

Ss 

6 o82714 NOSCS 

7 002714 98Sa67 CLR SCAL.F y NO MORE SCALE 
177772 

8 802728 200167 MP CKEOL y AND EXIT 
175400 

9 

18 , ARARAAARERREARARARRAERREERRRARRERRE EERE 

ey » ROUTINE TO TURN SUSP ON AND OFF 

12 

13. 02724 ONS 

14 82724 812746 MOV #SDINT,@(SP) y A SDINT 
17300@ 

15 02730 oer ONS JSR PC,POLENT y ENTER POLISH MODE, CK "(" 
175334 

16 82734 880136" *GETONE 1 GET SUBP TAG 

17 @2736 oeeade’ *INTEGR } INTEGERIZE 

18 82740 g02742° ete s EXIT POLISH MODE 

19 82742 016562 Mov Fac2¢R5S),R2 9 GET TAG 
888042 

28 02746 va3a02 6GT 46 } LEGITIMATEe BRANCH 

21 82758 880167 ONOS JMP ERRARG + NO= ERROR 
800006 

22 82754 084767 JSR PC, TAGSRH 9 FIND TAG 
176434 

23 82768 085700 TsT RO y DID WE SUCCEED? 

24 82762 081772 B8EQ ON@ 9 NOe BRANCH 

25 82764 162708 sua #18,R8 » POINT AT SOINT/DJMP 
@8e010 

26 82778 685767 TST INSRTF y AN INSERT PENDING? 
175640 

27 82774 Q01375 BNE on 9 YES= LOOP TIL FREE 

28 82776 o1eies MOV ACTEND,R3 3 GET END OF DPY FILE 
175636 

29 83002 205743 TsT #©(R3) : ¢ POINT TO PREVIOUS WORD 

38 83004 220003 CMP ROR 9 WHERE DOES RO POINT? 

31 83086 ed14a3 Bea ON2 9 TO WOL 

32 83018 212610 MOV (SP)e,eRd 9 STORE WORD 

33 a3a12 aa ON33 JMP CKRPAR y AND RETURN TO USER 
175320 

34 83016 812667 ON2! MOV (SP)o,WwOL + STORE WORD 
175716 

35 93022 000773 BR ONS y AND EXIT 

36 

37 33026 OFF: 

38 63024 B12746 MOV #OJMP41,0(SP) p A OSMP os 
160801 

39 83230 2800737 BR ONY 9 AND CONTINUE 66 

48 ae TFOF SOISK 
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NOUS 


8 883032 
9 003032 


18 63036 
41 @3040 
12 a3e42 
43 
4 


is 
to a304a0 


{7 
18 
19 
20 
21 


FIX: 
004767 
175232 
000136" 
200006" 
Besguu" 


200167 
2000006 


FREES 


eSBTTL 


oENOC 


"FIX" ROUTINE CALLER 


HEAAAAAARARAAARARAARARARAARAEREREE TREE 


} ROUTINE TO HANDLE? 


JSR 


eTFOF 
JSR 
eENOC 
JMP 


oTFOF 


JSR 
JMP 


CALL "FIX"(N) 


PC,POLENT 


*GETONE 
+INTEGR 
ete 

SOISK 
PC,CLOSALL 


FIXSP 


SOISK 


PC, CLOSALL 
PREEG 


ENTER POLISH MODE, CK "(¢* 
GET N 

INTEGERIZE IT 

EXIT POLISH MODE 

CLOSE ALL FILE 1/0 


JUMP TO OVERLAY 


CLOSE ALL FILE 170 
GO TO OVERLAY 
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OONTU SUV 


63050 
03050 


oe ee ee 
VEUNe ae 


16 83856 
17 83060 


16 83064 
19 83066 
28 03078 
21 03072 
22 03074 
23 83076 
24 83100 
25 03102 
26 a3104 
27 23186 
28 831198 
29 a3112 


38 @3116 
31 03120 


32 03124 
33 a3126 
34 @3130 


35 03134 
36 83136 
37 031408 
38 83142 
39 a3144 


4@ 03158 
41 93152 
42 03154 


43 83160 
44 83162 


4S 03166 
46 83170 
47 23172 
48 83174 


LIFTs 
012767 
040008 
060168 
010446 
024767 
175226 
000066° 
oeea2e” 
Q00004 
oB0076° 
aBenee’ 
200000" 
aoea4e" 
003104" 
eeseae 
812602 
203406 
@20227 
280804 
803003 
262782 
eoeeo3 
050200 
@12602 LIFTOs 
@O4767 
820060 
058302 
@12682 
G84415 
188003 
085067 
000066 
ee5uee 
eo5302 LIFT2: 
020227 
282010 
02005 
e52702 
8ece1e 
080302 
a06202 
050200 
@i2ede LIFTI: 


eSBTTL ROUTINE TO FETCH Ly I, Fo T 


eo ENOC 


RERATAAAARARRRATRAEAAREARERARARERRARRA AE 


y ROUTINE TO HANOLE Ly I, Fy T 
» UPON ENTRY Ri POINTS TO COMMA PRECEDING L 
} UPON EXIT R@ CONTAINS BITS @118 OF SGM WORD 


is 
1 
F 
T 


MOV 


MOV 
JSR 


CLR 
MOV 
BLE 
cmp 


GT 
aod 


8Is 
MOV 
JSR 


BIS 
MOV 
BEO 
BPL 
CLR 


NEG 
oec 
CMP 


GE 
BIS 


$wae 
ASR 
BIS 
MOV 


LP INTERRUPT ENABLE 


INTENSITY OF LINE 


FLASH (BLINK) 


TYPE OF LINE (SOLID, ETC.) 


#40088, INVIS 


Ru,@(SP) 
PC, QIKPOL 


+SETOPT 
+PLOOP 
oa 
*GETNUM 
+INTEGR 
*SAVINT 
+ELOOP 
ate 

RO 

(SP) o,R2 
LIFTS 
R2,8u 


LIFTS 
H3~R2 


R2,RO 
(SP) o,R2 
PC, BITGET 


R3,RO 
(SP) o,R2 
LIFT) 
LIFT2 
INVIS 


R2 
Re 
R2,018 


LIFTS 
#18,R2 


R2 

Re 
R2,R0 
(SP)¢,R2 


ASSUME VISIBLE 


SAVE RG FOR RETURN 
ENTER POLISH MODE 


SET OPTIONAL MODE 
POLISH LOOP 

a TIMES 

GET ",Lel,F,T" 
INTEGERIZE EACH IN TURN 
SAVE ON THE STACK 

END OF POLISH LOOP 
EXIT FROM POLISH MODE 
CLEAR DESTINATION WORD 
GET TYPE OF LINE 
BRANCH IF NO CHANGE 
COMPARE R2 TO 4 


IGNORE IF Toa 
ADD TO GET SETeBIT 


SET T INTO RO 
GET F 
Fag: 0 


FeO: 30, Fees 28 
GET I 

BRANCH IF NO CHANGE 
BRANCH IF. VISIBLE 
MAKE INVISTBLE 


MAKE R2 POSITIVE 
COMPARE R2 WITH & 
IGNORE IF TOO 816 
AOD IN 8 


PUT BITS IN CORRECT POSITION 
1 18 SET INTO RO 
GET L 


G7 
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eueuUNe 


O3176 


83202 
3200 
23286 
3210 
@32i2 


O32e16 
o3214 
o3216 
3220 
3222 
3224 


03230 
3234 
83236 


7 003240 
8 Be3240 
9 O8324e 


18 
a 


12 
13 
4 
15 
16 
17 
18 


19 
20 


ro} 
22 
23 
24 
25 
26 
27 
28 
29 


30 
31 


32 
33 
34 


35 


36 


37 


e32ua 
83246 


83252 
03256 
@3262 
83264 
03266 
03270 
aser7e 


O3276 
03300 


03304 
3310 
O3314 
03320 
a3320 
03330 
83334 
03340 
O334u 


03350 
03352 


83356 
03360 
83362 


@3366 


O3374 


834uee 


004767 
eeegi2 
006303 
206303 
05e300 
012606 
290134 


eesees 
005702 
001405 
ee2a02 
052703 
eeee18 
852783 
eeeeee 
e207 


O10846 
918246 
@10546 
016705 
8000006 
816746 
2020086 
017788 
176108 
881403 
005728 
811000 
002407 
005767 
176482 
001158 
085367 
176374 
010067 
176356 
816546 
eveeue 
016546 
000040 
016746 
eae3ia 
005065 
eeoe4e 
8167808 
2400006 
062780 
176880 
010065 
eoeoue 
605767 
176338 
202428 
166708 
085146 
206208 
206208 
860067 
025136 
@16765 
005132 
eeogue 
832767 
eeeaua 
O@eaeeG 
061403 


BITGETs 


BITNEGS 
BITZER: 
INVISS 


LPNINTS 


LPINTOS 


LPINTIs 


Jse 


as. 
ASL 
srs 
MOV 
POLRET 


CLR 
TST 
BEQ 
BLT 
ars 


ars 
RETURN 


WORD @ 
oTFOF 


PC, BITGET 


R3 

RS 
R3,Re 
(SP)e,Ra 


R3 
Re 
BITZER 
BITNEG 
#10,R3 


#28,R3 


SOrsK 


ey 


~~~ ee 
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Lae: @ 


Lees 148 
L<@s 120 
LIS SET IN RO. 
RESORE Ra 
ANO EXIT 


CLEAR DESTINATION 
CHECK SIGN OF R2 
BRANCH IF R2 & @ 
BRANCH IF R2 «< @ 
Poss 38 

NEG! 20 

ZERO: 8 


VISIBILITY FLAG (BIT 34) 
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eS8TTL LP INTERRUPT HANOLER 


2 ENOC 


PRAAAARARRARAREAHAAAARERRREARERRERRER HE 


1 ROUTINE TO HANDLE LIGHT PEN INTERRUPT 


MOV 
MOV 
Moy 
“OV 
MOV 
MoV 
B8EQ 
rst 
MOV 
BLT 
Tst 


BNE 
bec 


“ov 
MoV 
MOV 
MoV 
CLR 
MOV 
gre 
MOV 
TST 


aut 
su6 


ase 
asR 
400 


MOV 


BIT 


EO 


RO,=(SP) 
R2,“(SP) 
RS,°(SP) 
USRAREA,RS 
SERVEC, (SP) 
@ADSTK, RO 
LPINTO 
(RO)> 
(RO),RO 
LPINTL 
LPEN,F 


LPEx) 
LPEN,F 


RO LPENT 
FAC2(RS),0(SP) 
FACI(RS) 5 (SP) 
ABS,F,©(SP) 
Faci(RS) 
OISX,RO 
#176000,R@ 

RO, Fac2crs) 
LPEN,F 


LPINT2 
XT RO 


Ro 
RO 
RO,XT 


XT/FAC2(RS) 


#60,0SR 


LPINT2 


SAVE REGISTERS 

SAVE RS 

SET UP RS TO USER AREA 
SAVE ERROR VECTOR IN FPMP 
GET PTR TO TAG (IF ANY) 
NO TAGe BRANCH 

POINT RO AT TAG 

PUT TAG INTO RO 

HIT MUST BE IN TRAK 
ANOTHER HIT PENDING? 


YESe EXIT 
NO@ MAKE FLAG @ of 


STORE TAG 
SAVE FAC 


AND FLAG TOO 


GET X POSITION 

ONLY FIRST 18 BITS 
PUT IN FAC 

IN TRAK? 

NO# BRANCH 

OlV BY 2 

OIv BY 2 

OLD + (NEW@OLD)/4 

PUT IN SMOOTHED VALUE 


ON THE EDGE? 


NO 


GTB 


38 


39 
4a 
a 
42 
43 
4a 
4s 
46 
a7 
48 


49 
se 
St 
s2 
33 


sa 


55 


So 
57 
$8 
so 
68 


61 
62 


63 


ou 
65 


66 
67 


GT8 


O34e4 912767 “OV 
001008 
eesite 

@3412 010667 LPINT2: MOV 
Oee222 

@3416 12700 MOV 
806362" 

@3422 o04767 JSR 
Be672 

83426 a165u6 MOV 
ee0042 

03432 B16Su6 MOV 
000048 

93436 905965 CLR 
200048 

O34u2 016700 MOV 
@8eee8G 

O344e oue7ae BIC 
176000 

83452 310065 MOV 
eoeaue 

@3456 285767 TST 
176216 

83462 eg2420 BLT 

83464 166720 SUB 
005036 

03472 Be6208 ASR 

83472 806200 ase 

@3474 260967 LYD) 
ee5e26 

83508 216765 MOV 
oeSe22 
eoeede 

03506 232767 6IT 
000040 
9000006 

@3514 @01403 BEG 

83516 012767 MOV 
880600 
ee5a02 

83524 012708 LPINT3s MOV 
806352° 

83530 204767 JSR 
oe0564 

03534 005767 TST 
176148 

@3549 @d24a5 BLT 

@3542 016780 MOV 
901216 

@3546 816702 MOV 
Ob1214 

03552 agguae BR 

O3554 B85467 LPINTGs NEG 
176128 

8356 o12700 MOV 
201670° 

83564 212702 MOV 

V@ie@1 BASIC © GT ROOT MOD 

O@1o74° 

83570 812628 LPINTS: MOV 

03572 @12610 MOV 

83574 316522 MOV 
000040 

83680 B16S512 MOV 
eoeede 

83604 812667 MOV 
840030 

O3610 a12665 MOV 
2002040 

83614 212665 MOV 
aaae6e 

83620 @12667 LPEX1: MOV 
8808806 

83624 @12605 MOV 

03626 G12602 MOV 

83630 a12600 MOV 

@3632 005267 INC 
8008006 

83636 oeee02 RTT 

93640 000008 ABS,Fr ,WORD @ 

a TFOF 
2€0T 
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#1600,XT 


SP, ABS.F 
MUSCLX,RO 
PC,SC.USC 
Fac2(RS),"(SP) 
FACi(RS),0(SP) 
FACi(R5) 
OI8y,RO 
4#176900,R0 

RO, Facacrs) 
LPEN,F 


LPINTS 
YT/RO 


RB 
RO 
RO,YT 


YT, FAC2(R5) 


#48,08R 


LPINTS 
#680,YT 
#USCL.Y,/RO 
PC,SC,USC 
LPEN,F 


LPINTS 
TRAKX,RO 


TRAKY,R2 


LPINTS 
LPEN,F 


#LPENX,RO 
aLPENY,R2 


RTei1 MACRO VMG2=09 


(SP)o,(RO)o 
(SP) ¢, (RO) 
FACICRS),(R2)6 
FaC2(RS),(R2) 
(SP)+,ABS,F 
(SP) o,FACi (RS) 
(SP)o,FAC2(RS) 
(SP)o,SERVEC 
(SP)4,R5 

(SP) o,R2 


(SP) 4,RO 
OPC 


SOISK 


9 STORE CENTER IN XT 


+ SCALE ABSOLUTE 
9 UNSCALE MODE 
» 00 IT NOW 


» SAVE UNSCALED X ON STACK 


9 GET Y POSITION 

y ONLY FIRST 18 BITS 

9 PUT INTO Fac 

9 IN TRAK? 

y NO= BRANCH 

9 OIV BY 2 

9 DIV BY 2 

1 OLD * (NEWROLD)/4 

y PUT IN SMOOTHED VALUE 


» ON THE EDGE? 


1 NO 

y STORE CENTER IN YT 
3 UNSCALE Y MODE 

+ 00 IT NOW 

9 IN TRAK? 


1 NO@ BRANCH 
» FROM STK 


) FROM FAC 


» STORE IT 
9 MAKE FLAG & 1 


3s FROM STK 
9 FROM Fac 


y STORE X 


y STORE Y 
y RESTORE FLAG 


1 RESTORE FAC 
} RESTORE SERVEC 
} RESTORE RS 


y RESTORE REGISTERS 
y RESTART OPYU 


y AND EXIT 
9 ABSOLUTE SCALE FLAG 


LeeOCT=74 62306807 PAGE 206 


LosOCT#74 82206107 PAGE 20% 


G7 
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Ceanounewn 


GTB 


ss 
So 


57 
58 


@3e42 
O3eue 


O3eue 
9365¢e 
83052 
03654 
03656 
83660 
@3662 
03664 


03678 
83072 


83676 
3700 
83702 
@3704 
03706 
03718 
e3712 


@3716 


004767 
174336 
020130" 
eeveae? 
eeceee? 
eane06" 
900076" 
008006" 
203664" 
016502 
eeegde 
08S4ue2 
088767 
177316 
806303 
086303 
006303 
810300 
e12002 
9e54e2 
884767 
177276 
806303 


OEC © 11 © LBPGB © A @ LA BASIC KERNEL V@2e@! 
GTB,MAC TAPE 3 OF G 


THE INFORMATION IN THIS LISTING [8 SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION, DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS LISTING, 


THIS SOFTWARE IS FURNISHED TO THE PURCHASER UNDER A LICENSE 
FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH 
INCLUSION OF DIGITAL°S COPYRIGHT NOTICE) ONLY FOR USE IN 
aes EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY 
t+) Ake 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE 
USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT 
SUPPLIED BY DIGITAL, 


COPYRIGHT (C) 1973,1970, BY DIGITAL EQUIPMENT CORPORATION, 


AUTHORS OR, STEPHEN R, ALPERT AUGUST 1973 
eSBTTL "STAT" ROUTINE 

eENOC 

’ AAAAARARRERTARRARNARARAAERERAAAEER TARAS 


ee ee 


9 ROUTINE TO HANDLE 
’ CALL *STAT®( FONT (, INT] ) 


+ FONT >@s NORMAL, @@8 NO CHANGE, <@¢ ITALICS 
y INT >@8 LP INTENSIFIED, 8@t NO CHANGE, <@t HIT NOT INTEN, 


Svate 
JSR PC, BUFPOL ) ENTER POLISH MODE AND CK *)* 
+GETONE 1 GET FONT 
*INTEGR » MAKE SURE AN INTEGER 
@SAVINT } SAVE ON STACK 
+SETOPT p INT IS OPTIONAL 
+GETNUM 1 CK "," ANO GET INT 
oINTEGR } MAKE SURE AN INTEGER 
22 ) EXIT FROM POLISH ‘e 
Mov FAC2(R5) »R2 9 GET INT 
NEG R2 ) NEGATE SO BITGET RETURNS VALUES 
JSR PC, BITGET 9 POS! 20,NEGs 38, ZEROS @ 
ast R3 
ast R3 
ast R3 9 PO8s 200, NEG: 380, ZERO: @ 
MOV R3,Re » SAVE IN RO 
MOV (SP)o,R2 9 GET FONT 
NEG R2 ) NEGATE SO BITGET RETURNS VALUES 
JSR PC,BrTGeT 
ASL a3 » POSt 4@,NEGt 68, ZEROS @ 


V@l=Gi BASIC = GT ROOT MOD RT#i1 MACRO VNQ2909 1osOCTo74 82106107 PAGE 2t+ 


03728 
@3722 


83726 


858308 
052708 
178800 
000167 
600246 


BIS R3,RO 3 SET FONT INTO RO 
BIS #170000,R8 y SET UP LOAD STAT, REG, A 
sme SOXIT s INSERT TO DPY/ CK ")"/ RETURN 


eIFOF =©6SOISK 


GTB 


NOME WRI 


8@ 
9@ 


128 
Mw 
12 


13 
1a 


15 
16 
17 
168 
19 
20 
21 
22 
23 
24 
2s 
26 
27 
26 
29 
30 
31 


32 
33 


34 
35 
36 
37 
38 


GTB 
39 
48 
ay 
42 
43 
4a 


4s 
46 
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83732 
@3732 004767 
174252 
83736 825067 
177676 
@3742 204767 
176020 
03746 005767 
176656 
@3752 eB1424 
83754 eS2700 
118000 
83768 004767 
175760 
23764 016600 
eeeee2 
83770 056700 
176036 
03774 904767 
174658 
o4eee 0167280 
176830 
04084 060300 
04886 ed6200 
24918 962600 
Q4812 004767 
174632 
84916 o5016 
84020 oesaue 
a4a22 aeseee 
04024 052700 
132000 
04038 204767 
175718 
04034 Ba5716 
04036 801013 
84a48 205766 
eeoeee 
84804 g01018 
04046 905067 
175762 
@48S2 ai2716 
ITTF 
e4a56 9127280 
600101 
84062 204767 
174562 
84066 816600 
aooee2 
4072 a003ee 
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84874 B26200 
04876 2567200 

177434 
@4182 256700 

175724 
@4186 262680 
@4118 085726 
84112 056708 

175716 
O4116 200438 


ROOTS 


ROOTSE 


ROOTSS 


eSBTTL 
oENDC 


"ROOT" ROUTINE 


L6eOCT@74 G2506107 PAGE 22 


RARRARAAARARAERAARARERAAAAERAREREERHE RAED 


9 ROUTINE TO HANDLE 


' CALL "ROOT™( OX, OY (yLeTeF,T)) 
JSR PC, BUFTST » ANY BUFFER? 

CLR aBS,F y RELATIVE SCALE 
JSR PC, ARGGET » GET ARGUMENTS 
TST XYBIG y ROOT OR VECT? 
BEQ ROOT) » ROOTe BRANCH 

ars #118008,R8 4 LONG VECTOR 

JSR PC,PUTSGM 1 SETeGRAPHICeMODE 
MOV 2¢8P),Re 9 GET x 

ais XSIGN,RO y SET SIGN (INVISIBLE) 
JSR PC,PUTWD y INSERT IT 

MOV YSIGN,RO » GET SIGN OF Y 
SwaB Re 

ASR RO 9 PUT IN BIT 43 
a00 (SP) 6,RO 9 ADO IN Y 

JSR PC,PUTWO y INSERT IT 

CLR (SP) » MAKE X # @ 

CLR (SP) » MAKE Y 3 @ 

CLR RO » CLEAN BITS 18 © @ 
ars #138008,R0 » ROOT MODE 

JSR PC, PUTSGM y SET@GRAPHICeMODE 
TsT (SP) 1 Y 8 OP 

BNE RDOTS 9 NOe BRANCH 

TST 2(3P) 1 YES= X = Q? 

BNE ROOTS  NO* BRANCH 

CLR YSIGN 3» MAKE Y POSITIVE 
MOV #1, (9P) 9 MAKE Y @ of 

MOV #101,RB 1 MAKE (8,01) ROOT 
JSR PC,PUTWO y INSERT IT 

Mov 2(SP),RO » GET X 

Swap RO ) SHIFT TO LEFT 


ase RO 

ars INVIS,RO 
ars XSIGN,RO 
aod (SP)4,R@ 
TST (SP)¢ 
BIS YSIGN,RO 
BR SOXIT 
eIFOF SOISK 


RTei1 MACRO VMG2909 


MOVE TO BITS 7e12 
SET VISIBILITY 


SET SIGN OF X 
aod IN Y 
CLEAN STACK 
SET SIGN OF Y 


TAKE "STANDARO" EXIT 


16*0CT=7& 82:86:07 PAGE 226 


7! 


a 


1X 


ne 


vad 


GTB 


NOME UN 
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8 804120 
9 084128 884767 


18 
it 
12 
13 
14 
1s 


16 
17 


16 
19 
20 
2 


22 
23 


ea 
2s 
26 
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MOU SUNe 


1749604 
@4124 310067 
177512 
84138 004767 
175632 
O4134 052700 
114900 
04148 e84767 
175600 
O4144 B16600 
eeege2 
0415@ 904767 
174902 
04154 oeusia¢ 
@4156 2567388 
177054 
84162 004767 
174462 
Q4166 212600 
84178 805726 
04172 084767 
173768 
@6176 B04S22° 
04208 204767 
1744400 
04204 904767 
1740534 
24219 000167 
174302 


8 9e42i4 
9 084214 004767 


18 
ut 
12 


13 
14 


15 
16 
17 
18 
19 
28 
21 
22 
23 
26 
25 
26 
27 


26 
29 


173778 
04220 205067 
177014 
84224 904767 
175536 
84230 005767 
175576 
B4234 201906 
84236 052700 
104900 
Q424u2 004767 
175476 
QU246 200167 
177614 
@u2as2 052700 
410000 
04256 204767 
175462 
04262 216600 
eeeade 
O4266 056700 
176744 
84272 056700 
175534 
4276 024767 
174346 
O4302 B16700 
179526 
84306 voo3ee 
94318 eg6200 
04312 262600 
84314 005726 
Q4316 080738 


APNTS 


SOXITs 
SOXITOs 


VECTs 


VECTOR 


eSOTTL "APNT® ROUTINE 
eENDC 
ARORATAHATAhENRANAANDERENENTARRAA ARRAS 


» ROUTINE TO HANOLE 


' CALL FAPNT® (Xe ¥ Cole leFoT) ) 

gsr PC, BUFTST 1 ANY BUFFER? 

mov SP, AQ8,F 1 FLAG ABSOLUTE MODE 
Jr PC, ARGGET ) GET ARGUMENTS 

ars #314000,Re 1 SET UP MODE WORD 
JSR PC, PUTSGM 1 SET@GRAPHICeMODE 
Mov 2¢SP),Re ) PUT X IN RO 

usr PC, ENTERP ) IMMED POLISH 

Bis INVES)Re } Ser viszeruity 
usr PC,PUTHO y INSERT x 

1st SP}e. } CLEAN STACKS 

usr PC, ENTERP 1 IMMED POLISH 

JR BeSPUTHD } INSERT IT 

gsr PC, INSERT } FLAG INSERT REAOY 
mp CKRPAR 1 CK *)* AND EXIT To USER 


eIFOF = S0ISK 


eSBTTL "VECT® ROUTINE 
eENOC 
RRAREAERAARERRERAHRERERERERRERRERE NEE 


y ROUTINE TO HANOLE 


’ CALL "VECT™ (OX, DY Coby IFT) ) 

JSR PC, BUFTST 3 ANY BUFFER? 

CLR ABS F py RELATIVE SCALE MODE 

JSR PC, ARGGET » GET ARGUMENTS 

TST XYBIG y SHORT OR LONG MODE? 

BNE VECTO 1 LONG MODE= BRANCH 

81s #104000,R0 9 SET SHORT VECTOR MODE 

JSR PC, PUTSGM 9 SET@GRAPHIC=MOOE 

ume ROOTS » FINISH UP IN RDOT ROUTINE 
618 #110000,R0 y SET LONG VECTOR MODE 

JSR PC,PUTSGM ) SET#GRAPHIC@MODE 

MOV 2(SP),RO 9 GET x 

BIS INVIS,RO y FLAG VISIBILITY 

ers XSIGN,RO 9 FLAG SIGN 

JSR PC,PUTWO y INSERT Xx 

MoV YSIGN,RO » GET SIGN OF Y 

Swaa RO 

ASR RO ‘ 5 MOVE BIT 6 TO BIT 13 

rr SPs ) Fax stack 

8R SOXIT 5 EXIT THROUGH APNT ROUTINE 


eIFOF = =SOISK 
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GTB V@leal BASIC © GT ROOT MOD RT#11 MACRO VMa2=09 16°O0CTe74 623060107 PAGE 25 


1 eSBTTL GENERAL SCALE*UNSCALE ROUTINE 
sENOC 
3 , RERAARAAREAAAAARARETATRAERAAHRARARAA RD 
4 
s 9 ROUTINE TO DO SCALING AND UNSCALING 
6 y VALUE T0 BE SCALED/UNSCALED ANO RESULT ARE IN FAC 
7 ) BE CAREFUL ON REGISTERS SAVED ETC, 
8 9 THIS ROUTINE IS RATSEO TO LEVEL 4 SO A LPEN INTERRUPT 
9 y WON'T CAUSE & STACK OVERFLOW 
18 
tt 
12 04320 SC,USC 
13 94320 905767 rst SCAL,F } 18 THERE ANY SCALING? 
176366 
14 Q4324 gaiaue Bea scuscy § NOw EXIT 
1S 84326 a16746 MOV PSW,=(SP) » SAVE PSW 
177776° 
16 04332 o52767 ars #200,PSW ) RAISE TO PRU 
200200 
177776 
17 06340 210146 MOV Ri,=(SP) » SAVE Ri 
18 @4342 B10246 MoV R2,*(8P) » SAVE R2 
19 94344 O19346 MOV R3,=(SP) 9 SAVE R3 
20 84346 B1duue MOV R4,@(8P) y SAVE RG 
21 84358 @19546 MOV RS, (SP) » SAVE RS 
22 04352 012702 Mov #4,R2 9 SET UP COUNT FOR WORD TRANSFER 
eegeos 
23 04356 085720 T8T (RODS § ADJUST POINTER 
24 84368 014946 SCUSCQs MOV ©(RO),=( SP) » TRANSFER? HI*ORDERsaLQ=ADORESS 
25 04362 05302 oEC R2 y OECREMENT LOOP COUNT 
26 04364 401375 BNE scusce ) BRANCH IF NOT DONE 
27 04366 012767 MOV WERSTAR,SERVEC 9 ERROR VECTOR FOR MULT, 
Oeuuzue 
eeeaees 
28 04374 904767 JSR PC, QIKPOL ) ENTER POLISH MODE 
173712 
29 au4ee eeus7a’ oPUSHF ) FLOAT FAC TO STACK 
3a 24402 ae00006 oSMLR y MULTIPLY : 
31 a44ue4 aauuse’ oRELABS s RELATIVE OR ABSOLUTE SCALE? 
32 04496 oa00006 #$A0R 1 DO AODITION IF ABSOLUTE 
33 04418 waoese’ +POP 1 PUT RESULT IN FAC 
34 @4432 agduyue et2 3 EXIT POLISH 
35 o4414 @12605 MOV (SP)4,R5 1 GET BACK R5 
36 G4416 212604 MOV (SP) 46,R4 
37 a442e@ 012603 MOV (SP)4,R3 
38 o4422 a12602 MOV (SP) 46,R2 y RESTORE REGISTERS 
39 g4424 Bi2601 MoV CSP)o,R1 
4@ 04426 012667 MOV (SP) 6,PSW » RESTORE PSw 
177776 
41 04432 @e0207 SCUSCI: RETURN 
42 
a3 ; awe GOES QUITE DEEP IN STACK #12 WORDS? 
au . / ah 
4S 04434 ERSTAR? C4 
46 04434 {e440 TRAP @ 
47 94436 117 eASCIT /OVF/ . 
04437 126 i\ 
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Guaguea 186 


48 Guugy 208 sBYTE @ 

49 oEVEN 

SQ @4442 B2A027 ERRDOIV: CMP RO, #4808 
804000 

51 @U446 183772 BLO ERSTAR 

52 84450 194400 TRAP ] 

53 auus2 184 ASCII /0VG/ 


@4453 126 
@uusa G68 


S4 @44ss 000 BYTE a 

$s EVEN 

56 

S7 eT FOF SOISK 


72 


ee 
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1 sean MISCELLANEOUS ROUTINES 

2 NOC 

3 , sheecevetnaensaneeanaenaenanesecenenenten 

4 

+) 9 SOME AUXILIARY ROUTINES NEEDED 

r 

7 084456 805767 RELABS: TST ABS,F » RELATIVE OR ABSOLUTE SCALE? 
177156 

8 824462 BO14ua1 Bea RELABO 9 BRANCH IF RELATIVE 

9 BQ4U64u 260134 POLRET y 00 ADDITION STEP IF ABSOLUTE 

18 84466 012665 RELABG@s MOV (SP) o,FACiCRS) 
eoeeue 

11 @0472 012665 MoV (SP)6,FAC2(R5) 3 STORE RESULT IN FAC 
eooeu2 

12 04476 222626 cme (SP) o,(SP)o y CLEAR STACK OF AOO CONSTANT 

13 @4See 200164 oMp (RU) » EXIT PAST ADD AND POP 
enegee 

ia 

15 04504 012767 OIVVECS MOV WERROIV,SERVEC » ERROR VECTOR FOR OIVISION 
ee4uu2? 
2eee00G 

16 06512 000134 POLRET 

17 

18 J SRARRAAARAARAAARAARAAAARARAAEEAREREREREE 

19 

28 9 SOME POLISH ROUTINES (AGAIN) 

at 

22 ea5i4 POSXt 

23 84514 G805767 TST XSIGN 9 CK SIGN OF x 
175312 

24 84528 800482 BR Pose y BR WITH CONDX CODES SET 

25 e4S22 POSYs 

26 84522 805767 TST YSIGN » CK SIGN OF Y 
175306 

27 @4526 egiuel POSes «© BEG POS! 9 BR IF RO mag 

28 aIFOF = SCRASH 

29 SMP ERRAOR + ARGUMENT OUT OF RANGE 

38 eENDC 

31 eIFNOF =SCRASH 

32 64538 eaSeee CLR RB 9 MAKE RO 8 @ 

33 2 ENOC 

34 @4S532 980134 POSi: POLRET 

35 

36 B4u534 ERRAORS 

37 04534 194400 TRAP ) 

38 eIFNOF SLONGER 

39 94536 103 eASCIT = /AOR/ 

aas37 417 
e4sae 122 

4e eENDC 

at eo TFOF SLONGER 

42 eASCII /ARGUMENT OUT OF RANGE/ 

a3 oe ENDC 

Qa ga5at eee BYTE @ 

4s EVEN 

do 

47 @4542 810146 SAVERI3 MOV Ri,a(SP) 9 SAVE ONLY R1 ON STACK 


GTB V@le@) BASIC = GT ROOT MOD RTwi1 MACRO VMO2<09 1LoeOCT=74 G2:86107 PAGE 264 


48 94544 
a9 

$8 Q4uS4u6 
Si a4ss@ 
S2 eusse 


53 @4556 
54 guS62 
55 @4566 
So 04572 
$7 

$8 @4s74 
59 gueea 
68 G4ea4 
61 4686 
62 O6618 
63 O4614 
64 84628 
65 o4624 
66 34626 
67 846308 
68 84634 
69 84648 
72 

TL @4642 


72 Ouo4ua 
713 


280134 


012602 REVRSES 
012603 
B1b646 
eecece 
BLeoue 
eevee 
010366 
oeonee 
010266 
oe0006 
000134 


@36546 PUSHF! 
eecede 

@16546 

oeee4e 

01815 

0eS726 

10167 

288826 

010467 

eevees 

004767 

173666 
@00e0eG 
804638" 
@160781 

eoegee 
e167aG 

oee0ee4 

O80134 PSHXIT?S 


@60008 Mis 
802030 Mer 


POLRET 
MoV (SP)o,R2 
MOV (SP) oeR3 
MOV 2¢SP),°(SP) 
MOV 2¢SP),9(SP) 
Mov R3,6(SP) 
MOV R2,4(SP) 
POLRET 
“OV FAC2(RS)9@(SP) 
MOV FACLCRS) ,=(SP) 
BNE PSHXIT » EXIT IF REAL ALREADY 
TST (SP) 
Mov Rie Mt 
MOV RU,M2 
JSR PC, QIKPOL 
SIR 
e¢2 
MOV MLpRY 
MOV M2,RQ 
POLRET 
eWORD O 
e¥ORD @ 


a IlFOF SOISK 


yt 
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eet kek Ue 


24 
es 


26 
27 


26 
eo 


3e 
31 


32 
33 
34 
35 
36 
37 


38 
39 


GTB 


NOU EU 


6a 
9@ 


18 
a 


19 
28 
21 
22 


23 
24 
25 
26 


27 
28 
29 


38 
31 


32 
33 


34 
35 
36 
37 
38 
39 


24646 
@46U6 204767 
3173336 
4652 210067 
176762 
04656 004767 
173406 
C4662 Be4u542" 
84664 000536" 
84666 004770" 
04678 04514" 
84672 veiuse? 
04674 920076" 
24676 BeSoue" 
04708 ae4522° 
@4782 e04704" 
84784 912767 
1ooeee 
003574 
@4712 010067 
203618 
Q4716 012667 
003602 
04722 12601 
04724 Ba4767 
175106 
84738 810267 
000030 
O4734 000767 
173216 
04748 081702" 
84742 204767 
175070 
84746 010267 
200014 


04752 812767 
173400 
803526 

84768 Be%67 
173332 


24764 geeedd 
04766 ae0a00 


TRaAKE 


TRAKX] 


eSBTTL "TRAK® ROUTINE 
eENOC 


SRAARRAAAAARARRENRSETHERARHERRERNNERENEE 


» ROUTINE TO HANOLE 

’ CALL "TRAK® (X,Y) 

y BECAUSE OF "GETAOR", X AND Y MUST BE 
’ VARIABLES, NOT CONSTANTS| 


JSR PC, BUFTST 1 ANY BUFFER? 
MOV SP,ABS,F 9 FLAG ABSOLUTE MODE 
JSR PC,POLENT 9 ENTER POLISH MODE, CK "(¢* 
SAVERY 1 SAVE PTR To x 
GETONE y GET Xx 
*SCALEX 9 SCALE IT 
#POSx 9 MAKE SURE >8d 
+SAVERG 4s SAVE X ON STACK 
*GETNUM 9 GET Y 
+SCALEY » SCALE IT 
oPOSyY 9 MAKE SURE >a@ 
22 y EXIT POLISH WITH Y IN RO 
MOV #OJMP, BEG » TURN OFF TRAK IF IT WAS ON 
MOV RO,YT ys STORE Y IN TRAK 
MOV (SP)¢,XxT » STORE X IN TRAK 
“OV (SP) o,RY » RESET TOKEN PTR TO x 
Jse PC,GETAOR 4 GET ITS ADDRESS IN R2 
MOV R2, TRAKX y STORE THE AOORESS 
JSR PC, ENTERP » IMMED POLISH 
#CKOPCM 1 CK COMMA 
JSR PC,GETAOR 3 GET ADORESS OF Y 
MOV R2,TRAKY 9 STORE ADORESS OF Y 
y wae START TRAK ANO EXIT 
MOV *SOINT, BEG 5 START TRAK 
JMP CKRPAR + CK ")" AND EXIT TO USER 
»WORD~@. y ADORESS OF CURRENT X VARIABLE 
«WORD @ 9 ADORESS OF CURRENT Y VARIABLE 


TRAKYS 


eIFOF =. SOISK 
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04770 
04778 885067 
175036 
34774 012700 
@06402" 
@5000 204767 
177314 
85004 004767 
@20000G 
85018 885765 
eeea4e 
@5014 ae1uge 
B5016 G00167 
177512 
@5@22 016500 
800e4e 
05826 a02030 
@503@ a12767 
920000 
174774 
@5036 905400 
05048 yeauesd 
esaue 
@5042 205067 
178766 
85046 912700 
006372" 
85052 @@4767 
177242 
05856 804767 
2880006 
85062 005765 
0000400 
85066 @014e1 
85078 #88752 
85072 816508 
oeeede 
5876 a8eoe4 
85108 B12767 
300180 
174726 
95106 gaS4uae 
85110 828027 
eeeooe 
85114 adeuge 


85116 812708 


SCALEXs 


XSCL2s 


XSCL@t 


XSCLis 


SCALEYs 


YSCLO! 


YSCLi3 


eSBTTL POLISH SCALEX AND SCALEY 
ENOC 
SAA aea ae enneaenenenennntenseneenannnnes 


s ROUTINES (POLISH) TO SCALE X OR Y 
y SCALES FAC, SETS SIGN BIT, MAKE VALUE POS,, CK IF > 1923 


CLR XSIGN y ASSUME X os @ 

MOV #SCL,X/RO » SET UP FOR SCALE x 

JSR PC,8C,USC 1 SCALE AS REQUIRED 

JSR PC, INT 4 INTEGERIZE 

TST FACIC(RS) 9 DID WE SUCCEED? 2 
BEQ xXSCLO » YES= BRANCH 

JMP ERRAOR } NO@ CRASH 

MOV FAC2(R5),RO # MOVE RESULT TO R@ 

BGE YSCui 1 BRANCH IF od 

“OV. #20000, XSIGN y MAKE BIT 13 ON IF NEGATIVE 
NEG RO 1 MAKE RQ > @ 

BR YSCLi + CHECK RO < 1026 

CLR YSIGN y ASSUME Y >8 @ 

MOV #SCL.YRO y SET UP FOR SCALE Y 

JSR PC,SC.USC y SCALE IT 

JSR PC,INT y INTEGERIZE IT «< 327677 
TST FACS (RS) ’ 

BEQ YSCLa- 9 YESe BRANCH 

BR XSCL2 » NO@ CRASH 

“QV FAC2(RS) -RO 9 MOVE RESULT TO RO 

GE YSCL 1 BRANCH IF >s@ 

“OV #108, YSIGN 9 SET BIT 6 IF NEGATIVE 
NEG RO 7 MAKE RO > @ 

CMP RB, #2000 » COMPARE WITH 1924 

BLT YSCL2 1 BRANCH IF LESS THAN 
eIFOF  SCRASH 

BR xSCL2 9 CRASH 

a ENOC 

sIFNOF = SCRASH 

mov #1777,R8 9 MAKE 8 1823 


72 


ea 7 
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001777 
aa 
41 95122 000134 YSCL2s 
a2 


2ENOC 
POLRET 
eIFOF =6SOISK 
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weenousune 


Cede ed ak tt 
SC@OnouUeune-@ 


esi24 XGRAS 
85124 012767 
1200008 
280542 
@5132 012767 
177776 
880536 
23 05148 aee406 
24 aside YGRAs 
25 @5142 012767 
124000 
eees24 
26 85158 612767 
177778 
080526 
27 @5156 084767 GRA.A 
173026 
28 85162 605067 
176452 
29 85166 885067 
174636 
3@ 05172 004767 
173072 
31 05176 G80136° 
32 @Se0e@ aes2e2° 
33 05202 026727 
eeeu7e 
177776 
34 @5218 e814128 
35 @5212 0040767 
173074 
36 85216 804779° 
37 @5220 eo4siue 
38 85222 eeS522u° 
39 @5224 o12704 
@o5262° 
4@ 25232 200134 
41 @5232 G84767 GRa.is 


nn 
-o 


~ 
OY] 


SBTTL "XGRA® AND "YGRA® ROUTINES 
oENOC 
ARAAAREAAEA EA AAARAAAA AEA ERERAAAE RRR REED 


y ROUTINE TO HANDLE 
' CALL "XGRA" (DY, A [oL,I,F,T] ) 
f] CALL "YGRA" (DX, A ColelyFeT) ) 


ARRAY A MUST HAVE AT LEAST 2 ENTRIES 
IF AN ARRAY I$ USED WITH XGRA OR YGRA, THEN 
THE S$S2 ENTRY IN SYMTAB BECOMES «2, ©3 RESP, 
waNOTE THAY THIS MEANS THAT 
1) ONLY DIMENSIONED ARRAYS MAY BE USED WITH 
THESE ROUTINES, AND 
2) THEY MUST HAVE ONLY ONE SUBSCRIPT 
we AT PRESENT, SINCE THE PLOTTED DATA IS ABSOLUTE, 
AN ARRAY MAY BE USED IN ONLY ONE CALL 
(THIS CAN BE CHANGED WITHOUT TOO MUCH TROUBLE) 


we te ee we ee we 


Mov #128000, MODE ) MODE FOR GRAPH@Xx 

MOV #=2,832TMP ) NEW VALUE OF $82 

BR GRA,@ » BRANCH AND CONTINUE . 

Mov #120900, MODE 1 MODE FOR GRAPHey 

MoV #o3,SS2TMP y NEW S$2 FOR THIS MODE 

JSR PC, BUFTST y ANY BUFFER? 

CLR ABS,F » RELATIVE SCALE 

CLR XvBIG » ASSUME <6a 

JSR PC,POLENT » ENTER POLISH, CK "," 
*GETONE » GET DY OR DX RESP, 
ot2 + EXIT POLISH 

CMP S$S2TMP,H=2 9 XGRA OR YGRA? 

6eQ GRAw1 y BRANCH IF XxGRA 

JSR PC, QIKPOL ) ENTER POLISH 
+SCALEX y SCALE OX IN YGRA 
+POSx ) MAKE SURE >s@ 
ot2 y EXIT POLISH 

MOV #GRA,3/RG » NEW POLISH PC 

POLRET » ANO CONTINUE THERE 

JSR PC,QIKPOL y ENTER POLISH 
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173054 
42 85236 a8Seu2" oSCALEY » SCALE DY FOR XGRA 
G3 85248 gouse2?’ oPOSy 9 MAKE 990 
44 85242 2@144e°GRA,31 *TSTed ) CHECK IF < 6% AND ONTO STK 
4S a5244 gai7e2° *CKOPCM ) CHECK OPTIONAL COMMA 
46 @5246 gousu2? *SAVERI ) SAVE PTR TO ARRAY 
47 @525¢ 900340 +SKPARG 1 TO GET BY ARRAY 
48 a5252 203050° oUIFT 9 GET Lol,PeT 
49 95254 Q05256" a2 1 EXIT POLISH 
58 85256 256700 ars MODE, RO } ADD MODE TO SGM 
eeeute 
St 85262 10167 MOV Rt, MODE » TEMP, SAVE PTR TO "A" 
280406 
52 85266 gaa7e? gsr PC, NEWPUT ) INSERT IT/ FORCE NEW SGM 
1 
53 as272 o1esae mov 2(8P),Re 1 GET SCALED INCREMENT 
208 
54 25276 avieas BNE GRAL 1 BR IF Rese 
55 85300 GRagt ,IFDF © SCRASH 
S56 JMP ERRAOR ) ARGUMENT OUT OF RANGE 
57 eENDC 
58 eIFNOF SCRASH 
59 o5300 205200 INC Ra ) MAKE R@ ow 4 
68 sENDC 
61 85302 005767 GRALs = TST XYBIG ) EXCEED 63? 
174522 
62 85306 aaiuae BEQ GRA2 ) NO BRANCH 
63 .IFOF = SCRASH 
64 BR GRA 1 CRASH 
65 a ENDC 
66 vIFNOF SCRASH 
67 85318 812700 MoV #77,R8 1 MAKE © 63 
800077 
68 eENDC 
69 a5314 eszree GRAZ: BIS #170100,RB } LOAD STAT, REG, B 
174108 
78 95328 904767 JSR PC,PUTWO ) INSERT IT 
173324 
71 05324 a1270¢ MOV #OUMP, RO ) FOLLOWED BY DUMP 
160ee0 
72 05338 ooure? JSR PC,PUTWO ) INSERT IT 
173314 
73 @5334 812601 mov (SP)o,R4 ) POINT AT ARRAY 
74 05336 205726 TST (SP)+ 1 CLEAN STK 
75 @534a 112102 MOVB (R1)o)R2 
76 @5342 100011 BMI GRASYN 3 SHOULD NOT FIND A TOKEN 
77 @5344 gea302 SWAB oR 
78 85346 iS2ie2 BISB — (R1) oy, R2 
79 @535@ B61Sa2 ADO (RS) ,R2 ) ADR IN SYHTAB OF ARRAY 
8@ 05352 121127 cMPB CRI), Me COMMA ) BETTER BE FOLLOWED BY A *,* 
8000006 
81 05356 ae1ua7 BEG GRAS ) YES= BRANCH 
62 05360 121127 cuPB (R1),MRPAR ) OR MAYBE A #)m / 
2200006 Seek 
83 @5364 aeiuau BEG GRAS 1} YES@ BRANCH 
84 95365 280167 GRASYNE JMP ERRSYN 1 SYNTAX ERROR : 
oeeaees ! —- 
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8S @5372 880167 GRAARG: JMP ERRARG 9 ARGUMENT ERROR 
e0e00aG 
86 85376 822227 GRASS CMP C(R2)o, #02 1 BETTER BE AN ARRAY 
177776 
87 e542 001371 BNE GRASYN + NO# ERROR 
88 25484 812200 MoV (R2)4,RO 9 GET ADR OF (SCALAR BEFORE) ARRAY 
89 85406 822920 CMP (RB) o, (ROD& ys POINT TO AC@) 
92 @5418 004767 JSR PC, PUTHO } INSERT AFTER DJMP 
173234 
91 85414 811201 MOV (R2),R4 y 18 SSi >0? 
92 05416 803765 BLE GRAARG + NO= ERROR 
93 a5428 212046 MOV RO,=(SP) 1 SAVE AOR 
94 95422 Q10200 MOV R2,RO 
95 85424 GOu767 JSR PC, PUTWO y SAVE AOR OF SS1 
173228 
96 G543a 812600 “OV (SP)o,RO 9 RESTORE R@ 
97 95432 885022 CLR (Rede 9 MAKE SSiag IN SYMTAB 
98 85434 021227 CMP (R2), #91 1 CHECK $S2 « 937? 
177777 
99 05448 981354 BNE GRAARG » NO# ERROR 
120 5442 a16712 MOV SS2TMP, (R2) 1 STORE NEW SS2 
080230 
181 Sdu6 a1egee MOV RB,R2 4 STORE START OF SCALED ARRAY 
1@2 5450 210667 MOV SP,ABS,F 9 ABSOLUTE MODE 
176164 
183 el FOF SLPS 
104 5454 005067 CLR LPS F » ASSUME NOT AN LPS ARRAY 
OG0114 
185 S468 B12704 MOV #NARRAY,RG 1 NO, OF ENTRIES IN BUFFER TABLE 
eoeeouG 
186 5464 vatas3 BEQ GRA? y NOTHING THERE 
107 S466 012703 MOV #TABLE,RS 1 AOR OF FIRST GeWORD BLOCK 
80v9806 
108 S472 921308 GRA6s = CMP (R3),RO y AOR, MATCH? 
109 S474 go1ee3 BNE GRAIG 1) NO# BRANCH 
118 5476 810667 MOV SP,LPS,F 9 SET LPS FLAG 
200072 . 
114 5502 9eeued BR GRAT y EXIT 
112 5504 062703 GRaie: A00 BL24,R3 9 GO TO NEXT BLOCK 
Ob014 
113 5518 005304 DEC Ra 3 ANY ENTRIES LEFT? 
114 5512 003367 BGT GRAG 1 YES= BRANCH 
1s sENOC 
116 S514 810803 GRATE MOV RO,R3 ) GET START OF UNSCALED DATA 
117 alFOF SLPS 
118 SS16 605767 TST LPSeF 7 AN LPS ARRAY? 
aeeese 
119 5522 o81ua3 BEQ GRATA 9 NO» BRANCH 
120 5524 906301 ASL RY 1 YESe DOUBLE ARRAY ENTRIES 
121 $526 a05ua1 NEG Rt 
122 5538 205201 INC Ri y MAKE eOIMet 
123 5532 GRATAY ,ENOC 
126 5532 a16100 MOV Ri,RO 
125 5534 oeu767 JSR PC,PUTWO y STORE S81 IN OPY FILE 
173118 
126 eo TFOF suPs a on 
127 $54@ 005767 Tst LPS.F 9 AN LPS ARRAY? a 


RSD) 
\\ 
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128 
129 
130 


131 
132 
133 
134 
135 


136 
137 
138 
139 
1498 


194 


142 
143 
144 


145 
196 


1a7 
148 
149 
1Se 


151 
1Se 
153 
15a 


iss 
156 
1s7 
158 
1s9 
160 
161 
162 
163 


164 
165 
166 
167 
168 


169 
178 


GT8 


NOW EWN 


8 @ 
98 


23 


ea 


es 
26 
27 
28 
29 
30 
31 
32 
33 
34 


35 


36 
37 
38 
39 
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ssuq 
S546 
5550 


sssa 
$SS6 
S500 
5562 
SSo4 


5570 
ss72 
5574 
5576 
5ee2 


Sede 
5606 


5614 
Sete 
Se22 
Se24 
5626 
5630 
5636 
5636 
Soo 
Sege 


Sodo 
5650 


sese 


Sosa 
5660 
Soo4 
56078 


So74 
5676 
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85780 
85720 


@5704 
@5706 
eS712 
es7t2 
@5714 
@S716 
05720 
es722 
es72u 
85726 
@5730 
05732 


@5740a 


OS746 


@57Sa 


@5762 
85766 
05770 
5772 
Os774 
85776 
86800 
06002 
86004 
eee18 


Boe14 


Bon22 
96026 
06032 
06036 


200038 
ed1a1a 
eeSae1 
085767 GRAD 
ee0020 
ee1418 
012308 
010340 
10003 
0047607 
8080086 
012603 
000405 
000000 LPS.Fs 


@12365 GRALPS 
oeoe4e 
212365 
eeegde 


GRALP Is 

Q26727 
200006 
177776 
081405 
204767 
172070 
eeseue? 
004522° 
e0Seae* 
047607 GRAus 
172456 
004770° 
@eas14° 
eeSeu2" 
852700 GRASt 
eaoeeo 
@1e022 
005301 


882336 


016781 
000018 
12722 SOXITIs 
168000 
G16712 
172746 
000167 
176318 


@28e08 MODE: 
880808 SS2TMPy 


SCAL3 
004767 
172308 
000136° 
Oeu574? 
eeea26* 
eeeede 
200076" 
ee4s74u? 
eo¢e4e" 
004546" 
800076" 
oe4s7ue 
005732" 
016667 
200004 
eveuio 
016667 
000006 
eee4eu 
016667 
eoee14 
eoeuou 
016667 
600016 
eeeuee 
004467 
172438 
@B6234° 
0200086 
200176" 
002256" 
eeeoeeG 
000176" 
oeeaue? 
012667 
000364 
012667 
002302 
612767 
006352° 
008166 
604767 
Cae216 
212667 
000336 
012667 
820334 
@12667 
080302 


BEQ 
NEG 
Tst 


BEQ 
“OV 
“OV 
MOV 
JSR 


MOV 
6R 
WORD 
eENDC 
MOV 


MOV 


o IFOF 
eENOC 
cme 


Sea 
JSR 


JSR 


Bis 


MOV 
oEc 
e TFOF 
BGE 
eENOC 
e IFNOF 
8GE 
eENOC 
Mav 


mov 
mov 
ame 
«WORD 


WORD 
eI FOF 


oSBTTL 


a ENOC 


GRALP 
RL 
LPS. 


GRALP 
(R3)o,RO 
R3,0(SP) 
ROARS 
PC»FLOAT 


(SP)o,R3 
GRALPL 

t) 
(R3) eo, FACICRS) 
(R3)o,FAC2(RS) 
SLPS 
SS2TMP, #02 
GRAG 

PC, QIKPOL 
+SCALEY 
#POSY 
*GRAS 

PC, QIKPOL 
*SCALEX 
oPOsx 

a2 
#48000,RO 
RB (R26 
Ry 

SLPS 

GRAD 


SLPS 
GRALP 


MODE,Ri 
#OIMP, (R2)o 
OISEND, (R2) 
SOxIT@ 

8 


"SCAL" ROUTINE 


a 


~~ ew ww 


~~ 
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NOe DON*T NEGATE 

USED >@ HERE 

AN LPS ARRAY? 

NOe BRANCH 

GET DATA 

SAVE R3 

SET UP FOR LPS "FLOAT® 
FLOAT INTO FAC 
RESTORE R3 

AND CONTINUE 
NON@ZERO IF LPS ARRAY 
GET DATA 


AND SECOND WORD 


XGRA OR YGRA? 
BR IF XGRA 
ENTER POLISH 
SCALE IT TO RO 
MAKE SURE >a @ 
CONTINUE THERE 
ENTER POLISH 
SCALE X TO RO 
MAKE SURE >= @ 
EXIT POLISH MODE 
MAKE VISIBLE 


STORE SCALED VALUE 
DECREMENT COUNT 


Loop 


Loop 

RESTORE Ri 

INSERT DUMP 

AND ADORESS 

CK ")" ANO EXIT TO USER 


GRAPHeX OR GRAPH=Y MODE 
NEW VALUE OF SS2MAX 
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RRARAAHANERERARRARRRARNRAERRERNRREERERE 


y ROUTINE TO HANOLE 
CALL "SCAL™CLLX/LLY,URK,URY [,INX,INY)) 


JSR 


“ov 


MOV 


MOV 


MOV 


JSR 


“OV 
MOV 
MOV 


JSR 
MOV 
“OV 
MOV 


PC, BUFPOL 


*GETONE 
+PUSHF 
+PLOOP 
+2 
+GETNUM 
+*PUSHF 
+ELOOP 
*REVRSE 
*GETNUM 
*PUSHF 
a2 
CSP),LLY 


6(SP),LLY¢2 


12.(SP),/LLX 


14, (°SP),LLXe2 


RG, FPPSAV 
oMULVEC 
+$SBR 
#NEGSTK 
*#POP 

*SSBR 
*NEGSTK 
+FPPRES 
(SP) o,Fx 
(SP) o,FXo2 


#USCL.Y,SCPTR 


PC, SCLGEN 
(SP) o,FYL 
(SP) o,8CLY 
(SP)o,IFY 


we ewww www wwe 


ENTER POLISH AND CK "(* 


GET LLXx 

FLOAT TO STK 

POLISH LooP 

TWICE 

GET "/LLY,URX® 
FLOAT TO STK 

END POLISH LOOP 
REVERSE LLU AND URX 
GET URY 

FLOAT TO STK 

EXIT POLISH, CK INK, INY LATER 


Savé LLY 


SAVE LLX 


ENTER POLISH AND SAVE REGISTER 


LOAD ERROR VECTOR FOR SUBTRACT 
LLY*URY 

URY@LLY 

SAVE IN FAC 

LLX@URX 

URX@LLX 

RESTORE REGS, AND EXIT POLISH 


SAVE URX@LLX TEMPORARILY 
POINTER m= LLYe2 


GENERATE SCALE IN Y 


STORE FYL = oFY@LLY 


wee 
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4@ 6042 012667 Moy (SP)46, IF Ye2 y STORE IFY w 1/FY 
600300 
41 86046 016567 MOV FACLCRS) FY 
TITTY) 
000318 
G2 06854 216567 MOV FAC2(RS) FYe2 » STORE Fy 
eeves2 
200304 
43 B6G62 B16765 MOV FX,FACi(RS) 
000306 
eveg4e 
44 86078 016765 MOV FXo2,FAC2(R5) 5 PUT URX@LLX IN FAC 
200302 
Boeade 
4S 86076 O12767 Mov WUSCL,X,SCPTR 9 POINTER = LLXe2 
006362° 
eeo1ed 
46 86104 804767 JSR PC, SCLGEN y GENERATE SCALE IN X 
000134 
47 @6118 212667 MOV (SP), FXL 
e0264 
48 @6114 212667 MOV (SP)o,SCL eX 9 STORE FXL w oFX#LLX 
eoe262 
49 @6120 012667 MoV (SP)o,IFX 
eve23e 
S58 86124 e12667 MOV (SP) o, IF Xe2 s STORE IFX @ 1/FX 
e08226 
Si 86138 016567 MOV FACi(RS),FX » STORE FX 
eaog4e 
000236 
S2 06136 016567 MoV FAC2(RS) ,FX42 
eeoeu2 
ee0232 ; 
53 ge14u4 ee Mov #FX,RO » SET UP SOURCE VARIABLE ADDRESS 
06374 
54 @615@ 204767 JSR PC,OPTSTR p STORE INX = FX IF USER WANTS IT 
eaarue 
SS 86154 016765 MOV FY, FACICRS) 
eeo2a4 
eeee4e 
56 @ol62 O16765 MoV FYo2,FAC2(R5) 9 MOVE FY TO FAC 
8ee200 
eeegue 
S7 060178 012708 | MOV WFY,RO y SET UP SOURCE VARIABLE ADORESS 
206364 
58 06174 904767 JSR PC, OPTSTR y STORE INY # FY IF USER WANTS IT 
000116 
59 06200 010667 SCAL@s MOV SP,SCAL.F 7 SCALING HAS BEEN DONE 
174506 
68 06204 080167 JMP CKRPAR + CK ")" ANO EXIT TO USER 
172106 
61 
62 06210 Be0000 SCPTR: ,wWORD @ 9 PTR FOR A POLISH ROUTINE < + 
63 sIFOF = SDISK \ Gr 
64 +E0T Meds 
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OEC = 11 © LBPGB e A= LA BASIC KERNEL VO2901 
GTB,MAC TAPE 4 OF 4 


THE INFORMATION IN THIS LISTING IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION, DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS LISTING, 


ee OOM eEWN 
-2 


12 THIS SOFTWARE IS FURNISHED TO THE PURCHASER UNDER A LICENSE 
13 FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH 
4 INCLUSION OF OIGITAL’S COPYRIGHT NOTICE) ONLY FOR USE IN 
15 SUCH SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY 
16 DIGITAL, 
17 
18 DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE 
19 USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT 
20 SUPPLIED BY DIGITAL, 
ral e 
22 COPYRIGHT (C) 1973,1974, BY DIGITAL EQUIPMENT CORPORATION, 
23 
24 AUTHORS OR, STEPHEN R, ALPERT AUGUST 1973 
25 eSBTTL ROUTINES AUXILIARY TO *"SCAL" 
26 2 ENOC 
27 , RAREAARRAEREREAERAEARRERER EERE NERA 
28 
29 » SOME NECESSARY ROUTINES TO ACCOMPLISH SCALING 
38 
31 86212 PSHPTRe 
32 @6212 16700 MOV SCPTR,RO 1 R@ HAS ADDRESS OF LO@ORDER WORD 
177772 
33 G6216 B11046 MOV £R8),°(SP) + MOVE TO STK 
34 g6220 a14046 MOV =(RB), 9 (SP) 
35 G6222 200134 POLRET 
36 
37 6224 TENGE 
38 26224 ge5Q46 CLR (SP) 
39 06226 O12746 MOV #42600,=(SP) y PuT 1824, ON STK 
042608 
4@ @6232 200134 POLRET 
4a. 
42 86234 MULVECS 
43 86234 012767 MOV #ERSTAR,SERVEC 3 MULT, ERROR VECTOR 
oeuuzue 
8OeeoRG 
44 G6242 200134 POLRET 
45 
46 , AERA RARARAAERARART RARER REED 7 v7. 
a7 
48 y SCALE GENERATOR ROUTINE 
4g 1 ON EXITs 
58 ' FX IN FAC 
St ’ FXL aT (SP), 2(8P) 
Se ’ IFK AT G(SP), 6(SP) ea - 
53 : ps 


54 @eaua SCLGENS 





GTB 


5s 
56 
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Go2ua 
geese 


@e25a 
86256 
06200 
@o2602 
Be264 
26266 
Bo27e 
Be272 
Be274 
Q6276 
6300 
06382 
86300 
06326 
06310 


86314 


012667 MOV (SP), SCL8AV » SAVE RETURN ADDRESS OFF STK 
C00ga4 

eeuue7 JSR RO, FPPSAV » SAVE REGS ANO ENTER POLISH 
172142 

@@e2u0" oPUSHE 9 PUT 1,8 ON 8TK 

@@6224° oTEN2G y PUT 1920, ON STK 

e84usau* +OIVVEC t OIVIOE ERROR VECTOR 
200234° *PUSH 4 PUT FAC ON STK 

0000006 *SOVR 9 1024,/DIFF, = FX 

0200256" +POP 9 PUT FX IN Fac 

800234" PUSH » PUT BACK ON STK 

e2eeeaG #30VR D Le/FX w IFX 

O80234" +PUSH 9 FX ONTO STK AGAIN 

000176" oNEGSTK 1 NOW @FX 

O86212° oPSHPTR 9 PUT LLX ON STK 

806254" @MULVEC 9 MULT, ERROR VECTOR 

2800006 +SMLR 9 FXL © @FXaLLX 

Ceeuu2? oFPPRES 9 EXIT POLISH AND RESTORE REGS 
000177 sme @SCLSAV 9 RETURN TO CALLER 

eo0000 

@80G0@ SCLSAVs ,WORD @ 4 RETURN ADDRESS 


elPOF = SOISK 


GTB V@1e@1 BASIC = GT ROOT MOD RT@11 MACRO VNG2~99 16*0CT©74 82186867 PAGE 32 


me COON Ewe 


86316 
@6316 


86322 
@6320 
06326 
06330 
06332 


06336 
Go348 
G6342 


Oo34a4 
86346 
06350 
06352 


06354 
96356 
863600 
6362 


@6304 
06366 
86370 
6372 


66374 
060376 
86400 
06402 


004767 
171778 
002066" 
081702" 
006330" 
1834006 
004767 
173598 
@1ee22 
12022 
200207 


200800 
eeoeeo 
020000 
oeseee 


828000 
002000 
oeeoae 
200088 


200800 
200800 
ee0eee 
oe0e00 


eeenes 
ee0ecee 
260000 
202000 


OPTSTRs 


OPTSTOs 


IFYS 


LLY? 
USCLLY! 


IFXs 


LLXs 
USCL.X3 


FYE 


FYLS 
SCL.Y? 


FXs 


FXL 
SCL.X8 


ply OPTIONAL STORE ROUTINE AND DATA LAYOUT FOR SCAL 
ENO 
sanescenesensansnnenssanceneesnnansnnses 


y ROUTINE TO OPTIONALLY STORE (RO),2(R@) IN NEXT PARAM 
’ IF THERE IS ONE, 

y RL POINTS TO COMMA BEFORE PARAMETER 

5 RO POINTS TO ENTRY TO BE MOVED 


JSR PC, QIKPOL 1 ENTER POLISH 
*SETOPT 3 SET OPTIONAL FLAG 
*CKOPCM 9 CK OPTIONAL *," 
ot2 » EXIT POLISH 

cs opTsTa y NOe A RIGHT PAREN 

JSR PC, GETAOR 9 GET ADR IN R2 

MOV CRO) o, (R2)o 

MOV (ROI, (R206 » STORE RESULT 

RETURN 


AREARERARERRERHRRERNERRRE RETREAT H ER ERHE 


1 DATA STORAGE FOR SCALING 


eWORD 0,8 a IFY © L/FY 
eWORD @ y uLY 

WORD @ 

eMORD 8,8 > IFX ws L/IFy 
eWORO @ y LX 

eWORD @ 

eWORD 868 FY 

e*ORD @ 7 FYL & @FYRLLY 
eWORD @ 

WORD 0,8 s FX 

WORD @ y FXU & IFXaLLX 
eWORD O 


cIFOF = SDISK 
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me DONTE Uwe 


Ce or ores 
-8 ©8414 CF UN fun 


nnn 
fun 


uw 
NOW 


ue 
oo 


w 
a 


GTB 


me COUNT Swe 


eee 
OrneTNeun —o& 


nw 
-o oo 


uw 
eun 


nn Wy Fw 
on ow 


ww 
Neon 


Wt 
THEW 


cuBw 
aQo0on 


& 


ee 
wn 


ee 
We 


G64gu 
06404 


86410 
Goaia 


86420 
@ou22 
@64e4 


06430 
86432 


26436 
G6440 
26442 
Geuug 
@6446 
06450 


@64u54 
06456 


AORCHKE 
@Q4767 
1734026 
016500 
ee0ee2 
021027 
177776 
Be1uaG 
003015 
@12700 AORCHIs 
177777 
020134 ADRCH2: 
816008 AORCHG: 
eo0e06 
805208 
802371 
005208 
205400 
006300 
20027 
eeoe04 
003765 
@8@167 AORCH3! 
0800006 


eSBTTL POLISH ROUTINE TO SORT VARIABLE TYPES 
oENOC 


RRARTRERERAARHERERERTERERRAERRERRRERERED 


1 ROUTINE (POLISH) TO RETURN IN RO 

’ o1 IF ARGUMENT IS SCALAR OR REGULAR ARRAY 
’ @ IF XGRA ARRAY 

’ 2 IF YGRA ARRAY 

’ 4 IF FIGR ARRAY 

a #* CRASH IF A STRING ARGUMENT 

» Ri POINTS TO PARAMETER IN TOKEN FORM 


JSR PC,GETAOR » GET THE ADDRESS 

Mov VARSAVCRS),RO = GET POINTER TO SYMTAB ENTRY 
CMP (RB), #02 4 ARRAY OR SCALAR? 

BEQ AORCHO 1 BRANCH IF ARRAY 

BGT AORCHS 9 BRANCH IF SCALAR 

Mov #=1,RO FLAG AS #1 

POLRET y AND EXIT 

MOV 6(RB),RO 9 GET SS2MAX 

INC RO 

BGE ADRCH » BRANCH IF SS2MAX >m0t 
INC Ro 

NEG RO 

ast RO 9 R@ cow 2 « (RO % 3) 
CMP RO,8u 3s BETTER NOT BE >4 

BLE ADRCH2 9 IT ISN*T, EXIT 

uMP ERRARG y IT 18, FAIL 


ol FOF SOTSK 
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Bed6e 
Ge462 


Qo466 
86470 
B6472 
@6474 
@6476 
86500 
06582 


26586 


86512 
6514 
B6516 
ae520 
86522 
@eSeu 


06530 
86534 
86540 


86544 
86546 
86550 
06552 


46556 
06560 
@6562 
@6564 


26578 
86572 
6574 
26576 


86622 


26606 
20610 


06614 
Zeole 


APUTS 
084767 
171516 
eausue? 
eac3un? 
080076" 
@0usue’ 
@00234° 
e0e50e" 
B166a! 
ba¢eee 
O04767 
171680 
eGougue 
@80256° 
806522° 
8857280 
Go2002 
@08167 
2000286 
B10266 APUTL: 
avoae2 
@10667 
175100 
616007 
2865uu? 
adesse*Tis 
006564" 
086576" 
@B4767 APUTXS 
171534 
084770" 
Oeus5iu" 
086646" 
@04767 APUTYS 
171522 
easaue? 
eausee? 
006646" 
005067 APUTFs 
175036 
026065 
eaee24 
103012 
804767 
171342 
ee5oue* 
Q00367 


aS8TTL "APUT" ROUTINE 
eENOC 
AHARAR AA AAAR ARENT E NEAR RARER ENR 


s ROUTINE TO HANOLE 

’ CALL "APUT*® ( ACT), 2) 

1 "A" MUST BE XGRA, YGRA OR FIGR ARRAY 
» "2" CANNOT BE ANY OF THE ABOVE 


JSR PC, BUFPOL y ENTER POLISH AND CK "(* 
+SAVERL 1 Ri TO STK CPTR TO ACI) ) 
+SKPARG y SKIP OVER ACI) 

*GETNUM 1 CK ")" AND GET VALUE OF Z 
+SAVERS y SAVE PTR TO ")" ON STK 
*PUSH » SAVE Z ON STK 

t2 1 END POLISH MODE 

MOV 6(SP),RL y POINT AT ACI) AGAIN 

Jsr PC,QIKPOL » IMMED, POLISH 
+AORCHK 1 CHECK ITS TYPE 
+POP » PuT Z BACK IN FAC 

22 } EXIT POLISH 

TST R@ » XGRA, YGRA, OR FIGR? 

BGE APUT] 1 YESe BRANCH 

MP ERRARG y NO= CRASH 

MOV R2,2¢S8P) » SAVE AOR OF ACI) OVER PTR TO A(t) 

MOV SP,ABS,F 9 ABSOLUTE MODE (XGRA,YGRA) 

MOV T3CRA) APC 9 DISPATCH 
aPUTX ) XGRA 
oAPUTY 9 YGRA 
oAPUTF 1 FIGR 

JSR PC, QIKPOL y ENTER POLISH 
*SCALEX y SCALE IT 
+POSX » MAKE SURE >2® 
#APUT2 3 CONTINUE AT APUT2 

JSR PC,QIKPOL y ENTER POLISH 
#SCALEY y SCALE IT 
#POSY 1 MAKE SURE >8@ 
vAPUT2 y CONTINUE AY APUT2 

CLR ABS, F + FLAG RELATIVE MODE 

ROR SSISAV(RS) 1X OR Y ENTRY? 

acc APUTFQ 3 Xe BRANCH 

JSR PC, ENTERP + IMMEO, POLISH 
+SCALEY y SCALE Y 


SwaB YSIGN 


¥/ 


—, 
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173212 : 

46 BO622 806267 ase YSIGN ») MOVE SIGN TO BIT 13 
173206 

47 G6626 856700 ers YSIGN,RO ) SET SIGN BIT IN ANSWER 
173202 

48 96632 800405 BR aPuT2 y CONTINUE AT APUT2 

49 06634 004767 APUTFQs JSR PC, ENTERP 1 IMMED, POLISH 
171316 

S@ @664e 004770° #SCALEX » SCALE x 

Si @6642 056708 ars XSIGN,RO s SET SIGN BIT 
173164 

S2 86646 aPuTas ; 

S3 06646 312601 MOV CSP)o,R4 y POINT TO *)* 

54 06650 017646 Mov CSP), (SP) 9 GET VALUE 
030000 

5S 86654 B42716 BIC #337777, (SP) y CLEA ALL BUT VISIBILITY 
137777 

S@ 86660 e50016 ers RO, (SP) » SET IN VALUE 

S7 G6662 212636 MOV (SP), @(SP)¢ y STORE ACI) 

58 86664 ag0404 6R AGETG 9 EXIT THRU CKRPAR 

$9 eIFOF = SDISK 
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i eSBTTL "AGET® ROUTINE 

2 2 ENOC 

3 J RARRAARAAAARERERRRAAEREAAEERRRERAAARR EE 

4 

5 y ROUTINE TO HANOLEs 

6 ’ CALL "AGET™ ( ACI), Z) 

7 1 "A" MUST BE XGRA, YGRA, OR FIGR ARRAY 

8 y "Z" MUST NOT BE ANY OF THE ABOVE 

9 

18 86666 AGETS 

11 86666 sored JSR PC, BUFPOL 5 ENTER POLISH AND CK *(* 
171312 

12 86672 geeuau? *AORCHK 9 CK AOR OF ACI) 

13 06674 o01702° *CKOPCM 1 CK "," 

14 86676 006700° ote y EXIT POLISH 

15 86700 0057008 Tst RO » XGRA, YGRA, OR FIGR? 

16 @6702 ae2ee2 BGE AGETO 9 YESe BRANCH AND CONTINUE 

17 06704 @G8167 AGET3: JmMP ERRARG » NO* CRASH 
0000206 

18 @6710 010667 AGET@: MOV SP, ABS F » ABSOLUTE MODE 
174720 

19 86714 oeacez Mov (R2),Fac2cRS) y GET VALUE FROM ARRAY 

Oa 

28 286720 205865 CLR FACICRS) ’ INTO FAC 
ee0ede 

21 06724 942765 BIC #4BBO0,FAC2(RS) 5 CLEAR INTENSITY. BIT 
e4eeae 
eeeeue 

22 86732 G160a7 MOV TBC(RO),PC 1 DISPATCH 
026736" 

23 86736 ae6744°TOS +AGETX 1 XGRA 

24 86740 ae7Q0K0" +aGETY + YGRA 

25 86742 206752" oaGETP y FIGR 

26 86744 @12700 AGETX: MOV BUSCLX,RO » UNSCALE XGRA 
806362" 

27 86750 agout7 BR AGET » ANO CONTINUE 

28 6752 32712 AGETF: BIT #20000, (R2) » LONG VECTOR <9? 
20000 

29 86756 201405 BEQ AGET2 y NOe BRANCH 

30 06768 205465 NEG Facecrs) 9 YESe NEGATE [IT 
eeveue 

31 06764 052765 ers #176000,FAC2(RS) » MAKE IT TRUE NEGATIVE 
176008 
eavede 

32 06772 805067 AGET2s CLR ABS,F 9 FIGR IS RELATIVE 
174oae 

33 06776 ee6a65 ROR SSiSAV(RS) 9 X OR Y ENTRY? 
eeog24 

34 87002 103360 acc AGETX » Xe BRANCH 

35 87004 012700 AGETYs OV #USCL.Y,RO » UNSCALE YGRA 
006352" 

36 87018 804767 AGETI: JSR PC,SC,USC 9 00 IT NOW 
175304 

37 O7014 9040767 JSR PC, QIKPOL y ENTER POLISH 
171272 

38 07020 Be0234° *PUSH » PUSH FAC ON STK 

39 87022 oBeugu" +aORCHK 9 CK AOR OF 2 
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48 07024 807026 et2 y EXIT POLISH 
41 87826 885700 TST Re 1 XGRA, YGRA, OR FIGR? 
42 07038 oe2325 8GE AGETS ) YESe ERROR => CRASH 
43 87032 O12622 MOV (SP) 4, (R26 » STORE UNSCALED RESULT 
44 87834 O12622 MoV CSP) eo, (R20 ’ AND REST OF IT 
4S 87036 800167 AGETU: JMP CKRPAR 1 CK *)* AND EXIT TO USER 
171254 
46 eIFDF © SOISK 
> 
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1 eSBTTL "FIGR® ROUTINE 

2 eENDOC 

3 , Lala Raiaheheheiahehahhahehehchalchalehelahslsisleiahsialeielsisiehsiaiaishehel 

4 

5 y ROUTINE TO HANOLES 

: ’ CALL "FIGR™ (A [yp by Ie Fp T) ) 

8 oe7a42 FIGRe 

9 887042 804767 JSR PC, BUFPOL y ENTER POLISH AND CK "(* 
171136 

10 07046 aeusue’ +SAVERI ) SAVE PTR TO 4 ON STK 

11 87050 900340° #SKPARG 7 DON’T TRY TO EVALUATE IT 

12 07052 0032¢50° +LIFT 1 GET Le Ip Fe T 

13 07054 gousue? SAVERY 3 SAVE PTR TO ")* 

14 87056 287060" 2 y EXIT POLISH 

15 07368 952700 818 #118800,RO 3 LONG VECTOR MODE 
1120000 

16 07064 004767 JSR PC,» NEWPUT 1 INSERT SGM WORD 
171554 

17 07870 016601 MOV 2¢SP),R4 y POINT AT A 
eeagea2 

18 @7074 B12616 MOV (SP) 4, (SP) y CLEAN STK A BIT 

19 87876 112102 MOVB (Rid osR2 

20 @7100 100512 BMI FIGSYN s ERROR IF TOKEN HERE 

21 87182 282302 Swap R2 

22 87184 152302 e198 CRI) +,R2 

23 87106 g61502 400 (R5),R2 1 OFFSET TO SYMTAB 

24 @7318 822227 CMP (R2)o,#02 1 BETTER BE AN ARRAY 
177776 

25 87114 eariae BNE FIGSYN 1 NO» ERROR 

26 87116 212780 MOV #DJMP,RO 
160080 

27 O7122 004767 JSR PC,PUTWD » INSERT DUMP 
171522 

28 87126 al22ae MOV (R2)4,RO 3 GET ADDRESS OF ARRAY 

29 87138 e22e20 cup CRO) 4, (RODe y POINT AT AC) 

38 07132 010003 MOV RO,R3 y PUT IN R3 ALSO 

31 27134 204767 JSR PCyPUTWO y INSERT IN OPY FILE 
171510 

32 07148 a1120% MOV CR2),R4 1 18 881 >@? 

33 @7142 a@3u6e7 @Le FIGARG + NO= ERROR (NOT ENUF ROOM) 

34 @7144 QVS301 DEC Rt 7 TO ROUND CORRECTLY 

35 07146 @52791 BIS BLDRY y MAKE O00 
082001 

36 87152 210208 MOV R2,RQ 

37 87154 004767 JSR PC,PUTWD y AOR OF S81 
171478 

38 7168 10100 MOV R1,RO 

39 A762 ene! JSR PC,PUTWO y SAVE SSi IN OPY FILE 
17146 

48 87166 025822 CLR (R2)¢ y ZERO SS1 IN SYMTAB 

41 87170 Bas52e1 INC Ri 1 ONE MORE SINCE ZERO TOO 

42 87172 021227 CMP (R2), Hot ) CHECK SS2 @ ={? 
177777 

43 97176 201051 BNE FIGARG y NO ERROR 

44 87200 a12712 Mov #=4,(R2) ) STORE #4 IN SS2MAX 


177774 
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4s 
46 


a7 
48 
49 
se 


Si 
Se 


53 


sa 
55 


So 
57 


$9 
608 


61 
62 
63 
ea 
6s 
66 
67 
68 
69 
70 


11 


GTB 


ee OONEMN EWN 


te 
@veonewn —o 


yu 
e eo 


nuwn 
wine 


ny My WE 
on fF We 


wn 
eo 


ww 
ue 


wow 
ec w 


35 
36 


37 
38 
39 
48 


87208 
@7286 


e7212 
O7216 
87222 
87226 


a7232 
e7234 


e72460 


e72ua 
O7246 


27252 
07284 


07268 


87264 
87266 


7272 
07276 
87382 
87306 
o7310 
7312 
O73i4 
87316 
e7322 


87326 
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07332 
07332 


87336 
@7340 
07342 
O7344 
O7346 
07350 
a7352 
07356 
87362 
7364 
07366 
07378 


@7374 
@7376 


e74e2 
87406 
e742 


Q7416 
07429 


o74e0 
@7426 


a7432 
@7436 
e7ugu 
O7446 
e74S2 
@74S4 
@7462 


a7466 


10302 
005067 

174426 
005007 

176468 
@12365 FIGRLPS 
060048 
012365 
002042 
005767 

176446 
0810108 
005267 

1764836 
OO4767 
178712 
204770° 
056700 

172560 
eeears 
005067 FIGRis 
176016 
084767 

170672 
e05eue* 
000367 

172542 
026267 

172536 

056708 

172532 
0560700 FIGR2: 
173730 
e10ge2 

005301 

203341 

012601 

000167 

176336 

BOO167 FIGARGS 
8000006 
O00167 FIGSYNs 
288080G 


FPUTS 

008767 
170646 
eeusue* 
ege34e" 
880976" 
eeasue’ 
@o0234" 
067352° 
016601 
400006 
024767 
170738 
edouad? 
000256" 
087370" 
820027 
eee004 
eo1dae 
000167 
9000086 
@12266 FPUTBS 
eeeede 
005067 
174226 
206065 
eoge24 
103013 
004767 
176532 
ae5eue? 
000367 
172602 
006267 
172376 
@16767 
172372 
172364 
A6e406 
BAG7E7 FPUTIE 
170504 
004770" 
8160767 
172352 
172346 
@16603 FPUT2s 
eeeade 
O12616 


MOV R3,R2 

CLR AQ8,F 

cLR Ss2Tmp 

Mov CR3)o,F ACL (RS) 

MOV (R3)o,Face(RS) 

TST Ss2tmp 

BNE FIGRi 

INC ss2tmp 

JSR PC, ENTERP 
*SCALEX 

ers XSIGN,RO 

BR FIGR2 

CLR SS2TMP 

Jse PC, ENTERP 
+SCALEY 

swae YSIGN 

ase YSIGN 

ars YSIGN,RO 

ars INVIS,RO 

MoV RO, (R2)o 

oEC Ri 

ect FIGRLP 

MOV (SP)6,R1 

Me SOXITS 

Me ERRARG 

Jue ERRSYN 


sIPOF §=6SOISK 


eSBTTL = "FPUT" ROUTINE 
oENOC 


ALSO IN R2 
RELATIVE MODE 


SWITCH FOR TOGGLING 
GET ARRAY ELEMENT 
GET SECOND HALF 

x OR Y ENTRY? 


Ye BRANCH 
MAKE Y NEXT TIME 


TMMED, POLISH 


SCALE X RELATIVE 
PUT IN SIGN 


INSERT IT AND CONTINUE 
MAKE X NEXT TIME 


IMMED, POLISH 


SCALE Y RELATIVE 
SET SIGN BIT IN BIT 13 


ALL SET 

SET IN RO 

FLAG VISIBLE OR NOT 
INSERT SCALED WORD 


LOOP IF NOT DONE 
POINT Ri AT ")* 


INSERT/ CK ")"/ EXIT TO USER 


ARGUMENT ERROR 
SYNTAX ERROR 


ARAAARAAARANARARATAAAAREERAAAEREAER EEO 


» ROUTINE TO HANOLES 


CALL PFPUT"(ACT) 02) 


’ 
» "A" MUST BE A FIGR ARRAY 


7 "Z"* MUST NOT BE ANY OF FIGR,XGRA,/YGRA 


JSR PC, BUFPOL 
+SAVERS 
oSKPARG 
#GETNUM 
+SAVERL 
oPUSH 
eee 

MOV 6(SP),R4 

JSR PC, QIKPOL 
+ADRCHK 
+POP 
at2 

cmp RO,#u 

BEQ FPUT@ 

JMP ERRARG 

MOV R2,2(S8P) 

CLR aBS,F 

ROR SSiSav(RS) 

acc FPUT) 

JSR PC, ENTERP 
oSCALEY 

Swab YSIGN 

ASR YSIGN 

MOV YSIGN,XY8IG 

BR FPUT2 

JSR PC, ENTERP 
+SCALEX 

MOV XSIGN,XYBIG 

MOV 2(9P),R3 


MoV (SP) 4, (SP) 


ENTER POLISH AND CK "(* 


SAVE PTR To ACT) 
SKIP OVER A(T) 
GET Z INTO FAC 
SAVE PTR TO *)* 
SAVE Z ON STK 
EXIT POLISH 
POINT RL AT ACT) 


IMMED, POLISH 


CK ADR OF A(T) 
PuT Z INTO FAC 
EXIT POLISH 

R@ SHOULD BE 4 


YES= BRANCH 
NOe ERROR 


REPLACE PTR TO ACI) BY ITS AOR 


RELATIVE MODE 
xX OR Y ENTRY? 


Xe BRANCH 
IMMED, POLISH 


SCALE Y TO RO 
MOVE SIGN BIT 


TO 13 
SAVE SIGN 
AND CONTINUE 
IMMED, POLISH 
SCALE X TO RO 
SAVE SIGN 
AOR OF ACT) 
CLEAN STACK 


16°OCT@78 G2:86107 PAGE Soe 
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$4 
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41 


42 
43 


aa 
4s 


46 
a7 
4s 


ag 
50 
5i 
Se 
53 


54 
55 


56 
$7 


sé 
s9 
68 
61 


62 
63 
64 


6s 
66 
67 
68 


69 
78 
71 
72 
73 
14 
75 
76 
7 
78 


79 


8a 
61 


82 
83 
64 


GT8 


OOBINTMNEWN 


@74070 


@7474 
@7476 


87582 
87500 


O7510 
e7Si2 
O7Si4 


97520 
a7S522 
7524 
87526 
07530 


@7534 
@7536 


7502 
O7544 


97550 
07552 
@75540 
87556 


87562 
07562 
87564 


07578 
7572 
O7S574 
Q7576 


87602 
87604 


87619 


O7614 
O7616 


87622 
a762u 
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87626 
@7626 


87632 


87636 
07648 


@7644 
07658 


@7650 
27656 


87662 
87664 


Q7670 
a7e72 


O7676 
67780 
7782 


87706 
@7718 


O7714 
Q7716 
@772¢ 
O7722 


@7726 
87730 


O7734 
67736 


a7742 


87746 


064767 
000106 
e108e2 
056708 
172326 
@11346 
eu2716 
437777 
e5eate 
@12613 
005767 
172310 
O01401 
eesuge 


160402 FPUT3s 


905723 
022327 
168000 
OO1417 
021327 
162000 
ea1ui4 
204767 
e80e3e 
1ee2e4 
@02003 
2e5uou 
952704 
220000 


B11346 
@42716 
137777 
eSeulo 
B12613 
812601 
800167 
170514 


FPUTS3 


FPUTUS 


@1138G UNDOS 


e42e704 
240000 
e32704 
020880 
001403 
042704 
820080 
ee5ueu 


@80207 UNDOR! 


0850607 
888326 
204767 
170346 
007640" 
012700 
102000 
@O0767 
172074 
o12702 
@10162° 
000410 


122127 TEXTOs 


080000G 
081485 
124127 
A08000G 
ee15ei 
800167 
8008006 


@1e0G6 TEXTIs 


@1e246 
204767 
@oeaoeG 
103427 
Q04767 
1702402 
880006" 
812602 
B12o00e 
a1esas 
600e4e 
062003 
610667 
eoe224 
080752 
012704 
280015 
004767 
080216 
o12704 
eeeeie 


TEXT? 


TEXT3s 


gsr PC, UNDO ’ 
MOV RO,R2 U 
brs XYBIG,RO ' 
MOV (R3),0CSP) ’ 
BIC #137777, (SP) ’ 
BIS RO, (SP) ’ 
MOV CSP) 4, (R3) ’ 
rst xYBIG 1, 
BEG PPUTS ’ 
NEG Re ’ 
SUB Ru,yR2 ’ 
TST (R300 ’ 
cmp (R3) 4, #0JMP ’ 
BEQ FRUTG ’ 
CMP (R3),#0NMP , 
BEG FPUTY ’ 
JsRr PC, UNDO ry 
sub R2,Ra ’ 
8GE FRUTS ’ 
NEG RG ’ 
BIS #20080,/R4 ' 
MoV (R3),"(SP) ’ 
erc #137777, (SP) ’ 
BIS RG, (SP) ' 
MoV (SP) o-(R3) , 
MOV (SP) o,R1 ’ 
IMP CKRPAR ’ 
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GET ARG ACI) TO RU 


SAVE Z 
SET SIGN 


GET VALUE 
CLEAR ALL BUT VISIBILITY 


SET IN VALUE 
STORE IN ACI) 
Z POS OR NEG? 


POS@ BRANCH 

MAKE CORRECT REPRESENTATION 
ZeACT) IN RZ 

LOOK AT NEXT WORD 

END OF ARRAY? 


YES 
ENO OF ARRAY HERE? 


YES 
GET ACIe#2) INTO RQ 


RUcwsa(lo2)e(ZeA(1)) 
BRANCH IF POSITIVE 
ABS, VAL OF RY 

SET SIGN NEG, 


GET VALUE 
CLEAR ALL BUT VISIBILITY 


SET NEW VALUE 

STORE NEW ACIo2) 

POINT AT ")* 

CK ")" ANDO EXIT TO USER 


RARAENRRAARAARERARAERAREEAAENE RARE ORE 


ROUTINE UNDO 
AND PUT IT INTO RG 


U 
y TAKE LONG VECTOR WORD POINTED TO By R3 
’ 
i] 


CALLED VIAs JSR PC,UNDO 


MOV (R3),RG ’ 
arc #48088,R4 , 
SIT #20008,R4 ’ 
8EQ UNDOe ’ 
Bic #22000,R4 ’ 
NEG Ra ’ 
RETURN ' 


a TFOF SOTSK 


eSBTTL * TEXT" ROUTINE 
ENDC 


GET ARGUMENT 
CLEAR VISIBILITY 


POS, OR NEG, ? 


POS,* BRANCH 
CLEAR SIGN BIT 


MAKE CORRECT 
AND EXIT 


1o"OCT=74 82106807 PAGE 38 


ERRRERER HERE RRERRERARERREAEHEEREREE EERE 


1 ROUTINE TO HANOLES 

’ CALL *TEXT"( <ARG, LIST>) 

1 WHERES 

! 4#Nt <CR> AND N <LPD> 

’ @t <CR> AND NO <LF> 

’ eNt SHIFT@OUT STRING FOLLOWS 

! RS OR "STRING": STRING DATA 

y IF SHIFT@OUT, ONLY RIGHTMOST 5S BITS 

9 IF SHIFT@IN, IGNORE ALL NON@PRINTABLES 

CLR SHIFT 9 DEFAULT TO SHIFT IN 

JSR PC,BUFPOL y ENTER POLISH, CKM(® 
22 y EXIT POLISH 

MoV #100088,R0 1 SET CHARACTER MODE 

JSR PC,PUTSGM y INSERT IT 

MOV wCBUFF,R2 y R2 POINTS TO RO 

BR TEXT 4 GET FIRST ARG, 

CMPB CRI), COMMA 1 00 WE HAVE A COMMA? 

BEG TEXTS 1 YES@ GET ARG, 

CMPB @(R1),#,RPAR y NO# NO MORE ARGS? 

BEG TEXT41 9 YESe EXIT 

JMP ERRSYN 9 NO@# ERROR 

MOV RO,=(SP) 9 SAVE CHAR, BUFFER 

MOV R2,<(SP) y AND PTR 

JSR PC,EVAL y GET ARG, 

acs TEXT? ) BRANCH IF STRING 

JSR PC, ENTERP y IMMED, POLISH 
+INTEGR y INTEGERIZE IT 

MOV (SP)o,R2 y RESTORE PTR 

MOV (SP) 4,RO y RESTORE BUFFER 

MOV FAC2(R5)0R3 y COUNT INTO R3 

BGE TEXTS + BRANCH IF CARRIAGE 

MOV SP, SHIFT 9 FLAG FOR SHIFT*OUT 

BR TEXT? y GET NEXT ARG, 

MOV BLS,RG 9 INSERT <CR> 

JSR PC LOCHAR 1 INSERT IT 

MOV #L2]ARG » INSERT <LF> 
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a3 
aa 
4s 


a6 
a7 
48 
uo 
se 
Si 


s2 
53 
sa 
5s 


56 


S7 
se 


59 
68 


ot 
62 


63 
64 
os 
66 


67 
08 
69 
78 


1 
72 


73 
74 
75 
76 
17 


78 
79 


8a 
81 
62 


GTB 


83 


64 
as 
86 


87 
88 


69 
98 
1 
92 
93 
94 
95 
9 
97 


98 
99 


100 


101 
102 
103 
104 


07752 @057083 
@7754 083740 
87756 804767 

eee2d2 
87762 085303 
87768 080773 
87766 212603 
87778 Bi2ed2 
07772 012608 
87774 B20327 

U77777 
18000 001437 
10002 B10146 
10004 111303 
18006 062703 

800003 
10812 005767 

eoed2 
10016 @@1434 
10620 812706 

000016 
18826 e42708 

177748 
18030 20427 

00017 
10834 081019 
10036 004767 

oee12e 
10842 012706 

eeegue 
10046 004767 

eee112 
10052 812706 

20016 
10056 004767 

000302 
10862 112384 
18064 905301 
10066 002356 
18078 e1e704 

800017 
10074 004767 

200Ge4 
18108 0050607 

200054 
10104 @12601 
18126 280663 
19118 112300 
18112 881403 
10114 120027 

290040 
19120 Be2ue2 
10122 084767 

080036 
10126 005303 
10138 001367 
10132 000764 


TST 
TEXTSs B&Q 
JSR 


oEec 
BR 
TEXT2: MOV 
“OV 
MOV 
cmp 


BEG 
Mov 
MOVE 
add 
TST 


BEQ 
MOV 


TEXT7s BIC 
cup 


BNE 
JSR 


MoV 
JSR 
MOV 
TEXTL34 JSR 
Move 
DEC 
GE 
MOV 
JSR 
TEXT8E CLR 
TEXTI@s MOV 
BR 
TEXT6s MOVE 
Bea 
cups 


BLT 
TEXT9OAS JSR 


TEXT9s DEC 
BNE 
BR 
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10134 032702 
800001 
10140 @d14ues 
18142 @65004 
18144 @04767 
oeea1G 
18158 004767 
178578 
10154 900167 
17¢136 


18162 802000 
10162 800000 


10164 110422 
189166 @32782 

@200e1 
10172 201005 
10174 816788 

177762 
8208 884767 

170044 
@204 B85742 
@206 Bee207 


TEXTits BIT 
BEQ 
CLR 
JSR 
TEXTI2s JSR 
JMP 


SHIFTS ORD 
CBUFF; WORD 


R3 

TEXTS 
PCeLOCHAR 
R3 

TEXTS 
(SP) o,R3 
CSP) ¢,R2 
(SP)o,RO 
R3, Hal 
TEXTS 
Ri,e(SP) 
CR3),R4 
#3,R3 
SHIFT 


TEXT6 
#L6,RG 


#177748,RQ 
RG,817 


TEXT43 
PC,LOCHAR 


#48,RG 
PC, LOCHAR 
#16,R4 
PC, LOCHAR 
CR3)o,RU 
Rt 


TEXT? 
WIT, RG 


PC,» LOCHAR 
SHIFT 


(SP) o,R4 
TEXT@ 
CR3)0,RG 
TEXT9A 
RG, #48 


TEXTS 
PCeLDCHAR 


RY 
TEXT6 
TEXTI@ 


= 


ANY TO 00? 
NO@ EXIT 
YESe INSERT IT 


DECREMENT COUNTER 
CONTINUE IN LOOP 
GET PTR 70 STRING 


RESTORE BUFFER AND PTR 
NULL STRING? 


YES* CLEAR SHIFT IF SET 
SAVE RI 

GET LENGTH OF STRING 
POINT AT STRING 

SHIFT OUT? 


NO= BRANCH 
SHIFT@OUT 


CLEAR ALL BUT 5 LOORDER BITS 
BETTER NOT BE SHIFT#IN 


NO@ CONTINUE 
PUT IN SHIFT IN 


AND SPACE 

PUT IT IN 

AND SHIFT our 

INSERT IT 

LOAO UP NEXT BYTE 
DECREMENT LENGTHeL 
STORE BYTE IF NOT AT END 
INSERT SHIPT©IN 

INSERT IT 

CLEAR SHIFTSOUT FLAG 
RESTORE Ri 

GET NEXT ARG, 

GET CHAR, 

LET NULLS SLIP THROUGH 
PRINTABLE 


NOe DON?T PRINT IT 
YESe INSERT IT 


DECREMENT BYTE COUNT 
CONTINUE IF MORE LEFT 
RESTORE Ri AND GET NEXT ARG 
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#1,R2 
TEXT12 

Ra 
PC,+LOCHAR 
PC, INSERT 
CKRPAR 


FILLED EVEN NO, OF BYTES? 

YES= BRANCH 

MAKE LAST BYTE = @ 

LOAD UP OPY FILE WITH LAST WORD 
INSERT INTO FILE 

AND EXIT 


SHIFT=OUT FLAG 
CHARACTER BUFFER 


’ RAARARREAERRAER EN ENEN ER REER RARER RANE 
y LOAD CHARACTER ROUTINE 


LOCHAR: MOVB 
> Bit 


BNE 
MOV 


JSR 


ts? 

LOCH@! RETURN 
vIFOF 
eIFOF 


RU, (R2)¢ 
B1,R2 


LOCHS 
CBUFF,R@ 


PC, PUTWO 
=(R2) 


SCLOCK 
SOTSK 


PUT BYTE INTO RO 
OOD OR EVEN BYTE NEXT? 


OD0° DON’T INSERT YET 
LOAD UP DPY WORD 


EVEN@ CAN INSERT NOW 


POINT BACK AT CBUFF 
RETURN TO CALLER 
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@1s210 
@ 18210 


Se ek Ue 


16234 
18216 
10228 
16222 


we ee 
Fenue 


18226 
10230 


mee 
ou 


- 
~ 


{e234 


“= 
@ 


10242 


os 
o 


18246 


rv) 
a 


19252 


~ 
- 


10256 
10260 


nun WN 
wit 


10264 
18266 


nn oN 
wu & 


18272 
18276 


yu oN 
a 


16302 


nu 
o 


18306 


10312 
10314 


wir 
ao 


ww 
a 


10328 
18322 


wow 
ww 


18326 
1033¢ 
10332 


uu 
ws 


vw 
o 


18336 


ww 
~ 


tasaq 


TIMES 
O04767 
170054 
000136" 
000006" 
910222" 
085767 
000152 
001055 
813746 
200004 
012737 
018366° 
200804 
005737 
177546 
012637 TIMMs 
200004 
065767 
080122 
001041 
816588 
eeeeue 
8e3eae 
800167 
0800006 
012067 
200156 
205067 
000156 
812708 
000100 
030067 
177546° 
OG1u1G 
021027 
@10402" 
021804 
805767 
200130 
081406 
aoeue2 
O11067 TIMES 
800128 ‘ 
@12767 
060006 
000114 
012760 TIMEG! 
080300 


eSBTTL "TIME" AND *"TIMR® ROUTINES 
oENOC 
ARHRREHRREAARARERERAAEERRRONRNADRAAREE 


y ROUTINE TO HANOLES 
, CALL "TIME" (A) 
y WHERE A IS THE NUMBER OF TICKS WANTED 


JSR PC,POLENT y ENTER POLISH, CK *(* 
+GETONE 9 GET A 
wINTEGR + INTEGERIZE IT 
2t2 y EXIT FROM POLISH 
TST OSPTCH 9 GOT A CLOCK? 
BNE TIMES ) NO@ EXIT 
MOV O#4,0(SP) » SAVE LOC 4 
MOV #HERE, O44 y MAY AOR 
TST O8177546 9 GOT ONE 
MOV (SP)o,004 9 RESTORE Loc 4 
TST OSPTCH y» WELL 
BNE TIME2 9 NO CLOCKE EXIT 
MOV FAC2(R5),RO 1 GET COUNT IN TICKS 
BGT 26 y CONTINUE IF POSITIVE 
JMP ERRARG 9 NO@ ERROR IF <s@ 
MOV RO,TIMEC y SAVE TIME COUNT 
CLR TMSW } ASSUME NO ONE ELSE USING CLOCK 
MOV #188,RO y USE FOR LKV AND BIT 6 
BIT ROrLKS 9 CLOCK INTERRUPT ENABLED? 
BEQ TIMES 1 NO# BRANCH 
cme CRO), #TMR s MY OLD REQUEST? 
BNE TIMES 9 NO@= BRANCH 
TST TMRAOR y ANY AOR FROM LAST TIME? 
BEQ TIMES 9 NO» BRANCH 
BR 2e6 » YES@ BRANCH 
MOV (RO), TMRADR 1 YES@ GET LKv 
MoV #6, TMSW y SEY UP PROPER EXIT 
MOV #380,2¢R8) 9 PUT IN BRO 
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38 18352 
39 18356 
4@ 18362 
41 10366 
42 10372 
43 18376 
44 18488 
4s 

46 10482 


47 10406 
48 10018 


49 1o414 
5@ 10420 
St 10422 
S2 16424 
53 10430 
54 10434 
S5 10449 
56 10442 
57 10458 


59 19454 
6@ 10456 
61 10460 


78 {e462 


71 18466 
72 10478 


73 10474 
74 $@U76 


75 1052 


o00gde 
012710 
@1euae’ 
012067 
177546" 
@00167 TIME2: 
1607736 

O12716 HERE? 
810246" 
010667 

8ecede 

eeaoee 

@00000 OSPTCHs 


@@5767 TMRe - 
@b0046 
OO341e 
305367 
200048 
905767 
e80e4e 
201001 
aeeeoe 
080177 
280026 
866797 TMROS 
b0082e4 
005067 
177546° 
aeeeee 
816767 
@00a1e 
208120" 
000177 
000100" 


@20008 TIMEC! 
@880800 TMRADRY 
@68008 TMSWy 


204767 TIMRS 
167602 
B12470° 
OO4767 
171342 
ee5e2e 
@16722 
177752 
800167 
167618 


MOV #TMR, (RO) 7 PUT ADR AT LKV 

MOV ROeLKS y ENABLE CLOCK 

JMP CKRPAR 7 CK ")" AND EXIT TO USER 
MOV #TIMM, (SP) 9 RET AOR 

MOV SP,DSPTCH 9 SIGNAL NO CLOCK 

RTI 

«WORD @  NON@ZERO TF NO CLOCK 
TST TIMEC 9 TIME ELAPSED YET? 

BLE TMRO » ENO OF .00P? BRANCH 
DEC TIMEC y DECREMENT THE COUNT 
rst TMSW y ANYBOOY ELSE? 

BNE aed 1 YES 

RTI 1 NO= CONTINUE 

JMP @TMRAOR + GO TO HIM 

a00 TMSW,PC y AND OISPATCH TO EXIT 
cLR LKs » CLEAR CLOCK STATUS REGISTER 
RTI 

MOV TMRAOR,LKV 9 GIVE BACK VECTOR 

vMP OLKV y AND CONTINUE THERE 
"ORD 8 » NUMBER OF TICKS 

WORD ® 9 OLO CONTENTS OF LKV 
WORD 8 y ENOING TYPE ( @ OR 6) 


HARE RRERAAAE RARER A EAR REREE ARERR 


y ROUTINE TO HANOLE? 
’ CALL "TIMR"C(E) 
y RETURNS THE CURRENT VALUE OF TIMER IN E 


JSR PC,POLENT y ENTER POLISH, CKM(® 
ate 9 EXIT POLISH 
JSR PC,GETAOR » GET AOR OF E IN R2 
CLR CR2)4 9 ZERO HI@ORDER WORD 
MOV TIMEC, (R2)o » SAVE CURRENT # OF TICKS 
JMP CKRPAR 9 CK *)" AND EXIT TO USER 


poll 





(8 
7) 


Nt 
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76 
7 


eENOC 
eIFOF SOISK 
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Cer ee eed 


9 819506 
18 10506 
11 10510 
12 10512 
1310514 
14 10516 
15 10520 
16 18522 
17 19824 
18 19526 
19 10530 
2@ 10532 
21 10534 
22 10536 
23 105490 
24 10542 
25 10544 
26 10546 
27 18550 
28 10552 
29 10554 
38 10556 
31 10568 
32 10562 
33 10564 
34 19566 
35 1857a 
36 18572 
37 18574 
38 10576 
39 18680 

18602 
48 10604 
41 10606 
42 10610 


44 19612 


oSBTTL 


BEGs 
160000 
10576" 
018520° 
177777 TaAGis 
288800 
178208 TAG2:. 
117126 
208008 XTr 
eeeeea YTs 
104,49 
057600 
077677 
@40177 
@40177 
877677 
057600 
040077 
077777 
057777 
@57677 
074900 
e4ee17 
007400 
O4Q136 
0474808 
O4oe17 
173400 
oeoaae 
1371240 RSTFILS 
000000 
808008 
170240 
160080 
@L1BSG6°DSTOPs 


@0088@ OCRASH: 
800001" 


OISPLAY FILE BEGINING 
eENOC 
AAAATNAAAAAH RNAP HNRREERARERERER RNA REE 


) THIS PORTION MUST BE LINKED BOTH TO THE RT#11 
» SCROLL BUFFER (IF THERE IS ONE) AND THE REST OF THE 
» USER*S DISPLAY FILE. 


Dump THE START 
ORSTFIL REST OF FILE IF TRAK OFF 
+TaGa ADR FOR TRAK SUBP 
“1 TAG FOR TRAK ROUTINE 
»WORD @ NEXT TAG POINTER 


sWORD 178298 
»WORD «1147120 
»wORD 2B X POSITION 

,wORD @ Y POSITION OF TRAK 
sWORD 104140 4 SHORT VECTOR LP ENABLE 
«WORD = 57600 

sWORD =-77677 

eWORD =: 48177 

*4ORD =: 40177 

»WORD = 77677 

eWORD = S768 

eWORD =: 477 

sWORD =—-77777 

«WORD =—-57777 

sWORD = 57677 

.WORD =s- 74888 

eWORD =: 4817 

eWORD = 6 7488 

+WORD =-G136 

eWORD =—-T49@ 

+WORD =: BLT 

sWORD = SDINT )_END OF TRAK SUBPICTURE 


LO, STATUS REG, A 
APNT, Ia, Ta@ 


Se 


eWOROD t] 

#WORO 117126 » APNT LaOFF,IaG, FuOFF, Tee 

oWORD 808 ’ AT (8,8) 

» WORD 178248 1 LO STAT REG A, NORMAL FONT, LP INT 
OJMP 1 OJMP TO START OF FILE 

WORD BEG a INITIALLY TO TRAK OBU 

ne 8 y LAST WORD IN DPY FILE (EXCLUDING TEXT) 
’ 
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SYMBOL TABLE 


ABS,F 20364aRG 
ADBAS  901334R 
ADRCHG ge6432R 
ADRCHS B06456R 
AGET B06666RG 
aGETY @07204GR 
AGET2 986772R 
APNT G04 20RG 
APUTFA @26634R 
APUTS 806539R 
ARRAYSw 000010 
BITNEG @83230R 
BUFTST @00218RG 
CKEOL 820324RG 
CKOPCM 01702aR 
CKRPAR O00316R 
CONTA @@2US54RG 
OFOERR agd664uR 
OISX #2 eaeene G 
OIVVEC @eusauR 
OSPTCH 810400R 
OSsTP 8G2360RG 
ENTERP a00156R 
ERAS} @0152aR 
ERASG 601576R 
ERRARGS sanene G 
ERSS$ =92226R 
ESXIT B9B1338R 
FaAC2 8 000042 
FIGRLP 867216R 
FIGSYN @87326R 
FIXS 8 aneane G 
FPPSAV @80416R 
FPUTI OB7446R 
FPUTG @07574R 
FX 8964g0R 
GETAOR B02U36R 
GETAD2 802332aR 
GETAD6 802310R 
GETNUM 800076R 
GETSAV 902026R 
GRAARG @85372R 
GRASYN @25366R 
GRA.3 = BBS2uaR 
GRAIB = =BBS5QUR 
GRAY @85630R 
GRAT Gessi4R 
GTVECTS weenee G 
FX @6354R 
INITA oa25euRG 
INIT3 §8@2670R 
INSXIT @81804R 
INTEGO gevs2aR 
LOCHAR 619164R 
LIFT@ @63126R 
LKS 8 177546 
LLY @06350R 


ACTENO 
ADRARG 
AORCHI 
ADRSYN 
AGETF 
AGETO 
AGETS 
APUT 
APUTX 
APUT2 
BEG 
BITZER 
BUFTS 
CKLPAR 
cKOPca 
CKRPAQ 
CONTO 
OISEND 
OISsy s 
OJMP os 
DSR 2 
€,00P 
ERAS 
ERaS2 
ERASS 
ERROIV 
ERSTAR 
EVAL 8 
FIGARG 
FIGRI 
FIX 
FLOAT 8 
FRUT 
FPUT2 
FRUTS 
FY 
GETADS 
GETAOS 
GETAOT 
GETONE 
GETSYN 
GRALP 
GRAB 
GRAQ 
GRa2 
GRAS 
GRATA 
HERE 
FY 
INITS 
INSERT 


“INT a 


InvIS 
LOCHe 
LIFTS 
LKV 2 
LOCNo2 
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SYMBOL TABLE 


LOOPCT geaesuR 
LPENT 2@1666R 
LPENF @O1700R 
LPINTO 083272R 
LPINT3 883524R 
LPNINT 903240R 
MSG SZ suvene G 
M2 @e4ougaR 
NEWPUT @@0044R 
NSTERR O@1146R 


OFF @2302URG 
ONO 6@2750R 
ONS 203012R 


OPTST® seesueR 
POLENT @08270R 
PoSsx Ge4514R 
POS1 @B4532R 
PSHPTR gB6212R 
PUSH @00234R 
PUTSGM 901744UR 
Putt 608724R 
PUTS @@865aR 
QIKPOL 2800312 
ROOT! @o4e2uR 
RESTR 8@2472R 
REVRSE @@4S546R 
R@ =X%200000 
R2 =x%ee0002 
RS =%800005 
SAVINT @00000R 
SCALEY @25042R 
SCLGEN @@62u4R 
SCL.Y 006372RG 
SCUSC1 @84432aR 
SOXIT ¢84200R 
SETNEC 080860R 
SKPARG @800340R 
SKPA2 @00400R 
sp 8%000006 
SS2TMP @8S676R 
STOPB @62436R 
STOVARS weeene G 
SUBPY @810340R 
SUBG @88552R 
TABLE = swrawe G 
TAGSRH @61414RG 
TaG2 @10520R 
TEXTO 287656R 
TEXTL1 @10134R 
TEXT? @87766R 
TEXT6 O1B110R 
TEXTS O18126R 
TIME 81821 0RG 
TIMEL 810332R 
TIMR @10462RG 
TMR@ @1043aR 
TRAKX @24764R 


Q806GORG 
8G224uaR 
@8642uR 
Be2244R 
086752R 
O8671aR 
@867Q4R 
BB64S2RG 
oa65s2r 
BB6646R 
@t@SQ6RG 
883234R 
B0@226R 
@08276R 
O01734R 
900334R 
882470R 
808636RG 
warene 6 
160008 
wannen G 
80G04OR 
OGL 45ORG 
881S260R 
901554R 
@@44g2R 
OBG434R 
warnen G 
@8732aR 
007254R 
@0303eRG 
aeatee 
907332RG 
887462aR 
887562R 
886364uR 
882234R 
802336R 
@02310R 
8@81360R 
080146R 
085576R 
@8S156R 
285300R 
@@53,4R 
8056a2R 
@@5532R 
818366R 
@86344R 
@82616R 
880744R 
ananan G 
883236R 
@18206R 
O83174R 
0ad1ae 
@e2210R 
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LPADR 8888S6R 
LPENX 801670R 
LPEN@ 801622R 
LPINT1 @83310R 
LPINTG 883554R 
LPS,F OO5574R 
MULVEC 886234R 
NARRAYS satnan G 
NOSC 88271 4RG 
NSTSK BO1412RG 
OLOMOD § B81764RG 
Ont 002730R 
OPARGF 2@0@74R 
PC 2%800007 
POLRETs 800134 
POSsY 904522R 
PRY = 000200 
PSHXIT @@464uOR 
PUSHF @e4S74uR 
PUTS@ 881762R 
PuT2 @00732R 
PUTS @80700R 
RooT 683732RG 
RELABS 9804456R 
RETURN® 080207 
RSTFIL @18576R 
ROSAVEa G8da4uu 
R3 84000003 
SAVER® @01452R 
SCAL 8OS7OORG 
SCAL,F @@27142R 
SCLSAV O@6314R 
SCPTR @06210R 
SC,USC 984320RG 
SDXIT@ o@42eQuR 
SETOPT @29066R 
SKPAQ oee4iaRr 
SKPAS @83344R 
$SiSavs ogea24 
STAT 8836G2RG 
STOPC o82420R 
susp G81 0Q6RG 
SUBP2 @B1154R 
suBt @ee5uuR 
TAGEND @801436RG 
TAGXIT @8143aR 
TEN24 egee2uR 
TEXTL 887676R 
TEXT12 @4815OR 
TEXT3 @877360R 
TEXT? 010024R 
TEXTOA B10122R 
TIMES @18454R 
TIME2 010362R 
THR @12482R 
TMSW @10460R 
TRAKY BB8766R 


ACTST 
AORCHK 
AORCH2 
ADSTK 
AGETX 
AGETS 
AGETU 
APUTF 
APUTY 
ARGGET 
BITGET 
BUFPOL 
CBUFF 
CKLSYN 
CKOSYN 
CONT 
OCRASH 
DISINT 
O1se 
opc os 
osToP 
ELOOPe 
ERASO 
ERAS3 
ERRAOR 
ERRSYNe 
Esus 
Fact s 
FIGR 
FIGR2 
FIXSP = 
FPPRES 
FPUTO 
FPUTS 
Fx 

FYL 
GETAD) 
GETAOS 
GETARG 
GETOUT 
GETVARS 
GRALPI 
GRA, 
GRAY 
GRAS 
GRA6 
GRAQ 
HIFREES 
INIT 
INIT2 
INSRTF 
INTEGR 
LcLooP 
LIFT 
LIFt2 
ULx 
LOFREES 


LPEN 
LPENY 
LPEX! 
LPINT2 
LPINTS 
MODE 

Mt 
NEGSTK 
NSBAS 
NUMOUTS 
ON 

One 
OPTSTR 
PL.OOP 
PoP 
Pose 
PRT . 
PSwW 5 
PUSH1 
PUTWO 
PUTS 
PUT? 
RooTe 
RELABO 
RETURP 
RUN,F 
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O0ee42RG 
@0eueaR 
@06430R 
@81362RG 
086744R 
@87018R 
@B7836R 
@26576R 
@06564uR 
8B1766R 
083214R 
@ad204R 
O1d162R 
@803G6R 
@O174aR 
Oe245eRG 
186% 2RG 
G88466R 
8805a6R 
kennan & 
@10610RG 
eoeaseR 
9815e2R 
@81572R 
O@US3aR 
aenane G 
O01 250RG 
800040 
O87B42RG 
08730eR 
aakeee G 
eeo4uer 
ea74ug2R 
807S2uR 
886374R 
806370R 
ee225aR 
@2344R 
880152R 
888332R 
aennen G 
8OS5606R 
@0523aR 
005302R 
@O5376R 
@e5472R 
@e555eR 
8eee12 
@B258eRG 
O02606R 
BOG634RG 
@ecadeR 
882162eR 
88385eR 
8O3152R 
806360R 
eoge14 
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881 682RG 
8O1674R 
@O3620R 
8a3442R 
803570R 
@@5674R 
@84eueR 
880176R 
O813604R 
aaawan G 
Q82724RG 
BB3016R 
@86316R 
888d26R 
B@G256R 
884526R" 
Oed3sue 
177776 
@aa24eR 
@ee650R 
860714R 
088672R 
824066R 
@04466R 
O80166R 
@2446R 


Ri 8%000001 
Ra 82000004 


SAVER 
SCALEX 
SCALO 
SCL.X 
ScuSCca 
SOINT # 
SOXIT1 
SHIFT 
SKPAS 
SKPag 
SS2Sava 
STOPA 
STOP .F 
SUBPO 
SuBP3 
S$uBb2 
TAGHED 
TAGS 
TEXT 
TEXTIO 
TEXTS 
TEXTS 
TEXTS 
TGLOOP 
TIMES 
TIMM 
TMRAOR 
TRAK 
T8764 


eeusuar 
@24770R 
eae20aR 
@864g2RG 
@84360R 
173408 
885660R 
@1G169R 
@803660R 
908356R 
800026 
B02364RG 
@d24ugR 
@81a4aR 
BO1174R 
oees7ark 
OO1G34UR 
OLOSLGRG 
807626RG 
@101040R 
81 8056R 
007754R 
@18190R 
@a1420R 
@1a3G4R 
@182460R 
G1 e456R 
BO464ORG 
8O14G0R 


GTB Valea! BAST 
SYMBOL TABLE 


a) Q06736R 
UNDO@ 887624R 
USRARES aannen G 
VECT@ ge4252R 
XGRA @e5124RG 
XSCL2  885016R 
XYBIG O8203aR 
YSCLi @e511eR 
YT @18526R 
SADR 8 tanner G 
SOEPTHs 000012 
SOVR 8 naeeee G 
SLPS) = ga0080 
SSTRNGS Q9080e 
eEOL & tannne G 


« 468, 800000 
010014 

ERRORS OETECTEDs 

FREE CORE: 17006 


oLPtsPERPAR,GTL, 


PERPAR ee PERIPH 


OOYVOME We 


33 202800 


37 200800 


46 880000 
47 880000 
48 008000 
ug 880000 


$3 poeoern 
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Tt @865qgR UNDO @070g2R 
USCL,X 086362R USCL.Y @96352R 
VARSAVS 900022 VECT OB4214RG 
wot @Q7G0RG woe @O87G2RG 
xSCLO =. gase22R XSCL1 =. @aS@aeR 
XSIGN =@82832R xT @1052GR 
YGRA @O5142RG YSCLO @ose72Rr 
YSCL2 085122R YSIGN @82034R 
ZERNUM 980124R Sa0C == B0008e 
SCLK 8 988008 SCLOCKs ge8e00 
3010 = 8082800 SOIS s goge00 
SERVECS eanane G SIR B aneeee G 
SMLR 8 weeene G SSBR 6 
SVT11 = Geg0ee COMMAS 6 
aL PAR = aannee G eRPAR & axenae G 
206 
Oo1 

8 

« WORDS 

GTB1,G782,67T83,67B4 
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TITLE PERPAR ©= PERIPHERAL SUPPORT PACKAGE PARAMETER MODULE, 
DEC@119L BPAAwArLA BASIC KERNEL V@2=01 
COPYRIGHT (C) 1974 


OIGITAL EQUIPMENT CORPORATION 
MAYNARO, MASSACHUSETTS 81754 


’ 
’ 
’ 
’ 
U 
i] 
’ 
’ 
) THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 

} CHANGE WITHOUT NOTICE ANO SHOULD NOT BE CONSTRUED 
p AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION, 
s DEC ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
7 MAY APPEAR IN THIS DOCUMENT, 

' 

’ 

’ 

5 

, 

’ 

' 

’ 

U 

U 


THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A 
LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM ANO 
CAN BE COPIED (WITH INCLUSION OF DEC*’S COPYRIGHT 
NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
OTHERWISE BE PROVIDED IN WRITING BY DEC, 


DEC ASSUMES NO RESPONSIBILITY FOR THE USE 
OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT 
WHICH IS NOT SUPPLIED BY DEC, 


3 THE CONDITIONALS CONTAINED IN THIS MODULE AFFECT THE ASSEMBLY 
y OF THE FUNCTION TABLE MODULE "FT8L,MAC™, 

3 TO OBTAIN THE DESIRED CONDITIONAL DEFINITION(S), © 

s REMOVE CUSING AN EDITOR) THE 

ys SEMITeCOLON APPEARING BEFORE THE CONDITIONAL, 


 SOISKa@ HOEFINE FOR RT@41 
elFNOF SOISK 
SSTRNGSO 900 NOT DEFINE FOR PTS BASIC WITHOUT 
WSTRINGS,@ DEFINED FOR PTS VO1 WITH STRINGS 
eENOC t 
SLPSsO sOEFINE FOR LPS 
eIFOF SLPS 
$V80 sDEFINE FOR LPS WITH VECTORS STARTING 
’ ’ AT 308, OEFAULT SETTING IS VECTORS AT 
’ ’ 348, SET SV 3 ANY OTHER DISPLACEMENT IF 
’ ’ VECTORS START AT DISPLACEMENTS 
’ 1 OTHER THAN @ OR 4@ FROM 
, ’ VECTOR 308 
SAOCEG VINCLUDE A/D ROUTINES, 
SCLKsQ VINCLUOE CLOCK ROUTINES, 
SOlOse sINCLUDE OLGITAL 10 ROUTINES 
SOISsO PVINCLUDE DISPLAY ROUTINES, 
eENOC SLPS 
VT1t8@ sFOR GT4@ (GTu4) ‘ 


~~ wane 
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56 
59 
68 
ot 
62 
64 
65 
66 
67 
68 
69 
78 
T 
72 
73 
74 
7s 
76 
17 
78 
79 
ao 
81 
be 
83 
64 
85 
86 
87 
88 
89 
98 
1 
92 
93 
94 
95 
96 
97 
98 
99 
108 
101 
182 
183 
108 
165 
106 
107 
108 
109 
118 
vit 
412 
113 
iia 
415 


crc 


116 
117 
118 
119 
128 
tat 
122 
123 
12a 
125 
126 
127 
128 
129 
138 
131 
i3e 
133 
134 
135 
136 
137 
138 
139 


eTFOF = SVT 


@80G80 SCLOCKad POR SYSTEM CLOCK CKWLIL) 


600000 
ooveed! 
ea00ee 
200803 
200004 
eeoees 
208006 
080007 


oENDC 


€or 
o TITLE gre V@iedi BASIC © GT DISK OVERLAY MODULE 


DEC@1 LL BPGCwAoLA BASIC KERNEL V@2001 


THE INFORMATION IN THIS LISTING I$ SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION, DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS LISTING, 


Ul 

' 

, 

' 

' 

’ 

U 

’ 

y THIS SOFTWARE IS FURNISHED TO THE PURCHASER UNDER A LICENSE 

1 FOR USE ON A SINGLE COMPUTER SYSTEM ANO CAN BE COPIEO (WITH 

y INCLUSION OF DIGITAL®S COPYRIGHT NOTICE) ONLY FOR USE IN 

3 SUCH SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY 
y DIGITAL, 

U 
’ 
U 
’ 
, 
’ 
’ 
’ 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE 
USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT 
SUPPLIED BY DIGITAL, 


COPYRIGHT (C) 1973,1974, BY DIGITAL EQUIPMENT CORPORATION, 


AUTHORS DR, STEPHEN R, ALPERT AUGUST 1973 
a TFOF SOI8K 

eSBTTL GLOBALS, EQUATES 

oENDC 


’ REGISTER ASSIGNMENTS 
ROBB 
Risxi 
Resxe 
R3ex3 
RusKg 
RSsxs 
SPaxo 
PCBA7 


’ GLOBALS TO COMMUNICATE WITH ROOT SECTION 
eGLOBL SAVE, FIXSP,FIXO, FREE, BUFTST 
oIFDF = SOISK 
eMCALL sOSTATUS, LOCK, »UNLOCK, -CLOSE, »LOOKUP, ,SRESET 
eMCALL «ENTER, ,REAOW, WRITW, FETCH, ,CSISPC 
2GLOBL RSTR,FREEGET, FREED 
2GLOBL SAV2a,SAVERT 
oENOC 
eIFNOF = SVTONLY 
eGLOBL RTSON,NARRAY, TABLE 


eENDC 

sIFOF 8=6S$OISK 

sGLOBL IGNORE 5 FROM BASICR 
ENOC 
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200207 
177776 
160008 
173400 


eeea4e 
eeoede 
080018 
aovete 
eoea14 
800074 
eoee7e 
goers 
288076 


sGLOBL MSG,,LPAR, ,RPAR, ,EOL, ERRSYN 

»GLOBL NUMOUT, ERRARG, CKEOL 

sGLOBL NSTSK,ESUB, INSRTF,STOPA,TAG1,ACTST 
sGLOBL ACTEND,BEG,WO1,W02,0STOP,OLOMOD 

+GLOBL DISEND,CONTA, TAGEND, ADSTK, OCRASH,WD1,WD2 
+GLOBL CONT 


’ EQUATES 
RETURN @ 287 9 RTS PC 
PSw aed 9 PROCESSOR STATUS WORD 
OJMP 3 160000 yA DISPLAY JUMP 
SOINT 8 173400 9 4 STOP OISPLAY AND INTERRUPT 


' EQUATES FROM BASIC 
FACia 4@ 
FaC2s 42 
ARRAYS 10 
MIFREES 12 
LOFREE® 14 
HISTRe 74 
LOSTRs 72 
POLa 4 
BUFCHN®S 76 
aIFOF =6SDISK 
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SHARERAAAAHORARARADREARERERAARAEARER EERE 


CALL "SAVE" [(( <PILE DESCRIPTOR> )) 


MUST HAVE EXTRA WORD BEFORE START OF EACH SUBPICTURE 


Ri © AOR STACK POINTER (INITIALLY MADSTK) 


RS © BACKWARO POILTER FOR TAG LINKED LIST 


9 SAVE RI 
9 SAVE RS 
9 CURRENTLY BUILDING A SUBPICTURE? 


} NO» BRANCH 


y SCRASH 

9 PUT IN AN EXIT 

» TEST IF ENOUGH 

» INSERT PENDING? 

9 YESe LOOP UNTIL FREE 

9 STOP THE OISPLAY 

1 GET PTR TO 1@8T suBP 
SAVE FOR LATER USE 

GET POINTER 

BRANCH IF ALL SUB8P DONE 
GET AOR OF suUBP 

PUT AOR IN R3 ALSO 

PUT AOR OF SUBP BEFORE SUsP 
MOVE R@ TO NEXT TAG 

ANO LOOP 


+ ZERO WORD FOR TAG SEARCH 
y "GET" PTR 


se we ewe 


1 "PUT" PTR 
) WRITE ENABLE 
1 REST OF FILE AOR STACK 


» DONE YET? 
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y YES BRANCH 

» GET WORD 

1 OPU INST,= BRANCH 
» FAKE A JSR PC 


y WRITE ENABLED? 


1 NO» BRANCH 
1 YES PUT WORD 
y EXIT 


y A DISPLAY JUMP? 


1 YESe BRANCH 
1 4 JUMP FROM SUBP (OFF)? 


y YES* CONTINUE 
4 & STOP OLSPLAY? 


1 NO* BRANCH 


» NEXT WORD ZERO? 
» YES= (SOINT/@ CASE)= BRANCH 
p ACTIVE SUBP FOLLOWS? 


NOs BRANCH 

WRITE ENABLED? 

YESe BRANCH 

CHANGE SOINT TO OJMP 


~~ ee 


y WRITE ENABLE 

§ INSERT SOINT OR DUMP 

9 SAVE PTR TO "REST OF FILE ADR" 
9 R@ TO TAG, RY TO SUBP AOR 

N 


OFFSET FOR NEW ADDRESS 
ADD TO POINT TO CORRECT WORD 


MOVE TAG 

POINT "GET" AT SUBPe2 

SET NEW LINK IN TAG CHAIN 
POINT TO "NEXT TAG PTR® 
SAVE NEW BACK PTR 

ZERO PTR TO STOP SEARCH 
MOVE ADDRESS BEFORE susp 
AND CONTINUE 
OESN°T FOLLOW SOINT OR DUMP 
WRITE ENABLE? 

YESe BRANCH 

MOVE RO 


~~ 


wee O~ ww www un 


9 AND CONTINUE 
y A OTSPLAY JUMP? 


NOe BRANCH 


GTC 

1 eSBTTL "SAVE® ROUTINE 

2 eENDC 

3 ’ 

a 

5 ) ROUTINE TO HANOLES 

6 ' 

7 

8 ’ 

9 ) REGISTER USAGES 

ie ’ R@ © "GET" WORD POINTER 

it ’ 

12 ’ R2,R3 © FAST STORAGE 

13 ’ RG © "PUT" WORD POINTER 

1a ’ 

1s 

16 eeaeo SAVES 

17 @@8@0 e10146 Mov Ripe(SP) 

18 geee2 aiosue Mov RS,©(SP) 

19 @@a04 905777 SAVES: TST ONSTSK 
0800006 

28 e8010 Be14e03 L124") Save 

at eIFOF = SCRASH 

22 TRAP cy 

23 eASCIT /STILL IN SUBPICTURE/ 

e4 eBYTE @ 

es EVEN 

26 2 ENOC 

27 eIPNOF = SCRASH 

28 00012 280767 Jsr PC, ESUB 
0000006 

29 88016 000772 aR SAVEQ 

38 oENDC 

31 90020 085767 SAvos = TST INSRTF 
eceeees 

32 00026 201375 BNE save 

33 9) INITIALIZE 

34 @9026 204767 JSR PC, STOPA 
0000006 

35 98032 o12700 MoV ATAG192,R0 
eeeoe2s 

36 28036 a10005 MOV RO,RS 

37 @884@ 211000 SAVis MOV (RO) ,RO 

38 88042 ge14e5 Be@ save 

39 90048 e14902 Mov =(RO),R2 

9@ 20046 210203 MOV R2,R3 

41 00052 g10243 Mov R2,0(R3) 

42 80052 a22020 cme (RB) >, (RB)D> 

43 99054 280771 BR Savi 

44 » SET UP FOR COMPRESSION OF OPY FILE 

GS 00056 005015 SAV2s CLR (RS) 

46 00068 016700 Mov ACTST,RO 
e000006 

47 900604 g1e004 MOV RO,Ra 

48 80066 210546 MoV R5,0(SP) 

49 00078 012701 MoV wAOSTK,RI 
0000006 

5@ @@074 G20067 SAV3t CMP R@,DISEND 

GTC VOl901 BASIC © GT DISK 0 
eoegees 

Si a@100 103454 BHIS SAVS 

S52 00102 e12003 MOV (RB) o,R3 

S3 00104 100407 BMI Sava 

54 @@106 O12746 SAVCON! MOV WSAV3,0(SP) 
eeve7u? 

55 80112 @@5766 SAVSET: TST 2(SP) 
eeeoee 

56 @@116 ae1uel BE 2e4 

57 80120 a10324 MOV R3,(RU)+ 

58 90122 a00207 RETURN 

59 } PROCESS OPU INSTRUCTION (SOME OF THEM) 

6@ 88124 G20327 SAVG: CMP R3,H0JMP 
160000 

6t @0139 we1uce BEQ SAVO 

62 00132 020327 CMP R3,MOUMPo! 
160001 

63 08136 aetues 8EQ SAV6 

64 @814@ 820327 CMP R3,#SDINT 
173408 

65 80144 901077 BNE $av7 

66 1 WERE IF SDINT OR DUMP 

67 00146 a0572@ Saver: TST (RO)¢ 

68 88154 001467 BEQ SAV8 

69 08152 021060 CMP (RO), 6(RO) 
600006 

78 00156 o81023 BNE Sava 

71 @0168 ee5716 TST (SP) 

72 80162 ee1eae BNE Savio 

73 @0164 a12703 MOV SDJMP,R3 
160008 

74 @6178 810546 Savigs MOV RS,@(SP) 

75 88172 @10324 MOV R3,(RU)* 

76 @8174 Biouat Mov RU,=(R1) 

77 88176 @22024 cup (RO) O, (RO)e 

78 ) INSERT ADR OF SUBP IF FOLLOWING 

79 80200 B1e4u14 MOV RU, (RU) 

8@ 88202 a62724 400 #10, (ROO 
eaeoio 

81 88206 211014 SAVI8s MOV (RO), (RQ) 

82 93218 w22020 CMP CRB) Oo, (ROO 

83 a@212 810415 SAVILE MOV RU, (RS) 

84 a0214 gaS572u TST (R4)e 

85 aa216 e1e4e5 MOV RG,RS 

86 40220 veSe2u CLR (RO)6 

87 e222 e122 MOV CRO) 0, (RODS 

88 20224 900723 aR SAV3 

89 1 HERE IF AN ACTIVE SUBPICTURE 

98 @@226 285716 SAV94 §=TST (SP) 

91 00230 ae1a03 BNE Savi2 

92 08232 a6270@ SAVids 00 46,RO 
a00006 

93 20236 eee715 @R SAV3 

94 80240 920327 SAVi2s CMP R3,#0NMP 
160008 

95 a8244 vergou BNE Savi 

96 88246 o21000 cue CRO), RO 


» SUBP FOLLOWS? 


Te 





GTC 


V@ieOl BASIC © GT 


97 8250 
98 ee252 
99 ee254 


100 
104 
102 
183 


104 
1205 


186 


107 
106 
189 


118 
iii 
12 
413 
14 
115 
116 
417 
118 
119 
128 
tat 
lee 
123 
124 
125 
126 
127 
128 
129 
130 


i3t 


132 
133 


134 
135 


136 
137 
136 
139 
148 
tat 
142 
143 
144 
145 


GTC 


146 
147 
148 


149 
158 
151 


152 
153 
154 
155 
156 


157 
158 


159 
16@ 
161 
162 


163 
164 


165 
166 
167 


168 
169 
170 
171 


172 
173 


174 
175 
176 
177 
178 
179 


188 
161 
182 
183 
164 
185 
186 


187 
188 
189 
190 
194 


8256 
8260 
@262 


@266 
8270 


e274 


0300 
e302 
0304 


0310 
e312 
e344 


8316 
0320 
e322 


e324 
8326 


0330 
0332 
0334 
e336 
e340 
O3u2 


e344 
9346 


352 


8356 
8360 


@364 
8366 


0372 


O374 
9376 
2400 
04g2 


e404 
8486 
8410 


183770 
205046 
080766 
9 HERE 
C1B324 SAVVIS: 
O18414 
@62724 
880018 
e12a14 
012782 
0000006 
@16202 SAVIS: 
eeceee 
@e1ues 
14203 
26314 
177776 
081405 
@0S722 
008767 
3 HERE 
@24uau SAVIes 
205726 
@80743 
ee aes 
1 HERE 
@10324 SAVI7s 
800727 


) HERE 
@O5726 SAVSs 
883060 
10324 
eeseeu 
@10463) 
@0065u 

) HERE 
@19302 SAV71 


@42702 
083777 
20227 
110800 
e814e1 
020227 
120000 
183650 
620227 
1249a@ 
181245 


+ WERE 
005720 
@22028 SAV23at 
012003 SAV23: 
e12023 


302003 
8eS343 
@e5a13 
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e4te 
eure 
2420 
Bu22 


@426 
O43 


aa32 
au3u 


ou4ug 
e442 


3446 
045@ 
e452 
a4usa 


8460 
b4o2e 


466 
e470 
au72 


6476 
9500 
e502 
e504 


2a510 
osi2 


O516 
52a 
e522 
aseu 
8526 
0530 


8534 
a536 
a540 
e542 
e5aa 
0546 
8558 


e550 
@556 
8560 


¥@6223 


a12713 
177777 
e80625 

+ HERE 
821027 SAVi98 
166000 
@01227 
080762 

y HERE 
@@5726 SAVS! 
@12467 
B820006 
@12e24 
O12467 
8000006 
e1ee24 
@12605 
812601 
@1e782 
2000006 
a10208 
016703 
0888026 
10342 
e014es 
204767 
220036 
010302 SAV203 
OB1uel 
@e4eue 
OO4767 
ee0024 
e1i2ea 
885060 
177776 
16@402 
e1eeee 
205722 
011203 
201406 
@12746 
O@0476"% 
@1120@ AORSETs 
106400 
@1aee2 
20¢207 
@10400 SAV2iy 
@05748 
016748 
2000006 
160410 
@06210 
6852190 
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810 SAVia ! 
CLR =(SP) ! 
BR Savig ’ 
IF SOINT/ SUBP BACK 

MOV R3, (RUS ’ 
MoV RU, (RU) ’ 
400 #10, (RO)% ’ 
MOV CRO) +, (RA) ’ 
MOV #TAGL,R2 ’ 
MOV 2¢R2),R2 ’ 
BEG SAVi6 ' 
Moy 2(R2),R3 

CMP 2(R3), (RQ) ' 
BEG SAVL7 ’ 
TST CR2)¢ ’ 
8R SAVIS , 


NOe BRANCH 
YESe DISABLE WRITE 
AND CONTINUE 


SET SDINT 
PUT IN CURRENT POSITION 
OFFSET FOR ADDRESS 


MOVE OLD SUBP AOR 
GET ADR OF j{eST POINTER 


GET AOR 
BRANCH IF NOT ACTIVE 


» GET NEW SUBP AOR 


A MATCH? 


YES= FOUND SUBPe BRANCH 
POINT R2 AT NEXT PTR 
NO= LOOP 


IF SDINT/ WENABL/ SUBP NOT ACTIVE 


CHP (RU) = (RG) ’ 
TST (SP) , 
BR SAVia 


POINT TO SOINT 
CLEAN STK AND ADR#STK 


9 ANO CONTINUE 


OON’T THINK THAT SAV16 WILL SE REACHED 


TF FOUND SUBP 


MOV > R3,C(RE)O ’ 
BR SAVi8 ' 
IF SOINT/@ CASE 

TST (SP )¢ ’ 
BEQ SAV3 ’ 
MOV R3,(RO)e 1 
CLR (R4a)¢ ’ 
MOV RO,O(RI)> ’ 
BR SAV3 ' 
IF OPU INST, NOT SDINT OR 
MoV R3,R2 ’ 
BIC #3777,R2 ' 
CMP R2e#112088 s 
BEQ Saviga , 
CMP R2,#1 20000 , 
BLO SAVCON ’ 
CMP R2,4124800 ' 
BHI SAVCON ’ 
IF XGRA OR YGRA 

TST (ROIe ’ 
CMP CRO) o, (RO)> ' 
MOV CRO) o,R3 ' 
MOV (RB), (RE) % ’ 
eIPNOF = S$VTONLY 

BGE rat) 

DEC o(R3) 

NEG ¢R3) 


DISK O RT#11 MACRO VMG2009 


, HERRRAAREAERRARARARAERED 


eo TFOF SOISK 


SET NEW AOR 
SET TAG AND CONTINUE 


WRITE ENABLED? 

NOe CONTINUE 

INSERT SOINT 

FOLLOWED BY ZERO 

FIX AOR OF REST OF FILE 
AND CONTINUE 

DUMP 

GET WORD 

LEAVE BITS 15941 


LONG VECTOR? 


YES= BRANCH 
XGRA? 


NOe BRANCH 
YGRA? 


NO= BRANCH 


AOD TWO TO RO 

AOD & TO RO 

GET AOR OF S84 
STORE $81 IN SYMTAB 


ASR (R3)+ 

eENOC 

MOV #=1,(R3) y RESTORE S382 

BR SAV3 » AND CONTINUE 

IF LONG VECTOR (MAYBE FIGR) 

CMP (RO), #0NMP y NEXT WORD DJMP FOR FIGR 
BNE SAVCON + NOe SAVE WORD AND CONTINUE 
BR SAV23A 9 AND CONTINUE 

IF ALL DONE$ 

TST (SP)¢ + CLEAN OFF OLD WRITE FLAG 
MOV Rd, OISEND ) SET NEW DISEND 

MoV (ROO, (RODS y PUT IN OLD DUMP 

MOV RY, ACTEND ) SET NEW ACTEND 

MOV (RO) +, (RG)> 9 PUT IN RETURN ADDRESS 
«MOV (SP)4,R5 y RESTORE RS 

MOV (SP) 4,R4 y RESTORE Ri 

MOY ACTST,R2 ) GET START OF OPY FILE 
MOV R2,R4 » SAVE IN R4 ALSO 

MOV TAGL¢2,R3 1 GET ADR OF FIRST SUBP TAG 
MOV R3,e(R2) } PUT BEFORE DPY FILE 

BEQ Saveay } NO SUBP* BRANCH 

JSR PC, AORSET } OFFSET AOR 

MOV R3,R2 9 GET NEXT POINTER 

BEQ Savet 1 NO MORE@= BRANCH 

CMP =(R2),e(R2) y POINT AT REST OF FILE AOR 
JSR PC, ADRSET y OFFSET ADR 

MOV (R2),RO 9 GET AOR OF SUBP 

cLR =20(RQ) » CLEAR WORD BEFORE SUBP 
sus R4,RO § MAKE OFFSET AOR 

MOV RO, (R2)¢ 1 STORE AOR 

rst (Rede 1 BUMP BY TAG 

MOV CR2),R3 9 GET AOR OF NEXT TAG 

BEQ Savat ) NO MORE* BRANCH 

“OV BSAV20,"(SP) 9 FAKE JSR PC 

MOV (R2),RO » GET AOR 

$uB R4,RG 7 SUBTRACT ACTST 

MOV RO, (R2)¢ y SAVE OFFSET AOR 

RETURN 

MoV R4,RO y ACTST IN RO 

TST =(R8) 1 MOVE ONE WORD BACK 

MOV ACTEND, =(RQ) 7 PUT END IN PRECEDING WORD 
SUB RU, (RO) 9 MINUS LO ENO 

aSR (RB) 9 CONVERT TO WORDS 

INC (RO) 9 GET CORRECT NO OF WORDS 
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qe 


\ (e We 


GTC V@19e3 


192 
193 
194 
195 
1% 
197 
198 
199 
200 
201 
202 
203 
200 
205 
206 
207 
208 
209 
218 
au 
ate 
2t3 
r3¥) 
21s 
216 
217 
218 
219 
220 
eat 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
202 
203 
24a 
24s 
246 
207 
248 


GTc 


249 
258 
esi 
2s2 
253 
esa 
ess 
256 
257 
258 
259 
268 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
262 


263 


284 
265 
266 
287 
288 
289 
290 
eat 
292 
293 
294 
295 
2%6 
297 
298 
299 


300 
30) 
302 


CMPB (R1)o,8,LPAR 
BEQ Save2 
oEC Ry 
“OV Ri,RiSve 
JMP savee 
SAV22s MOV RO,wOL 
MoV (RB), RO 
400 #2,R0 
MOV RO,WO2 
CLR =(SP) 
JMP SAVERT 
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LEFT PAREN? 

YES= 00 FILE 1/0 

POINT AT TOKEN 

SAVE Rt 

YESe FINISH UP 

SAVE START AOR OF BUFFER ’ 
GET WORO COUNT MINUS 2 
MAKE w ON 

SAVE WORD COUNT 

SIGNIFY WRITE OPERATION 
IN ROOT SECTION 


Se 


VISAVERT IS IN ROOT $0 overtay WORKS 


ybhas 
SAV2ds MOV 


CSP) 4o,RO POINTER TO STRING 
MOV RI, RISVE ; SAVE Ri FOR EXIT 
CLR Rt 
8Ise (RODo,RE » GET LENGTH 
advo #2,R0 y START OF ASCII STRING 
apo Ri,RO 9 POINT AT END of 
CLRB (RO) y) FOLLOWED BY @ BYTE 
MoV RQ,@(SP) 9 SAVE PTR TO ENO 
sus R1,RO » POINT AT BEGINNING 
eCSISPC SFILE, WOEFEXT,RO 
ace 2t6 » NOe ERROR 
JmMep ERRARG » ELSE ERROR 
TS? (SP)¢ » BETTER NOT HAVE SWTICHES 
BNE 276 » YES# ERROR 
MOVE RL, e(SP)> 1 RESTORE BYTE COUNT 
Mov #FILES30,,RO 9 AOR OF RAO SQ NAME 
MOV RO,R2 y SAVE IN R2 
sOSTATUS WOSTAT 49 RO mmm DEV: 
acs DOERR § INVALID DEVICE 
MOV #OSTAT#2,RE y POINT AT DEVBLKet woRD 
MoV (RODO,R3 » GET HANOLER LENGTH 
TST (RB) 9 HANDLER LOADED? 
BNE Savega  YESe BRANCH 
“OV R3,RB 9 GET ITS LENGTH 
JSR PC, FREEGET y ASK FOR ROOM 
acs SAVay + NOT ENOUGH AVAILABLE 
MoV RO,=(8P) 9 SAVE R@ AOR OF HANOLER 
MoV R2,RO 9 RO wer DEVE 
EMT saz ) FETCH HANOLER 
Bcs DOERR y BAO FETCH 
SavV2uas YST (SP)¢ 9 READ OR WRITE? 
BEO Savag § WRITE® BRANCH 
sup RSTRI » READ] BRANCH 
SAVGis JSR Ri, MSG 
eBYTE «15,42 
eASCII /2NER@C/ 
BYTE 15,12,8 
eEVEN 
SMP saves 9 FINISH UP 
SaVd@s LOCK 9 LOCK USR IN CORE 
TST ostar s FILE DEVICE? 
BPL OERRG 3 NO# BRANCH 
eCLOSE 7 9 YESe CLOSE CHANNEL 7 
sLOOKUP 7,R2 ) LOOKUP THE FILE 
acs Saves 9 NOT FOUND® BRANCH 
VOle01 BASIC © GT OISK O RT#11 MACRO VM@2=89 LoHOCTH7U 82814336 PAGE 26 
UNLOCK s RELEASE THE USR 
JSR R1,48G y ASK IF REPLACE 
ASCII /FILE ALREADY EXISTS/ 
BYTE @ 
sEVEN 
eCLOSE 7 ) NO= CLOSE CHANNEL 7 
»UNLOCK y UNLOCK USR 
SAV3ir BR saves y RESTORE FILE AFTER CKING ")* 
Savas: BIT #40000,0STAT y READ ONLY DEVICE? 
C4") SAV26 3 NO# BRANCH 
OERROs JSR PC,OERR 9 TELL NEWS 
aR SAV34 y AND FINISH 
OERR: ,CLOSE 7 9 CLOSE CHANNEL 7 
UNLOCK 3 UNLOCK USR 
Jsr Ri,MSG 9 TELL USER NEWS 
BYTE «15,12 s CReLF 
sASCII /2DEV ERR © C/ 
BYTE 15,12,8 
eEVEN 
RETURN s RETURN TO CALLER 
SaV2e: ENTER 7,R2 y ENTER THE FILE 
CLR Re 9 BLOCK ZERO 
eWRITW 7,W0L,WO2 9 WRITE OUT DATA 
acs OERRO y ERRORe EXIT THRU MESSAGE 
Sav271 ,CLOSE 7 9 RELEASE CHANNEL 7 
e UNLOCK » RELEASE USR 
JSR Ri, MSG 
eASCIIT /waSavE COMPLETEDR®/ 
BYTE 15,1208 
eEVEN 
BR Sav3t » FIX STACK 
Sav2es ,ENOC 
RRAARERAAHHAKERERRAEHERD 
@562 016704 SAV293 MOV ACTST,Ra 9 GET START ADR 
oe2aeeG 
@566 012700 MOV #TAGIO2,RO y» AOR OF PTR TO FIRST TAG 
adeoeec 
@S572 011082 SAV3G8 MOV CRO) RZ 1 GET AOR OF TAG 
@S74 a01415 8EQ Sav32 1 NO MORE SUBP© BRANCH 
O576 a24a42 cme =(R2),<¢(R2) y POINT AT AOR OF REST OF FILE 
6608 Geeou2ee a00 RU, (R2)¢ y UPOATE AOR 
8602 eeau22 400 R4,(R2)¢ y) UPOATE AOR OF SUBP 
0604 B12246 MOV (R2)4,°(SP) y PUT TAG ON STK ZERO? 
0606 ea5712 TST (R2) 1 AOR OF NEXT TAG ZERO? 
@610 201401 BE oe » YES BRANCH 
Gol2 eoeui2 400 Rd, (R2) y UPDATE TAG PTR 
@614 005726 TST (SP)¢ 1 WAS TAG ZERO? 
G616 Ba1e02 BNE et6 1 NO# BRANCH 
@620 B11210 MOY (RQ), CRB) p YESe ELIMINATE LINK 
622 801763 86a SAV39 1 Loop OY 
0624 010200 Mov R2,RO ) UPOATE PTR RO 
626 200761 8R SAV30 9 LOOP 
0630 010067 SAV32s MOV R@,TAGENO y STORE AOR TO LAST TaGe2 
2000906 
eIFOrF SOISK 
MoV RISVE,RI s RESTORE RY 
eENOC 





GTC 


383 


304g 
385 
386 
387 
308 
309 
318 


GTC 


eK ear eMeUnNe 


10 oe ee ee ee me 
QOMwsFN SUN o 


nan 
une 


Ww wn ror 
UNE BOoayeuNe 


FEWUUE ww 
—-S0ONTUE 


eeeeeeces 
DOr TFHV EWN 


vu 
f£UN-a@ 


mun 
NOW 
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SOXIT 


eTFOP = =6$DISK 





Pye 


WORD 0,0,8 


JMP 
RiSVEs ,WORD a 
OSTAT: , 
DEFEXTs 
FILEs oot, 


o TFOF SDISK 


y EXIT 


» SAVE Ri HERE 
9 DEVBLK 


1 39 WORD BLOCK 
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RSTRe 


RSTROe 


RSTRis 


RSTRUE 
RSTR2es 
ROERRY 


RSTR3: 


SBT 
2ENO 


TL "RESTORE" ROUTINE 


c 


RARAAAAHRRRERAARERRRARARRRERAREERRR REE 


1 RO! 
, 


JSR 
JSR 
cMPB 
BEG 
sme 
MOV 
TST 
BNE 
JMP 
»L00 
Bcc 
CLO 
UNL 
JSR 
aBYT 
ASC 
+BYT 
EVE 
MOV 
gmp 
BIT 
BEQ 
JSR 
ar 
sREA 
MOV 
MOV 
MOV 
$uB 
ASR 
INC 
CMP 
BLE 
+CLO 
2UNL 
JSR 
.BYT 
eASC 
2BYT 
sEVE 
TST 
BR 


1 GET REST 


RSTRSt 


MOV 
CLR 
CLR 
MOV 
400 
“OV 


UTINE TO HANDLES 


CALL "RSTR"( <FILE DESCRIPTOR» ) 


PC,BUFTST y ANY BUFFER? 
PC,STOPA 5 STOP THE DISPLAY 
(Ri) +, eLPAR pA "(" 2? 
RSTRE ) YESe BRANCH 
ERRSYN 9 NO= ERROR 
R1,°(SP) 9 SIGNAL READ OPERATION 
INSRTF 1 INSERT PENDING? 
ond » YES= LOOP TIL FREE 
SAVERT » GET NAME IN ROOT 
KUP 7,R2 } LOOKUP THE FILE ON CHANNEL 7 
RSTR2 9 BRANCH IF FOUND 
se 7 1 CLOSE CHANNEL 7 
OcK s UNLOCK THE USR 
R1,MSG 
€ 15,12 
TI /SAVE FILE NOT FOUND/ 
E 15,12,8 
N 
RISVE,R1 y RESTORE Rt 
SOXIT 
#20000,0STAT y WRITE ONLY DEVICE? 
RSTRI 9 NO» CONTINUE 
PC, DOERR ) DEVICE ERROR 
RSTRY y AND EXIT 
OW 7,#WOD1, 82,40 9 READ ON 7= 2 WORDS 
@ACTEND, = (SP) y SAVE END AOR 
OISEND,RG 7 GET CURRENT LO 
DCRASH,RO y HI END 
RU,RO » GET SIZE 
RO y CONVERT TO WORDS 
RO 1 SIZE IN WORDS AVAILABLE 
WOD1,R@ y ENOUGH ROOM? 
RSTRS 9 YES= BRANCH 
SE 7 9 CLOSE CHANNEL 7 
ocK y RELEASE THE USR 
Ri MSG 
€ 15,12 
II /NOT ENOUGH DISPLAY BUFFER FOR RESTORE/ 
. 15,12,8 
(SP)4 y CLEAN STK 
RSTRY y AND EXIT 
OF DATA 
(SP)4,R5 y SAVE END ADORESS 
Re » BLOCK @ 
(SP) 9 CLEAR STK FOR REAOW 
WOO1, (SP) » REST OF DATA 
#2,(8P) 9 ACTUAL ENO 
#(RG),RS » SAVE IN RS 


95 
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sé MOV @(RG),R2 
59 MOV RG,@(SP) 
60 EMT 20807 

ot acc a) 

62 aR ROERR 

63 mov R2,(RG)e 
64 MOV R3,(ROe 
os eCLOSE 7 

66 a UNLOCK 

67 y STRAIGHTEN OUT FILE 

68 MOV WOD1,R3 
69 aSt R3 

78 aod RU,RS 

m1 MOV RS,(R3) 
72 1st ONSTSK 

73 BNE o%6 

4 MOV R3,ACTEND 
7s MOV #OJMP,@(R3) 
Te MOV R3,01SEND 
7 Ts? woo2 

78 BEQ RSTRG 

79 MoV wOD2,RO 
68 400 RG,RO 

81 MoV RO, @TAGEND 
62 MOV TAGEND, RO 
83 sme SAV30 

aa eENOC 

8s eTFOF = SOISK 
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Se 


1O9OCTH7G G2114836 PAGE Se 


SAVE IN R2 
AOR TO PUT DATA 
READ IT IN 
ALL OKAYe BRANCH 
NOT OKAY BRANCH 
RESTORE IT 
RESTORE IT 
CLOSE CHANNEL 7 
UNLOCK USR 


GET WORD COUNT . 
CONVERT TO BYTES 

POINT AT ENO 

SAVE AOR OF RETURN 

IN A SUBP NOW? 

YES= DON’T UPDATE ACTEND 


SHOULON*T BE NECESSARY 
NEW DISEND 

ANY SUBP IN NEW FILE? 
NO@ EXIT 

GET OFFSET OF FIRST TAG « 
MAKE AN ADORESS 

LINK UP TAG CHAIN 

FIX RO PTR 

AND FINISH UP 


1OeOCT=74 B2210336 PAGE 4 


1 eSBTTL "FIX" AND "FREE” ROUTINES 
2 eENOC 
3 , RERHARAAAHERRARAOERERRARERRARERRERERE ERED 
4 
5 » ROUTINE TO HANOLESs 
6 , CALL "FIX*"(N), OR 
7 U IMPLICITLY ASK FOR HALF FREE SPACE 
8 
9 888040 FIXes y IMPLICIT ENTRY POINT 
1@ 80648 2120667 MoV SP, IMP SF 9 SIGNAL IMPLICIT ENTRY 
081964 
11 89644 eeSaeo cuR RO » SIGNAL WANT HALF 
12 80646 2004022 BR FIX y BRANCH 
13 80650 FIXSPs y ENTRY FROM FIX IN ROOT SECTION 
14 3650 285067 CLR IMP,F 9 CLEAR IMPLICIT ENTRY FLAG 
801854 
15 09654 122127 céPS CRI, ,RPAR pA MYR? 
0080006 
16 00660 e@aiua2 BEO 2%6 » YESe BRANCH 
17 @0662 000167 JMP ERRSYN y NOw SYNTAX ERROR 
0020086 
18 @0666 016500 mov FaC2(RS) RO ) GET N 
eeegu2 
19 00672 003002 BGT a) » POSITIVE BRANCH 
28 80674 880167 FIXARGS JMP ERRARG y ERROR N <a @ 
2000006 
21 88790 e45767 TST OCRASH 3 SPACE ALREADY ALLOCATED? 
2eegeeG 
22 00704 geiaal BNE FIXx2 » YES BRANCH 
23 20786 e8S200 TNC RO » NO ASK FOR 
24 eIFOF §=SDISK 9 1 OR 2 MORE WORDS 
2s INC RO 
20 eENOC 
27 80712 006300 FIX2: ASL Re » CONVERT TO BYTES 
28 @@712 103770 ecs FIXARG » TOO MANY= ERROR 
29 1 FIND AVAILABLE SPACE 
38 08714 B265605 FIX1s CMP LOSTR(RS),HISTR(RS) 
eaee72 
eeee74 
31 @@722 801476 BEQ FIX3 9 STRINGS ARE LOW 
32 28724 a1014e MOV Ri,e(SP) 
33 90726 aieede MOV R2,°(SP) 1 DO ONPACK HERE 
34 00730 v10346 MOV R3,2(SP) 
35 00732 evSaue CLR =(SP) 9 MAKE ROOM 
36 80734 016502 MOV LOSTR(R5),R2 
eover2 
37 08740 o16Sa1 MOV LOFREE(RS),RY 
eo0014 
38 @0744 B10165 MOV Ri, LOSTR(RS) 
Beee72 9 
39 08750 @85¢16 DNPLOOP: CLR (SP) 
4@ 88752 152216 8188 (R2)4, (SP) 
41 @v754 ae1ate BNE ONPZRO 
42 20756 @20265 DNPBAD: CMP R2,HISTR(RS) 
000074 
43 88762 103772 BLO ONPLOOP 
44 08764 e10165 MoV RIPHISTR(RS) , 


SAVE HI STRING ADORESS 
. 


GTC 


88 
89 


GTC 


98 


91 
92 
93 
ou 
95 


97 
98 
99 
100 
181 
102 
103 
104 


185 


106 


107 
108 
109 
1198 
ai 


tie 
113 


V@tee! BASIC © GT DISK O 
000074 
@8778 285726 TsTt 
00772 012603 MOV 
@877G Bi12602 MOV 
90776 B12601 MOV 
91088 900447 BR 
81082 85003 ONPZROs CLR 
01004 152203 8188 
@1906 880303 Swab 
@1018 152203 BIs6 
@1812 ee16ede A400 
81814 e05202 INC 
01016 830327 BIT 
288001 
81822 ed14ee BEQ 
01024 905303 bec 
81926 861503 a00 
01030 220365 CMP 
200004 
01934 183358 BHIS 
81936 220306 CMP 
81048 103013 BHIS 
01042 020365 CMP 
880010 
@1046 181343 BHI 
@1052 020365 CMP 
eeeeie 
@1A5S4 181605 BHT 
@1056 026365 CMP 
200018 
@1062 103335 BHIS 
01064 020315 CMP 
@1866 103733 BLO 
@1078 262716 DNPGOOD: AOD 
280004 
@1074 161682 $u8 
81076 820213 CMP 
61100 e01005 BNE 
@1102 810113 MOV 
@1104 112221 MOVE 
@1186 885316 EC 
@1418 083375 GT 
@1112 e8e721 BR 
81114 G61602 DNPIGNO? 
@1116 900717 BR 
@112@ @16504 FIX3: MOV 
eseate 
B1124 10446 MOV 
81126 166516 sus 
086074 
81132 B6e716 400 
eeegae 
@1136 016767 “OV 
@800R0G 
200570 
@1144 901465 BEQ 
81146 166567 sua 
VO1le01 BASIC = GT OISK O 
600018 
048560 
@1154 466716 ado 
200554 
@1168 985708 FIX3As TST 
B1162 381934 BNE 
Br1t64 311608 MOV 
@iloe a26200 ASR 
@1178 86280 asR 
@1172 d10046 MOV 
@1174 2865300 OEC 
oIFOF 
bec 
2ENOC 
1176 810665 MOV 
eaeeadve 
1282 625465 CLR 
anegaa 
1286 684767 JSR 
8890806 
1212 604167 JSR 
2800886 
1216 840 eASCIT 
1217 127 
1228 117 
leat 122 
1222 104 
1223 123 
1224 O48 
1225 106 
1226 117 
1227 122 
1238 e490 
1231 184 
1232 iit 
1233 123 
1234 120 
1235 114 
1236 101 
1237 isi 
1240 e4e 
leat 106 
1242 SS) 
1243 riq 
1eqa 105 
1245 eis BYTE 
1246 e12 
1247 aoe 
EVEN 
1254 012688 MOV 
1252 986300 ASL 
s SHIFT ARRAYS 
1254 004767 FIXS: JSR 
0800006 
1268 016783 MOV 
28000006 
1264 010367 Mov 
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(SP)o 
(SP) o9R3 
(SP)o,R2 
(SP)o,R1 
FIX3 

R3 
(R2)4,R3 
R3 


(R2)o,R3 
(SP) ,R2 
R2 

R3,#1 


+6 
R3 

CRS),R3 

R3,PDLCRS) 3 4 = POL 


ONPBAD 

R3,SP 
ONPGOOD 
R3,ARRAYS(RS) 


ONPBAD 
R3,HIFREECRS) 


ONPGOOD 
R3,LOFREE(RS) 


ONPBAD 
R3,(RS) 
ONPBAD 
#4, (SP) 


(SP),R2 

Re, (R3) 

ONPIGNO 

R1,¢R3) 

CR2)o, (R16 
(SP) 

aed 

ONPBAD 

A0D (SP) ,R2 
ONPBAD 
HIFREECRS),RG 9 GET HIFREE PTR 


RU, =(SP) y SAVE IT 
HISTR(RS),(SP) 3 FREE BYTES 


#2,(3P) y ACTUAL 
OCRASH, WOD2 4 SAVE DCRASH 


FIX3A + NO BUFFER BRANCH 
ARRAYS(RS),WOD2 ¢ SUBTRACT BOTTOM END 
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WOD2, (SP) y GET TOTAL FREE 

Ra 9 HAVE WO COUNT? 

FIXS y YES= BRANCH 

(SP),R8 7 GET MAX SPACE FREE 

RO y DIVIDE. BY 2 

RO. y CONVERT TO WORDS 
RO,=(SP) 9 SAVE RO 

RO 

SOISK 

RO 9 TWO WORDS FOR DISK VERSION 
RO,FAC2(RS) » PUT INTO OUTPUT BUFFER 
Faci(RS) 

PC,NUMOUT y TELL USER 

Ri, MSG 


7 WORDS FOR DISPLAY FILE/ 


15,12,8 

(SP) 4,RO y RESTORE RO 

RO » BACK TO BYTES G 7 
PC,STOPA y STOP DISPLAY 

OCRASH,RS » GET HI END 

R3,W001 9 SAVE OLD OCRASH 





GTC 


114 
115 


116 
117 


118 
119 


128 
121 


123 
124 


128 


126 
127 
128 
129 
138 


131 
132 
133 


136 
137 


VOleos 


1278 
1272 


1306 
1302 


1386 
1338 


1314 


1316 
1328 
1322 


1326 


1332 
1334 
1336 
1340 
i342 


1346 
13528 
1352 


1360 
1362 
1363 
1364 
1365 
1366 
1307 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1400 
1401 
14@2 
1083 
1aa4 
1495 
1406 
1407 
1410 
1ant 
1442 


Oeeug2e 
081006 
016567 
0000108 
8000086 
eeeui2 
016702 
0000886 
160283 
062723 
oeoed2 
166300 


001003 
005726 
000167 
280364 
O16503 Fixes 
edee10 
085700 
882002 
005726 
eeeaue 
166716 
800366 
820026 
191421 
@160767 FIXERRS 
000354 
0800006 
104400 
116 
105 
122 
48 
es5 
eee 
106 
417 
122 
a4e 
104 
iit 
123 
120 
114 
101 
134 
oue 
102 
125 
106 
186 
105 
122 
ry) 


GTc 


138 


139 
148 
14) 
142 
143 
144 
145 
146 
147 
148 
149 
158 
151 


152 
1s3 
154 
1s5 
156 
157 
158 
189 
168 


161 
162 
163 


164 
165 


166 
167 
168 
169 


178 
171 
172 


173 
174 


175 
176 
177 
178 
479 
160 
161 
182 
183 
184 
185 
186 


V@t7al BASIC = GT 


1a1e 


1429 
1422 
1426 
1426 
{430 
1432 
1434 
1436 
1449 
1462 
1444 


14d6 


1452 
144 
1456 
1468 
1462 
14oa 
1466 
1470 
1472 


1476 
1508 


1504 
1506 


S12 
1514 
1516 
1520 


Seq 
1526 
1530 


1534 
1536 


1542 
1544 
1546 
1550 
1552 
1554 
1556 
1568 
1562 
1564 
1566 
1570 


BNE 
Mov 


8R 
MOV 


suB 
aod 


$uB 


BNE 
TST 
ame 


MOV 


TST 
BGE 
Ts? 
BR 

Sus 


CMP 
8LOs 
MoV 


TRAP 
ASCII 


BYTE 
EVEN 


eot2 ’ 
ARRAYS(RS),OCRASH 
FIXe ’ 
acTsT,R2 ’ 
R2,R3 ’ 
B2,R3 ’ 
R3,RO ’ 
i] 
FIX6 ’ 
(SP)¢ ’ 
PIXXTT ' 
ARRAYS(RS),R3 
Re 
at ’ 
(SP)o ’ 
FIX? ' 
WOD2, (SP) U 
RO, (SP)¢ i | 
FIX25 ’ 
WOO1,O0CRASH ’ 
8 
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BRANCH IF CALLED BEFORE 
» NEW DCRASH 


CONTINUE 
GET LO ENO 


GET LENGTH OF CURRENT BUFFER 
IN BYTES 


SHIFT FACTOR 

>08 NEED MORE// <O1 FREE UP 
MUST CHANGE= BRANCH 

NO CHANGEe CLEAN STK 

ANO EXIT 


GET TOP ENO 


CONTINUE IF >a g 

CLEAN STK 

BRANCH 

BACK TO FREE BELOW HIFREE 


ENOUGH ROOM? 
YESe BRANCH 
RESTORE OLD OCRASH 


NER = FOR DISPLAY BUFFER/ 
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804767 FIX253 JSR 
eeaude 
O194e2 MOV 
160002 Sus 
818240 MOV 
22224 CMP 
020403 CMP 
101002 BHI 
@12422 MOV 
ee0774 8R 
0e5742 TST 
818246 “OV 
O60414 BR 

y SHIFT UP 
@O4767 FIX73 JSR 
200352 
@10302 MOV 
Leegee sus 
285046 CLR 
ALB2u6 MOV 
22223 CMP 
@14302 MOV 
820304 cme 
101375 BHI 
10266 MOV 
eavave 

y FIX SYMTAB 
@11503 FIX8: MOV 
220365 FIXSRH, CMP 
e@ea14 
183078 BHIS 
021327 CMP 
177775 
103011 BHIS 
@22323 FIXi71 CMP 
020770 BR 
@22327 FIXias CMP 
177776 
eo1eet BNE 
160013 sus 
@62703 FIXii# add 
eevee 
880761 BR 
821327 FIXi2: CMP 
177777 
81366 BNE 
005723 TST 
818946 MOV 
€12300 MOV 
G1e30e MOV 
1eea4e BMT 
811304 MOV 
100420 BMT 
eeS2e4 TNC 
010246 MOV 
B184U6 MOV 
@12746 MOV 


PC,PRIOR U 


RG,R2 ’ 
RO,R2 ’ 
R2,*(SP) , 
(R204, (ROS ’ 
RU,RS | ’ 
oto ' 
(RU) o, (R20 ' 
226 U 
=(R2) ’ 
R2,=(SP) , 
FIX8 ’ 


PC,PRIOR ’ 


R3,R2 ' 
ROR2 ’ 
(SP) 

R2,°(SP) ’ 
(RZ) 4, (R34 ’ 
2(R3),9CR2) ’ 
R3,Rq ’ 
aod ’ 
R2,2(SP) ’ 


(RS) ,R3 
R3,LOFREECRS) U 


FIX9 , 
(R3), #03 ’ 


FIx12 ’ 
CR3) +, (R36 ’ 
FIXSRH ’ 
CR3)o, #02 ’ 


FIX ’ 
R@,CR3) ’ 
#10,R3 ' 


FIXSRH 
(R3), M01 


FIXia 
(R3)6 
RO,=(SP) 
(R3) 6) RO 
CR3)o9R2 
FIX3 
(R3),R4 
FIXIG 

Ru 
R2,0(SP) 
RU, =(8P) 
#20,0(SP) ' 


eed 


FIX LEVEL ANO LPS JUNK 


GET ARRAY PTR 
NEW ARRAY PTR 
SAVE ON STK 
POINT AT CORRECT WORDS 
DONE? 

YES~ BRANCH 
MOVE WORD 
Loop 

NEW ARRAYS 
SAVE ON STK 
BRANCH 


FIX LEVEL ANO LPS JUNK 


GET ARRAYS 
NEW ARRAYS 


SAVE ON STK 

FOR AUTO= DECREMENT 
MOVE WORD 

OONE? 

NO@ LOOP 

SAVE NEW ARRAY PTR 


» START OF TABLE 


END? 


YES= BRANCH 
ENTRY OR LINE NO, ? 


ENTRY BRANCH 
GO PAST LIN No, 
Loop 

AN ARRAY? 


NO» BRANCH 
NEW AOR OF ARRAY 
NEXT ENTRY 


LOOP 
A STRING? 


NOw KEEP GOING 

YES= BUMP R3 

SAVE OFFSET 

AOR OF START OF STRING 
GET $31 

NOe SS= BRANCH 

GET ss2 

1 OIMENSIONAL® BRANCH 
MAKE $8214 


SAVE HERE TOO 
16 BITS 





GTC 


187 
188 


189 
198 


19 
192 
193 


194 
195 
196 
197 
198 
199 
200 
201 


202 
203 
204 
205 
206 
207 
208 
209 
210 
2ui 
22 
213 
218 
21s 
216 
217 
218 
219 
220 
22k 
222 
223 
220 
225 
226 


2e7 
228 


229 
230 
231 
232 
233 


234 


GTC 


235 


236 


237 
238 
239 
249 
eat 
2eue 


VOle@1 BASIC @ GT DISK O RT@$1 MACRO VMO29G9 16"0CTe74 02214136 PAGE Go 


TTT TT 

1574 006304 FIXLPs 

1576 006366 
eeeede 

1602 103082 

1604 2666004 
eeoeas 

1618 485316 

1612 0833728 

1614 062706 
280006 

1620 e662 

fo22 885202 FIXids 

1624 906302 

1626 B60802 


3 FIX STRINGS 


1638 820002 FIX15s 
1632 181013 
1634 @22027 
177777 
1648 601773 
1642 614908 
1644 e05204 
1646 890300 
1658 118024 
1652 208308 
1654 110024 
1656 005728 FIXtos 
1668 800763 
1662 012608 FIXt3s 
1664 030713 


y FIX BUFFER CHAIN 


1666 FIX9s 


FIX9Bs 


FIXOAS 


1666 011665 
800010 
1672 812602 
1674 612665 
eoe2ei2 
1788 @22222 


1702 O10267 
0000006 

1706 #12667 
177776° 


VO1l"01 BASIC @= GT 


1712 OL2767 FIXXIT: 
177777 
0080086 

1728 065767 
eoveas 

1724 @01434 

1726 800207 


1732 @0000@ IMP,Ft 
1732 B@veAe WOOL: 
1734 906006 WOD2: 


ast Ra  SS2n2 
asl 2(sP) 
acc td 
a00 4(SP),RU 
oEc (SP) 
8G6T FIXep 9 FORM SS2e8$2 
ad0 #6,SP + TIOY STK 
add RG,R2 1 AOO S84 
INC R2 » SStes 
ASL Re 4 WORDS TO BYTES 
00 RO,R2 § HI AOR OF STRING LIST 
cme RO,R2 9 DONE? 
BHI FIXGS » DONE LOOP 
CMP (RO) o, Mag p A NULL STRING ? 
BEG FIXIS + YES= LOOP 
MOV #(RB),RY 9 ADR OF STR 
INC Ra y POINT AT FIRST BYTE OF PTR 
SWAB RO 
MOVE RO, (RODE 
SWAB RO 9 RESTORE RO 
MOVE RB, (ROS » SET IN SECONO BYTE 
TST (RO)¢ 1 ADD 2 TO ARRAY AOR 
BR FIXiS 
MOV (SP)o,RO » RESTORE OFFSET 
BR FIXI7 
eTFOF SorsK 
a SRESET 1 GIVE BACK ALL DEVICE HANDLERS 
MOV RS,R2 ») GET PTR TO BASE OF USER AREA 
add SBUFCHN,R2 y OFFSET TO BUFFER CHAIN POINTER 
TstT (Re) 1 ANY BUFFERS? 
BEQ PIX9A 9 NOe BRANCH 
suB RO, (R2) § YESe CORRECT POINTER 
MOV (R2),R2 9 POINT R2 AT NEXT BUFFER 
BR FIX9B 9 CHECK IT 
sENOC 
MOV (SP), ARRAYS(RS) » NEW PTR 
MoV (SP)o,R2 y KEEP TO DETERMINE ACTST 
MOV (SP), HIFREEC(RS) 3 NEW PTR 
CMP CR2)o,(R2)¢ » NEW START 
a TFOF SOISK 
TsT (R2)¢ 
2 ENDC 
MOV R2,acTST y START OF FILE 
MOV (SP)¢,PSW y RESTORE PSw 
OISK O RT#14 MACRO VMG2=09 LosOCTa74 B2314336 PAGE de 
MOV #=1,D0ISEND y FOR AUTO INIT 
TST IMP F » CALLED BY INIT? 
BEQ SOXITS 9 NO@ EXIT 
RETURN 9 GO BACK TO INIT 
eM ORO @ 
eWORD 
eWORD @ 


GT 


CeyweNewne 


14 


is 


16 
17 


18 
19 
20 
a1 
22 


23 
24 


es 


26 
e7 


GT 


-oe 


13 
14 
15 


16 
17 


19 
20 
ai 
22 
23 
2a 


es 
26 
27 
28 
29 
38 
31 
3e 


C V@te@l BASIC = GT 


@01736 FREES 


FREES? 


O1736 804767 
0880006 
@1742 O12767 
477777 
8808006 
@17S@ 912767 
880000G 
6v0000G 
81756 016708 
e000neG 
1762 881415 
01764 805067 
8866006 
@1778 @165e03 
80010 
@1774 {60308 
@1776 0854606 
92800 216504 
eeeete 
82004 885067 
177720 
@2018 B00616 
92012 000167 SOXITs 
0000886 
C2016 00167 SOXITIi: 
0080086 


C V@ied1 BASIC © GT 


, 
e02d22 PRIOR? 


ee2e22 185767 
eeooees 
@82026 281375 


02030 O116046 
@2832 016766 
177776° 
ebeeee 
@20468 252767 
000340 
177776° 


@2046 810146 

82080 B1274e 
@80000G 

@2054 001415 

82656 91278} 
@80000G 

G2862 085771 PRIORI: 
200000 

Q@2066 B61410 

@20728 2600313 

@2072 060031 

02874 960031 

®2076 G60031 

@2108 B62e701 
e6e0o4 

@2104 885316 

82106 0863365 

@2119 685726 PRIORGs: 

@2112 812601 


@2114 000207 


080001" 


OISK O RT@11 MACRO VM@2989 1690CT@74 B2514336 PAGE S 


ARAAAAAARARAAARAEARARARAARTEAARAERREDD 


» ROUTINE TO HANDLE? 
' CALL "FREE® 


eIPNOF = SDISK 


eENOC 

eIFOF SOISK 

2 ENOC 

JSR PC, STOPA + STOP DISPLAY 

MOV #=1,D018END 9 FOR AUTO INIT 

MOV #BEG,0STOP 9 LOOP OISPLAY 

MoV OCRASH,RO 9 GET HI END 

sEQ SOXITS » NOTHING THERE® EXIT 
CLR OCRASH » CLEAR OCRASH 

MOV ARRAYS(RS) RS ' 

sus R3,RO 9 TO GIVE If ALL BACK 
NEG Re 

MOV MIFREECRS) RO 9 SET UP REGISTERS 
CLR IMP SF 9 FOR EXIT 

BR FIX? _ 9 SHIFT IT 

ump CONT 9 START DISPLAY AND EXIT 
Jme CKEOL » CHECK EOL AND EXIT 


sIFOF § SOISK 


DISK O RT#11 MACRO VMG2=09 Lo~OCTe74 G2s14836 PAGE 6 


eSBTTL PRIORITY CHANGE AND LPS CLEAN@UP 
ENnoc 
Seeaeeesenenaneasennannanssanaenenaennnnn 


eIFNDF = SVTONLY 
TST8 RTSON 


BNE ged } LOOP *TIL NO DMA IN PROGRESS 
EnoC 

nov (3P),(SP) } HOVE DOWN RETURN ADR 

HOY PSWy 2(SP) } SAVE CURRENT PSW 

BIS #348, PSw ) SET SELF AT LEVEL 7 


eIFNOF = S$VTONLY 


MOV Ri,9(SP) » SAVE R1 

MOV WNARRAY,@(SP) 

BEQ PRIORG y THERE 18 NO LPSI) 

MOV STABLESRS 9 GET START OF LPS ARRAY TABLE 
TST @CRi) y ANY ENTRIES? 

BEQ PRIORG 9 NONES EXIT 

ad0 RO,O(RI)+ 1 ADJUST BEG PTR 

ad0 RO,@CRI)+ 9 ADJUST ENO PTR 

add RO,OCRI)> y AOJUST PUT PTR 

A00 RO,OCRI)+ y AOJUST GET PTR 

400 WORRY » POINT AT NEXT TABLE ENTRY 
DEC (SP) 7 MORE LPS ARRAYS? 

BGT PRIORI » YESe LOOP 

TST (SP)+ 9 NO# CLEAN STK 

MOV (SP) o,R1 

sENOC 

RETURN 


2END 


GTC VaL 
SYMBOL T 


ACTENOs 
aAOSTK = 
BUFCHNe® 
CONT 2 
OISENDs 
ONPGOO 
DNPZRO 
ERRSYN= 
Face # 
FIXUP 
FIXXIT 
FIX19 
FIXG3 
FIXt6 
FIx2s 
FIXS 
FIX8 
HIFREES 
INSRTFs 
MSG a 
NUMOUTS 
POL s 
PRIORY 
RTSON & 
Re a% 
RS 3% 
SAVEQ 
Savi 
Savie 
SAVIS 
SAViB 
Sav2o 
SAV23A 
SAV30 
SAVS 
Sava 
SOXIT 
STOPA 
TAG! 
wot 
SCLK 
sors 
SVT iL 
aRPAR 
« ABS, 


“01 BASIC = GT DISK O RT@it MACRO VMG2=09 16°0CT@74 B2114336 PAGE bo 


ABLE 


RAteRe 
aekene 
208876 
aeanes 
axetan 
@01070R 
851002R 
aantan G 
Ge0042 
@@1574R 
@e171aR 
0G1520R 
001662R 
881656R 
@01414R 
e91254R 
OGL476R 
200012 
wana 
Weenee 
eek 
eoege4 
@8206eR 
aaeeae G 
800002 
000805 
@eaca4R 
@eeeueR 
@2024a0R 
800274R 
O80206R 
808476R 
080376R 
oee572aR 
@ee43ar 
@80330R 
ee2o1ar 
wenee 
shaken 
wekeee 
800202 
000000 
000080 
aeneee 6 
eeesee 
802116 


oo Oo 


Ooo 


aang 


ACTST © aennnn G AORSET 980534R 
ARRAYSS 030019 BEG B eeeaen G 
BUFTSTS xanean G CKEOL 8 wenane G 
CONTA 8 seenae G OCRASHS teaeee G 
OJMP = 160000 ONPBAD § 880756R 
ONPIGN @@1114R ONPLOO 88075eR 
OSTOP = aunnee G ERRARGS seanae G 
ESUB & seers G Fact 2 900000 
FIXARG @80674R FIXERR @81352R 
FIXSP @280658RG FIXSRH @81500R 
FIXO @OB64GRG FIX, OGO714R 
FIX 9@153aR FIX12 @@1536R 
FIX1G @8L622R FIX{S @881630R 
FIX17 @@1S514R FIX2 880719R 
FIX 801120R FIX3A =B1L16OR 
FIX6 @013260R FIX7 @O14G6R 
FIXO @81666R FREE QOL 736RG 
HISTR 8 800074 IMP,F 881738R 
LOFREEs g00014 LOSTR = 990072 
NARRAYS exanne G NSTSK = taneen G 
OLOMODS setae G PC 8%000007 
PRIOR g02822R PRIORG aB211aR 
PSH 8 177776 RETURN® 000207 
Re B%208000 Ri 8xO00001 
R3 8%000003 RG 5X000004 
SAVCON 888106R SAVE @BQGGORG 
SAVSET 800112R SAVO eoee2aR 
SAV1@ 88170R SAVit eoe212R 
SAVI3) BBBVNSOR SAViG = @BNIANR 
SAV16  800316R SAVi7) = BBBS2GR 
SAV19 = @@B422R Sava O88056R 
Savai @eeSuuR Sav23  a@o4GOR 
$aV29 —- BaGSo2R SAV3 080074R 
SAV32 @00630R SAVG 600124R 
SAV6 Q00146R SAV? O883G4R 
Sava @80226R SDINT = 173400 
SOXIT1 @@2016R sp #%000006 
TABLE 3 enenee G TAGENDS sexnen G 
WOOL @81732R woo2 BOI73GR 
wo2 B xeenen G sac = 200000 
SCLOCKs gog000 SOI0 = 28000 
SLPS = 090000 SSTRNGS 000000 
EOL & eaweee G aL PAR @ teanen G 
800 
oe1 


ERRORS DETECTED: @ 
FREE CORE: 1795@, WORDS 


sLPSsPERPAR,GTL,GTC 


GTNLPS VOl9O! 


OOByTN EWN 


ee ee ed 
QVesvtNEWN~@ 


wren 
eave 


25 
26 
27 08000 
28 80000 
29 22000 
38 00888 
31 


se TITLE GTNLPS V1901 


' 
U 
’ 
’ 
' 
' 
U 
U 
! 
’ 
’ 
U 
! 
s 
U 
' 
U 
U 
U 
’ 
U 
’ 


yOUMMY LPS ENTRY RT#=11 MACRO VMG2009 


COPYRIGHT (C) 1974 


DIGITAL EQUIPMENT CORPORATION 
MAYNARD, MASSACHUSETTS 81754 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 
CHANGE WITHOUT NOTICE ANO SHOULD NOT BE CONSTRUED 
AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION, 
DEC ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
MAY APPEAR IN THIS DOCUMENT, 


THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A 
LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM ANO 
CAN BE COPIED (WITH INCLUSION OF DEC*S COPYRIGHT 
NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
OTHERWISE BE PROVIDED IN WRITING BY DEC, 


DEC ASSUMES NO RESPONSIBILITY FOR THE USE 
OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT 
WHICH IS NOT SUPPLIED BY DEC, 


sGLOBL TABLE, FLOAT, NARRAY,RTSON 


aoveae NARRAYSO 
TABLE! 
FLOAT? 
RTSONS 
eooeee swORD @ 
eoena1’ END 


16e0CT=74 G2817124 PAGE ft 


}OUMMY LPS ENTRY POINTS FOR THE GT PKG, 


/l 


GTNLPS V@1941 sDUMMY LPS ENTRY RT@11 MACRO VMO2009 - 
SYMBOL TABLE 1 2: 16eOCT©7G G2817820 PAGE te 


FLoar @8OBCORG NARRAYS 990000 G RTSO aR 
TABLE @000G0RG a) eee 
» 48S, e98vee 008 

gogoge 081 


ERRORS DETECTED: @ 
FREE CORE: 18561, WORDS 


oLPsaGTNLPS 


RTety LINK VO3=@1 LOAD MAP 
BGTLPS,SAV Loe0CT#74 


SECTION ADOR SIZE ENTRY ADOR ENTRY ADOR ENTRY ADOR 


e ABS, 820002 200400 LIMIT eeeede POL @80@04 NARRAY 900085 
POSIZE @800@6 ARRAYS 800010 COLUMN 600034 
Fact 90e04e@ FAC2 eeeea2 Th 208056 
Te 8eeee8 13 @80062 RNOL eoggeu 


RNO2 C@GG66 FILLCO 900112 SSTKSZ ege200 
eELOL @00201 .RPAR 600237 .COMMA 200243 
eLPAR =6888255 GTVECT 900320 LPSIVA oga34e 
LPSIP @@@342 CKLIVA 880344 CKLIP 080346 
ORSIVA 680358 DRSIP 880352 START @8110e 
ARGB 818262 ERRARG 018312 8OMB 810320 
Eval 011492 TABLES @11562 TBLSEN Bi1626 
ERRPDL 811772 OPRATO @12166 ERRSYN 012544 
SOPRAT @12720 ERRMIX 013012 STPRO 813162 


GETVAR 015364 INT 015574 MAKEST 817252 
MSG @17452 NORM @17532 NuUMOUT 817724 
NUMSGN- 817736 SAVCHA 820578 STOVAR @21254 
val 023354 LPSAO 17848@ LPSADB 170402 


LPSCKS 170404 LPSPB 178486 LPSOR 170410 
LPSORS 178410 LPSOIB 178412 LPSOOR 170414 
LPDISS 178416 LPOISX 170420 LPOISY 170422 


LPSOMA 178436 DPC 172000 DSR 172002 
Orsx 172004 OISY 172806 6TKS 177568 
TPB 1775660 


800403 @24190 
@245¢a @04276 IFPMP G245e@ ERRFPU 24582 SSBR @2458e2 
$AOR @24596 ALOG @25242 AINT B25616 


SINTR @25634 sOVR @25734 EXP 826366 
SIR 026736 SMLR @27822 SPOPRS 027374 
SPOPRG 627374 SPOPR3 827406 SRI C27414 
cos 827536 SIN 827572 ATAN O3e112 


SPOLSH @30576 SV20A 038576 SaQRT 830602 
SERR @3074@ SERRA 030750 SERVEC 230770 

030776 e@e472 FTBL 038776 

O31478 @81462 TABLE @31478 RTSON 31564 DRSON 831565 
HISTON 631566 S8COON 831567 ORSBUF 931578 
ORSNPT 031572 USE 031574 ROB B31746 
acc @320¢4 CKCMGN 032030 GETNUM @32042 
SAVER2 032056 SAVFAC 032062 SAVINT 032066 
RESTR2 032074 REGSAV 632100 RESTOR 032116 
INTST @32126 ERNOR 932226 FLOAT 832234 
ENTERP @32319 BUFRES 032332 GETV 832346 
GETBUF @32372 ERBUF 832440 GETDAT 832446 
STODAT 032680 GETADD 032706 POLENT 633014 
CKCOMA 933042 STORXT 033052 CKRPAR 033856 
CONBCD 833066 


033152 e01244 A0C 933222 RTS 033330 LED 033734 , 

O34d16 980716 SETR  a34432 SETC 0834578 HIST 835004 
watt 835060 o-- 

035334 eoesd2 OIR @3534@ OR 835434 ORS 035522 , 
REL 035706 

036076 B01462 CLRO 236164 PUTO 036618 O18 030652 
FSH 036726 OXY O370@4 OLSPLY 937252 


0375600 B@2116 SAVE 837568 FIXe @aguee FIXSP 048430 

° FREE @41516 

@41676 810614 BUFTST 842186 CKEOL 842222 INSRTF 9402532 
OISEND @42534 ACTEND 042536 ACTST Qu2esue 
wot 042636 wo2 @4264e8 SuBP 042704 
ESuUB @43146 ADSTK 043260 NSTSK 043310 
TAGSRH @43312 TAGEND @43334 ERAS @u33Sa 





esesi2 


8O35uu 


TRANSFER ADORESS = 854736 
HIGH LIMIT = 056256 


RTett LINK 
BASGT ,Sav 


SECTION ADOR 
« 46S, @00¢00 


800408 
@245¢0 


930776 
031326 
31310 


033426 


e4deue 


VO3~01 


SIZE 
080400 


824162 
a04276 


aaesie 
e20002 
a@2ilo 


@1a6rd 


08354u 


PON 645500 
STOPA 844262 
INIT Q44376 
ON 844622 
ABS,F 845536 
APNT O46016 
TRAK 046544 
Scar Q47576 
APUT 850360 
FPUT @51230 
TIMR 852360 
OSTOP @52526 
USRARE 852512 
LOAD MAP 
Loe0CTo74 
ENTRY AOOR 
NARRAY 9000000 
POSIZE egeeae 
Fact 000040 
T2 000068 
RNOD2 O80066 
EOL 080201 
abPAR 200255 
ARGB @18262 
EVAL a11492 
ERRPDL 011772 
SOPRAT 812720 
GETVAR 815364 
MSG 817452 
NUMSGN 617736 
VAL 923354 
OSX 1720046 
TPB 177566 
TFPMP 0245e0 
SAOR @24S5a6 
SINTR @25634 
SIR 026736 
SPOPRG 027374 
cos 827536 
SPOLSH 038576 
SERR 838740 
FTBL @30776 
FLOAT 031306 
SAVE 031310 
FREE @3324u6 
BUFTST 033636 
DISEND 834264 
wOL @34366 
esus 834676 
TAGSRH 935042 
LPEN 935230 
STOPA 836012 
INIT O36126 
ON 036352 
468,F 837266 
APNT 837546 
TRAK 040274 
SCAL 841326 
APUT 42110 
FPUT 062760 
TIMR O4ai1e 
OSTOP O44236 
USRARE @4u2u2 


TRANSFER ADDRESS = QU6U66 


HIGH LIMIT = @ 


5aed6 


ULUAUD 
CONT 
INITA 
OFF 
STAT 
VECT 
XGRA 
SCL.Y 
AGET 
TEXT 
BEG 
OCRASH 


ENTRY 


LIMIT 
ARRAYS 
Face 
13 
FILLCO 
»RPAR 
GTVECT 
ERRARG 
TABLES 
OPRATO 
ERRMIX 
INT 
NORM 
SAVCHA 
ope 
DISY 


ERRFPU 
ALOG 
SOVR 
SMLR 
SPOPR3 
SIN 
S$V20A 
SERRA 


RTSON 
FIX® 


CKEOL 
ACTENO 
WO2 
AOSTK 
TAGEND 
OLOMOD 
CONT 
INITA 
OFF 
Stat 
vVECcT 
XGRA 
SCL.Y 
AGET 
TEXT 
BEG 
OCRASH 


easood 
44346 
e444ge 
euu722 
eassue 
e4o112 
@47822 
858270 
9S5es5eu 
esis2q 
eSeueu 
es2sia 


AOOR 


aeoee2 
aeeeia 
aeaeu2 
eeaeee 
800110 
200237 
000320 
10312 
11562 
812166 
@13012 
@1SS74 
817532 
820570 
172000 
172006 


24582 
G25242 
@25734 
927022 
@27406 
027572 
838576 
0328758 


831306 
032150 


033752 
834266 
034378 
e35et0 
435064 
835412 
936076 
036132 
036452 
037270 
O37642 
o4esS2 
242020 
e42314 
043254 
044134 
aua2ue 


Daly 
CONTA 
Nose 
FIX 
ROOT 
SC,USC 
YGRA 
SCL.X 
FIGR 
TIME 
TAG! 


ENTRY 


POL 
COLUMN 
v1 
RNOL 
SSTKSZ 
«COMMA 
START 
BOMB 
TBLSEN 
ERRSYN 
STPRO 
MAKEST 
NUMOUT 
STOVAR 
OSR 
Tks 


SSR 
AINT 
EXP 
SPOPRS 
SRT 
ATAN 
SQRT 
SERVEC 


TABLE 
FIXSP 


INSRTF 
AcTST 
SueP 
NSTSK 
ERAS 
ostP 
CONTA 
NOSC 
FIX 
ROOT 
Sc,USC 
YGRA 
SCL.X 
FIGR 
TIME 
TAGL 


648250 
e443s2e 
auuot2 
844730 
845632 
B4e216 
au7aue 
950300 
asa7ue 
852106 
as2ui2 


ADOR 


‘ ggeea4 


000034 
eoeese 
000064 
200200 
e0a243 
Ge11e2 
810320 
811626 
@12544 
813162 
017252 
@17724 
21254 
172082 
1775608 


824502 
O25616 
826366 
027374 
e27414 
830112 
030682 
830770 


931306 
032168 


834262 
934270 
O34434 
835040 
835104 
036086 
O36182 
836342 
@36468 
837360 
837746 
240570 
042030 
042079 
843636 
e44142 


©) 


© 


RTett LINK 
BASLPS,SAV 


SECTION ADDR 
e ABS, 880000 


8ee4e0 
8246590 


930776 
831162 


O32644 
034110 


@35026 
@35570 
e37252 


VO3e81 


SIZE 
eea4ueo 


024100 
804276 


000164 
001462 


@81204 
080716 


o0esu2 
081462 
683544 


LOAD MAP 
1oe0CTe7 


ENTRY 


LIMIT 
POSIZE 
Fach 
T2 
RNO2 
eEOL 
eL PAR 
CKLIVA 
ORSIP 
ERRARG 
TABLES 
OPRATO 
ERRMIX 
Int 
NORM 
SAVCHA 
LPSad 
LPsPS 
LPSOIB 
LPOISX 
TKS 


IFPMP 
SAOR 
SINTR 
SIR 
SPOPRG 
cos 
SPOLSH 
SERR 
FTOL 
TABLE 
HISTON 
ORSNPT 
acc 
SAVER2 
RESTR2 
INTST 
ENTERP 
GETBUF 
sTooaT 
CKCOMA 
CONBCD 
aoc 
SETR 
WAIT 
DIR 
REL 
CLRO 
FSH 
USRARE 


TRANSFER ADORESS 2 41476 


HIGH LIMIT = 2 


43016 


4 
ADOR 


eeaee2 
880006 
eeeeue 
282860 
880866 
800201 
eeeess 
Ged3u4 
000352 
e10312 
O11562 
O12166 
13812 
@15574 
017532 
628570 
178400 
170406 
170412 
170428 
177560 


2450 
024506 
025634 
@26736 
@27374 
@27536 
030576 
030748 
030776 
031162 
831260 
831268 
@31476 
031558 
031566 
031620 
@32002 
032064 
32272 
032534 
032560 
@32714 
@34126 
834552 
035032 
035400 
035656 
0360420 
637252 


ENTRY 


POL 
ARRAYS 
Face 
3 
FILLCO 
+RPAR 
LPSIVA 
CKLIP 
START 
BOMB 
TBLSEN 
ERRSYN 
STPRO 
MAKEST 
NUMOUT 
STOVAR 
LPSaoB 
LPSOR 
LPSOOR 
LPOISY 
TPB 


ERRFPU 
ALOG 
$OVR 
SMLR 
SPOPR3 
SIN 
SV20A 
SERRA 


RTSON 
BCDON 
USE 
CKCMGN 
SAVFAC 
REGSAV 
ERNOR 
BUFRES 
ERBUF 
GETAOD 
STORXT 


RTS 
SETC 


OOR 


PUTD 
OXY 


aD0R 


oeeeeu 
200010 
oeeade 
080062 
080110 
000237 
900340 
800346 
881102 
10320 
B11626 
12544 
O13162 
e17252 
17724 
e21254 
170402 
170610 
170414 
170422 
177566 


024582 
@2S52462 
825734 
@27822 
O27406 
027572 
038576 
03075¢e 


031256 
031261 
831266 
031522 
031554 
631572 
@31720 
@32022 
32132 
032400 
@32544 


833822 
834262 


835126 


036302 
836476 


ENTRY 


NARRAY 
COLUMN 
m1 
RNDL 
S$STKSZ 
sCOMMA 
LPSIP 
DRSIVA 
ARGB 
EVAL 
ERRPDL 
SOPRAT 
GETVAR 
MSG 
NUMSGN 
VAL 
LPSCks 
Lesors 
Lporss 
Lesoma 


sr 
AINT 
EXP 
SPOPRS 
SRT 
ATAN 
SQRT 
SERVEC 


ORSON 
ORSBUF 
ROB 
GETNUM 
SAVINT 
RESTOR 
FLOAT 
GETV 
GETOaT 
POLENT 
CKRPAR 


LED 
HIST 


ors 
OISPLY 


ADOR 


eooees 
800034 
@eaese 
CITT IY 
eee200 
eee243 
@80342 
000350 
818262 
811402 
@11772 
612720 
015364 
617452 
817736 
023354 
170000 
170010 
170416 
170636 


824582 
25616 
826366 
027374 
B27414 
O3e112 
830602 
930770 


031257 
831262 
031448 
031534 
831560 
631610 
831726 
032040 
32140 
832586 
03255@ 


033426 
O34476 


35214 


O36344 
O36744 


eee eae 


erred 


